SHARP 


рөл. Х 


素 項 な ソノ ソフトウェア コー ディ ネイ ショ 


遡 信 る 、 グ ラフ ィ ッ クツ ー ル る も 、 韻 種 言 詰 る … い わ ば オー ド フ ル か ら デ ザー ルト ま で 、 
デメ プン テア ッシュ の メ X/ を ひと きわ お いし < ぢ 2/ き た て る ピリ ッ と 効い た ソフ た ち 。 
УТАА Чала РАТУРА А ХА а: р 


ZEAXV—VCFÉEI-/YV21813 


コス モス テー ショ ン CZ-136SF | 2D・5"FD 版 9,800 円 | X1turbo シ リー ズ 用 | ホス ト 局 運営 の た め の ホ スト ソフ ト 


モデ メス ター ミナ ル CZ-133SF | 2D・5"FD 版 | 25,800 円 | X1/X1turbo シ リー ズ 用 | モデ ム ボ ー ド 付 アク セス ソフ ト 


turbo タ ー ミ ナル CZ-131SF 2D・5"FD 版 8,8007 | X1turbo シ リー ズ 用 | ター ポ ボ シ リ ー ズ 用 アク セス ソフ ト 


@ モデ ム ユ ニッ ト ( 通 信 ソ フト 同 梱 )CZ-8TM1 29,800 円 も あり ます 


アー た 心 を 剰 激 す る クラ フル ッッ ク ツー ル 


turbo Z'? STAFF (ジー ズ ス タッ フ ) CZ-137SF 2D・5"FD 版 | 19,800 円 | X1turbo シ リー ズ 用 | ター ボ の 高 機能 に 応え る 本 格 C.G. ツ ー ル 


嬉 楽 画 タ ー ボ (マウ ス 付 ) CZ-114SF | 2D・5"FD 版 | 17,800 円 | X1turbo シ リー ズ 用 | 作画 ツー ル に 、 ビ デオ 編集 に 、 活 用 多彩 


オフ スワ ー ク を 効率 化す る 況 用 ビジ ネス ツー ル 


る この ソフ ト の 使用 に あたっ て は 2D・5"FD が 2 基 必 要 で す ※Multiplan は 米国 マイ クロ ソフ ト 社 の 登録 商標 で す 。 


話 赴 の 0GO が すべ て の X7 で 


X1 LOGO CZ-134SF 2D・5"FD 版 9,800 円 X1 シ リー ズ 用 基本 的 な L0GO に サウ ンド 、 マ ル チ タ ー ト ル 機 能 を プラ ス 


turbo LOGO( 漢 字 版 ) CZ-117SF | 2D:5'FDA& | 18,8003 | X1turbo シ リー ズ 用 | 漢字 が 使え る 本 格 多 機能 LOGO 


CPM ラン ゲー ジ シ リー ズ 


turbo CP/M V2.2 (RFR) CZ-130SF | 2D・5"FD 版 | 14,800Р9 | X1turbo シ リー ズ 用 | ター ポ 特有 の ハー ド を サポ ー ト 、WORD МАЗТЕАТМ4Ј 


| 


ラン ゲー ジマ スタ ー(CP/M®) | CZ-128SF | 2D・5"FD 版 9,800 円 | X1/X1turbo シ リー ズ 用 | 手軽 な CP/M、WORD MASTERTW 付 


FORTRAN CZ-115LF 2D・5"FD 版 13,800 円 LISP CZ-120LF 2D・5"FD 版 13,800 円 
с CZ-116LF 2D・5"FD 版 13,800 円 FORTH CZ-121LF | 2D・5"FD 版 13,800Ғ3 
COBOL CZ-118LF 2D・5"FD 版 13,800 円 PASCAL CZ-125LF | 2D・5"FD 版 13,800 円 
PROLOG CZ-119LF 2D・5"FD 版 13,800 円 APL CZ-126LF 2D・5"FD 版 13,800Ғ3 
ゃ ラン ゲー ジ シ リー ズ の 使用 に あたっ て は 、CZ-130SF、CZ-128SF、 ま た は CZ-5CPM が 必要 で す 。 ※CP/M は 米国 デジ タル リサ ー チ 社 の 登録 商標 で を WORD MASTER は 米国 マイ クロ 
プロ 社 の 登録 商標 で お 
@ 価格 は すべ て 標準 価格 で す 。 


Wtr -ARTIE $Í 。 問い 合わ せ は … シ ャ ー プ 喘 電 子 機器 事業 本 部 テレ ビ 事業 部 
第 4 商品 企画 部 〒162 東京 都 新宿 区 市 谷 和 幡 町 8 番地 谷 (03)260-1161( 大 代表 ) へ 。 
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@FB-506-PC を turbo に 接続 
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X1 turbo で 専用 レコ ー ダ じゃ な い 
レコ ー ダ を 使う 方 法 ・ 


х1 HuBASIC 一 覧 
HuBASIC の バス ワー 
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X4 turbo/F/6 に カセ ッ ト ・ キ ー を / 88 
旧 BASIC で 8X1 6 ド ツ ド の フント 


| マシ ン 語 打ち 込み 
DISK BACK UP MAKER X1・ 


単行 本 

シス テム 破り 

KDD 「 ハ ッ カ ー 事 件 」 を 中 心 に 国境 を 越え る 犯罪 ニオ ン 
ライ ン 下 罪 の 問題 点 を を ぐり ます . 
赤松 則 ・ 広 療 近 広 著 定価 1,200 円 (〒200) 
ハッカーズ 

1950 年 代 か ら 現在 まで , コ ンピュータ 技術 の 発展 に 寄与 
し て きた ハッ カー たち , 彼ら の 実像 を 紹介 し ます . 
ステ ィ ー ブ ン ・ レ ビー 著 近日 発売 
エス ピオ ナー ジ 

シリ コン ・ バ レー で 起き た 6 つの 産業 スパイ 事件 を 。 ア 
メリ カ 側 の 立場 か ら 描い た ノン フィ クシ ョ ン 。. 
ジョ ン .D. ハ ラム カ 著 ШЖ XR A5 判 248 貢 
定価 1,600 円 (〒250) 
イン マオ マニ コア 

実際 に アメ リカ の パソ コン 通信 の すべ て を 経験 し た 女性 
の 告白 に 基 づ いて 書か れ た 小説 。 
E. フ ェ ラ リー ニ 著 竹本 隆 訳 ASTISER 
定価 1,800 円 (〒300) 
ダイ ヤ モ ン ド 投 資 教 本 

ダイ ヤ モ ン ド を 投資 対象 と し て と ら え ダグ ダイヤモンド の 選 
+. si ど を 中 心 に 書い た ダイ ヤ 投 資 実践 
の 手引 き 書 . 
N. Stein 著 KAE R 菊 判 144 貢 定価 1,900 円 (〒250) 
フォ ン ・ ノ イマ ン と ウィ ー ナ ー 

現在 の コン ピュ ー タ 社会 の 生み の 親 と も いえ る 2 КОВ 
ИЕ, 研究 活動 を 伝記 風 に まとめ た も の . 
MEN 高井 信勝 監訳 A5 判 490 貢 定価 2.900 円 
〒300 


工学 選書 シリ ー ズ 
半導体 レー ザ と 応用 技術 

半導体 レー ザ を 使っ た シス テム や 機器 の 開発 、 お よび 半 
導体 レー ザ 自 体 の 開発 , 応用 に 携わる 技術 者 , また 学生 向 
け の 半導体 レー ザ 技 術 入門 書 で す . 
米津 宏 雄 著 定価 2,500 幅 
情報 ネッ トワ ー ク 技術 

本 書 は 情報 技術 の 2 大 要素 で ある 「 コ ンピュータ 技術 」 
と 「 通 信 技 術 」 の 基礎 概念 を まき とめ, 各 分 野 と の 技術 的 か 

わり を 述べ て いま す . 
伊藤 益 敏 ・ 広 田 修 共著 A5 判 240 貢 定価 2.000 円 (〒250) 
68000 マ シン 語 プ ログ ラミ ング 

本 書 は 68000 の 特徴 を 把握 で きる よう , プ ログ ラミ ング の 
基礎 と 命令 セッ ト を 詳細 に 解説 し て いま す . 
村山 仁 朗 者 B5 判 272 頁 定価 2,000 円 (〒250) 
C 言 語 と 周辺 制御 

基本 的 な C の ブログ ラミ ング 方 法 と その C 言語 に よる 


k uec 回 路 の 作り 方 な を ど を 解説 し て いま す . 


№ A- LEER A5 判 248 頁 定価 2.000 円 (〒250) 


I/O BOOKS 


ソフ トウ ェ ア ・ ラ イブ ラリ 第 3 KS] 

シャ ー プ の ポー タプ ルコ ンピュータ PC-1600K の プロ 
グラ ム を 約 50 本 掲載 し て いま す . 
B5 判 定価 2.500 円 (〒300) 
実戦 C プ ログ ラミ ング 

パズル や ゲー ム の 問題 を コン ピュ ー タ で 解く に は どう す 
れ ば よい の か ? その プロ グラ ム を C で 書く と し た ら ど う 
な る の か を 解説 し ます . 
小野 芳彦 著 近日 発売 
6809 マ シン 語 の 本 

6809 マ シン 語 の イン スト ラク ショ ン ・ モ ッ ト や マシ ン 語 
プロ グラ ミン グ の 仕方 が わか る マシ ン 語 入門 書 . 
近日 発売 
電子 メー ル と メッ セー ジ 通 信 

現在 利用 可能 な 電子 メー ル ・ シ ステ ム と サー ビス を 概観 
し て お り , 国際 標準 で 定義 され て いる メッ セー ジ 通 信 モ ア 
ル に つい て 述べ て いま す . 
ビー ター・ バ パー ベ スト 編著 水野 忠則 監訳 АББА 
定価 3,000 円 (〒300) 


ucspPASCAL 演 習 ( 改 訂 版 〕 


多く の マイ コン に イン プッ ト さ れ , いま や 標準 的 PAS- 
CAL と な っ た UCSD PASCAL の 開発 者 Bowles 2% Ж, 
ケネス .L. ポ ウル ズ 著 A5 判 424 頁 定価 3,500 円 (〒300) 


Ada, C, Pascal 


Ada, C, Pascal, 以上 3 つの プロ グラ ミン グ 言 語 を 比較 ・ 
評価 し た 論文 を 15 編 掲載 し て いま す . 
アラ ン ・ フ ォ イ ヤー/ ナ レイ ン ・ ゲ ハー ニ 編 宇井 康隆 訳 


A5 判 336 貢 定価 3,000 円 (〒300) 


CAP-X 入 門 〔61 年 度 版 

わずか 12 の 命 
アセ ンプ ラ 人 入門 者 向け 、 過 去 7 年 の 問題 と 解説 付 . 
赤松 ЖЖ A5 判 428 貢 定価 2.500 円 (〒300) 


И (61 FER) 

第 2 種 情報 処理 技術 者 試験 を 徹底 解説. 受験 者 の テキ ス 
ト と し て 格好 の 書 . 過去 12 年 の 問題 と 解説 付 . 
赤松 ЖЖ A5 判 612 貢 定価 2.500 円 (〒300) 
UNIX ハ ンド ブッ ク 

米国 で 著名 な コン サル タン ト 、 ジー ン ・ イ ェ ー ツ 女 喝 の 
1 ェ ー ツ ・ ベ ンチ ャ ー が まとめ た UNIX 関連 の 情報 集 . 


ー ツ ・ ベ ンチ ャ ー ズ 編著 A5 判 320 貢 

ха, 500Ғ3( 7300) 
C プ ログ ラマ ー ズ ・ ハ ンド ブッ ク 

C 言語 に 関す る 重要 情報 を すべ て 網羅 し た 。 
レン ス ・ マ ニュ アル の 決定 版 / 
トム ・ ホ ー ガ ン 著 宇井 康隆 訳 B5 判 272 貢 定価 1.900 円 
(〒250) 
ビジ ネス ・ エ リー ト の た め の パ ソコ ン 通 信 入 門 

電話 綱 と パソ コン を 結び 付け た パソ コン ・ デ ー タ 通信 . 
情報 戦争 を 生き 抜く エリ ー ト ・ ビ ジネス マン 必読 の 1, 
那須 正夫 著 A5 判 232 貢 定価 1.900 円 (〒250) 
7 色 カ ラー ドッ ト ・ ブ リン タ CE-140P 活 用 術 

シャ ー プ の ボー タプ ブル ・ コ ンピュータ PC-1350/1450 対 
応 の プリ ンタ CE-140P の 機能 と 使い 方 を 詳細 に 解説 
B5 判 136 頁 定価 1,500 円 (〒250) 
BASIC に よる 数 学 ラ イプ ラリ 

BASIC に よる 方 程 式 , 関数 の 解法 。 基本 的 な 作図 プロ グ 
ラム を 収録 、 マイ コン を 数 学 に 利用 する 方 に は 必携 
野呂 KE B5 判 176 貢 定価 2,500 円 (〒250) 
速 習 CAP-X 

CAP-X の 各 命 令 を 段階 的 に 確実 に つか め る よう に , № 


Ж, 応用 , 実践 問題 の 形 で 記述 . CAP-X 入 門 7 Кет йн. 
赤松 LI A5 判 192 頁 定価 1,600 円 (〒250) 


パソ コン で VHD を 楽し む 本 

本 書 は , VHD ビデ テオ ディ スク の 原理 か ら 
VHD を 楽し むための ノウ ハウ を 満載 し て いま 
日 本 ビク ター 平田 澤 美 著 B5 判 216 頁 定価 2, S00 (F250) 
日 本 語 dBASEII 入門 

パソ コン 用 デー タベース ・ ソ フト の 中 で も 80% 以 上 の シ 
ェ ア を 誇る 人 気 ソ フト 「dBASE II」 の 日 本 語 版 最新 バー ジ 


ョ ン を 解説 
羽田 雅子 著 А5 判 216 貢 定価 1900 円 (〒250) 
コン カレ ント CP/M 入 門 

マル チ ユ ー ザ ー、 マル チタ スク 用 に 改良 し た CP/M ЕЙ 
細 に 説明 し た 日 本 で 初め て の 解説 書 で す . 
ЖЕЖ Ж A5 判 248 貢 定価 1,900 円 (〒250) 
PA-500 DB ポケ コン の すべ て 

シャ ー プ の DB( デ アー タベース) ポケ コン PA-500 の 6 大 機 


能 と その 使い 方 、 応 用 例 な ど を 詳細 に 解説 し て いま す . 
A5 判 144 貢 定価 1,500 円 (〒250) 


Small-C ハ ンド ブッ ク 

CP/M 上 で 動く Small-C (C 言語 の サブ セッ ト ) ФАЙ 
と コン バイ ラ に つい て の 解説 書 で す . 
JE. ヘ ンド リッ クス 著 小野 芳彦 監訳 A5 判 272 頁 
定価 1,900 円 (〒250) 
パソ コン 通信 の 本 

パソ コン ・ デ ー タ 通信 の ノウ ハウ を 集結 , カプ ラ と ケー 
プル が あれ ば 全国 どこ へ で も つなが り ま す . 
横田 秀次 郎 著 A5 判 200 貢 定価 1,900 円 (〒250) 
PC-1500 ポ ケ コ ン 大 研究 

ポケ コン PC-1500 シリ ー ズ の すべ て が この 1 ин 5 
まっ て いま す . BASIC か ら マ シン 語 ま で プロ グラ ム 制 作 の 
ノウ ハウ を 全 公 開 . 
1/O 編 集 部 編著 A5 判 496 頁 定価 1.900 円 (〒300) 
dBASETII 入 P 

パソ コン 用 デー タベース 「dBASEII」 を 初心 = аза 
ラン まで 活用 で きる よう に , 実例 と その 解説 を 収 
森 祐一 監修 羽田 雅子 著 A5 判 216 綱 定価 1, ЖИНГЕ та) 
PASCAL 入 門 〔 改 訂 版 〕 

プロ グラ ミン В PASCAL を 例題 練習 問題 ・ 問 題 の 
3 段階 の 形式 で 解説 実践 的 な 内 容 に な っ て いま す . 
LR. ウ ィ ル ソン /A.M. ア ディ マン 共著 飯島 純一 訳 
A5 判 208 頁 定価 1,900 円 (〒250) 
カラ ー プ ロッ タプ リン タ CE-515P 大 活用 

各社 ・ 各 機種 に 対応 で きる シャ ー プ 4 色 カ ラー プロ ッ タ 
プリ ンタ CE-515P の 使い 方 を 。 詳細 に 説明 し て いま す . 
デジ タル 情報 研究 会 編著 A5 判 176 貢 定価 1.900 円 (〒250) 
基礎 か ら の C 言 語 入 門 

いま 最も 注目 され て いる C 言 語 に つい て 基礎 か ら 応 用 
まで を わか りや すく 解説 全体 が 例題 形式 で 構成 され て い 


卓上 リフ ァ 


5, О 


zT. 
Ма 仰 ・ 大 和正 信 著 A5 判 336 貢 定価 2,509 円 (〒250) 


令 を 覚え る だ け で アセ ンプ ラ が 理解 で きる . 


ポケ コン 通信 ガイ ド ・ ブ ッ ク 
シャ = 20: # 2 У PC-1350/2500(S) 用 シリ アル 1/F 
ユニ ッ ト "レベ ル ・ コ ン バ ー タ CE-130T” に よる ボケ コン 
通信 を マス ター する た め の 本 で す . 
1/O 編 集 部 編 B5 判 216 貢 定価 1,.900 円 (〒300) 
MZ-5500/6500 テ クニ カル ・ マ ニュ アル 
マル チ ウ イン ドウ な どの 高 機能 を 盛り 込ん だ この シリ ー 
ズ の 持つ 高い 機能 を さら に 幅広 く 活 用 する た め の 書 、 


B5 判 304 頁 定価 3,000 円 (〒300) 


Z80 マ シン 語 入 門 


本 書 は マシ ン 語 の 打ち 込み 方 か ら ア モン プ ブル, 動か し 方 
まで 完全 に サポ ー ト マシン 語 プロ グラ ム 作 り は この 1 M 
で OK cT. 
武蔵 野 マ イコ ン ・ ク ラブ +!/O Engine Room 著 
A5 判 320 頁 定価 1,900 円 (〒250) 


OS- 9 入門 

CPU6809 専 用 の オペ レー ティ ング ・ シ ステ ム OS- 9 を 徹 
底 的 に わか りや すく 解説 、 
那須 正夫 著 A5 判 224 貢 定価 1.900 円 (〒250) 


ео 
ー ド スタ ー は 代表 的 な 英文 ワー プロ の アプ リ ケ ー シ ョ 
Бы ト と し て 広く 世界 で 使わ れ て いま す 。 本 書 は ワー 

プロ の 手引 き 書 と し て ,。 わ か りや すく 解説 し ます . 
アー サー・ ネ イマ ン 著 АЗИИ 定価 2.000 円 (〒250) 
デー タ は こう 読め . ノ ー 簡 単に わか る 多 変 量 解析 一 

パソ コン を 利用 し た 多 変量 解析 の 手法 を , 具体 例 を あげ 
な が ら 解 説 。 PC88 シ リー ズ , PC98 シ リー ズ 、QC-10、HC 
-20 に 対応 、 
アイ ・ ビ ・ シ 編著 A5 判 160 頁 定価 1.600 円 (〒250) 
BASIC 入 門 一 ドラ ゴン と 学ぶ プロ グラ ミン グー 

イラ スト を 豊富 に 使い BASIC を 基礎 の 基礎 か ら わ か り 
や すく 。 面 向く 解説 . 子供 か ら 大 人 まで 楽し く 学 べ ま す . 
ロドニー・ ザ ックス 著 BSH200R 定価 1.500 円 (〒250) 
6809 マ シン 語 入門 

2 進数 ,16 進 数 の 基礎 か ら 始 まり 6809CPU の 仕組 を 解説 
し て いる は ほか 、, 実戦 的 プロ グラ ミン グ ・ テ クニ ッ ク を 説明 、 
6809 フ ァ ン 待望 の マシ ン 語 入門 書 で す 。 
R. ザ ックス /W. レ イ ビ ア ッ ク 共 著 A5 判 396 頁 
定価 2.500 円 (〒300) 


VisiCalc 入 門 
ҤЕ E kR £ И 2 (EAM ON Ъ TA VisiCalc (ビジ カ 
ルク ). バ パソ コン を 初め て 使う 人 で も 使い こなせ る よう 書か 
れ た VisiCalc 入門 書 の 決定 版 で す . | 
ダグ ラス ・ ハ ー ガ ー ト 著 А5%1224Ң 定価 2,000 円 (〒250) 
FORTH 入 門 
実用 高級 言語 "FORTH* の 基礎 か ら 応 用 まで を , 適 例 を 
掲げ ながら わか りや すく 解説 し て いま す . 
レオ ・ プ ロディ ー 閉 АЯ Қ ае 500 円 (〒300) 
PC-5000 ポ ー タ ブル ・ コ ンピュータ 入門 
1669 F ° Ж— #7Z + 3 > É z — ? PC-50002 4 $2 


NERIS, 表 計 算 簡 易 ソ フト TOOLPLAN を わか りや すく 解説 
池田 純一 著 АЗИЯ 定価 2,000 円 (〒250) 


TOOLPLAN'" ART, [2] 
PC қары БЕЗ ЫР ы У 7 F TOOL- 
PLAN'W. その 合い 方 か ら 実用 例 ま で を 満載 
B5 判 各 定価 2, 900 円 (〒300) 
PC-1401 入 門 か ら 応 用 まで 
ポケ コン と し て , 関数 電卓 と し て , 1 台 で 2 役 の 機能 を 
持つ PC-1401 の 入門 か ら 応 用 まで を 徹底 解説 
A5 判 256 貢 定価 1.600 円 (〒250) 
ポー タブ ルコ ンピュータ ビジ ネス ソフ ト 
【PC-5000 汎 用 サナ ブルー チン 集 】 
16t - z ト ・ ポ ボー タプ ルコ ンピュータ PC-5000 の 多 方 面 に 
利用 で きる サ プ ブルー チン を この 1 冊 に 収録 
В5+1288И 定価 2,500 円 (〒300) 
リレー ショ ナル ・ デ ー タ ベー ス の 使い 方 
本 書 は CP/M マ シン で 使え る リレー ショ ナル ・ デ ー タ ベ 
ー ス GBS を 例 に 挙げ , 概念 や 使い 方 を 具体 的 に 解説 し ます . 
B5 判 定価 1,500 円 (〒250) 
UNIX 入 門 


ミニ ュ ン の 標準 的 を OS と し て 知ら れる UNIX の 入門 
№. 豊富 な 実行 例 と 実践 的 な 内 容 で 好評 を 得 て い る 

sl トー үн . イ ェ ー ツ 共著 A5 判 520 貢 定価 2,900 円 
〒300 


プロ グラ ム 電 卓 に よる 土木 設計 

土木 OERE) の 設計 に 手軽 な プロ グラ ム 電 卓 (FX-602P) 
を フル に 使う た め の 書 . 
佐々 木 昌 訓 著 B5 判 240 頁 定価 2,800 円 (〒300) 


BASIC サ プル ー チ ン ・ ハ ンド ブック 


サブ ルー チン 化す れ ば ビギナー で も 楽に プロ グラ ミン グ . 
役立つ サ プ ル ー チ ン 実 例 を 満載 . 
K. ト ラク トン 著 A5 判 160 頁 定価 1,500 円 (〒250) 


AW YYZ EANA 


\ ら の 血 が 騒ぐ . ジョ イス ティ ッ ク を 握り し め , 
涙 を 流し , 電子 の 世界 を 駆け めぐ る . 
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ZEPLBI па ај о B M 


1984 年 , 当時 16 歳 の 高校 1 年 生 だ っ た 高 科 少年 に よっ て 
FM- 7 の 中 に 創り 出さ れ た UOOTOY の 奇妙 な 世界 は , そ 
ожа ARAA L, 今 で は 多く の 機種 に 移植 さ 
+, その 世界 を 広げ て いま す . 

マッ チ 棒 が 絶え ず こ ろ げ 回 り , ラン プ か ら は 輝く 爆弾 が 
降っ て くる と いう この 世界 の 支 離 減 裂 さ は , ルイ ス ・ キ ャ 
ロ ル の 不思議 の 国 と いい 勝負 だ と 言え る で し ょ う . 

今回 紹介 する プロ グラ ム は , この UOOTOY OX! МЕС, 
100 面 分 の マッ プ ・ デ ー タ を 備え て いま す . それ で は 主人 公 
の TENTEN RoT, あな た も この ワン ダー ラン ド へ 行 
っ て らっし ゃ い 、. 


UOOTOY ワ ー ル ド へ の 
| 入国 準備 


UOOTOY の 世界 へ 旅立つ に は , リス ト 1 一 4 の 4 つの 
プロ グラ ム を 打ち 込ま な けれ ば な り ま せん . これ さえ る 入力 
すれ ば , あな た は 100 画 面 分 の UOOTOY の 世界 を 旅 す る 
こと が で きま す . 

さて , 入力 方 法 で す が , HuBASIC (CZ-8CB01 ) を 使っ 
<, リス ト 1 か ら リ スト 4 まで を 順に 打ち 込み . テー プ に 
セー ジ し で くだ きい 。 

図 1 に 各 リ スト の 機能 と ファ イル ・ ネ ー ム を 示し ます . 


UOOTOY ワ ー ル ド へ の 
入国 方 法 


UOOTOY の 起動 は リ スト 1 を ロー ド し RUN させ れ 
ば OK で す . 自動 的 に リス ト 2, 3 を 読み 込ん だ 後 、 リ ス 
豪華 な お 邪魔 キャ ラ が も り だ くさ ん 


^ 
LI LL mee тате тате 
ж m" Бы 


= ә - 
самые емее кта отет = 


uw nl 
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теше ял uu 
ы Г ан m. 
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= 
= 
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LIST1 
LIST2 
LIST3 
LIST4 


F 4 の 100 面 分 の デー タ が ロー ド さ れ , あな た は ЏООТОУ 
の 世界 へ 放り 込ま れ ま す . 

まず 最初 に . トリ が ガ ・ ポ タン の 数 を きい て きま すか ら , 
0242] АЛ ZZO, 次 に パス ワー ド の 入力 を 要求 
し て きま す が , 初め て ゲー ム を する 人 は [| RETURN | を 入力 
し て くだ さい . 1 面 か ら ス ター ト し ます . 

な お , パスワード は 5 面 ご と に 表示 され ます . 5 面 以後 
進み , 途中 で ゲー ム ・ オ ー バ ー に な っ た 場合 で も タイ トル 
画面 表示 中 に [EE] を 押す こと に よっ て , パス ワー ド を 見 る こ 
と が で きま す . パス ワー ド 入 力 画 面 で .、 この パス ワー ド を 
入力 し て 画面 ナン バ を 選択 すれ ば , 希望 の 画面 か ら ゲ ー ム 
を 開始 で きる わけ で す . 


UOOTOY ワ ー ル ド て の 
旅 の 心得 


⑧ 旅 の 目的 と 方 法 

消火 器 の イメ ー ジ か ら 創 り 出さ れ た と いう 主人 公 キ ャ ラ 
クタ TENTEN を 動か し て GOAL を 踏ま せる の が 目的 . 
到達 すれ ば 次 の 面 へ 進む こと が で きま す . キー 操作 を 図 2 
に 示し ます 。 

る @ ボ ポ ボー ナス 点 に つい て 

画面 右 に 表示 され て いる ボー ナス 点 は , ゲー ム ・ ス ター 


ト 時 で 1000 点 あり , 時 間 と と も に 減少 し て いき ます . そし TENTEN ił, Ty FH, 光る 爆弾 な ど に 触れ る と 昇天 


て これ が 0 点 に な る と , TENTEN が 1 人 昇天 . 1 面 ク リ し て し まい ます . 他 に も 危険 が いっ ぱい で すか ら 心 し て く 
ア ご と に 残り の ボー ナス 点 が スコ ア に 加算 され ます . だ さい . な お TENTEN は , ボク サー の 腕 に 乗る こと が 可 
久 登 場 キ ャ ラク タ に つい て НЕС, へ ディ ング を か け て 腕 を ひっ こま すこ と も で きま す . 


ーー 


1000 CLEAR &HAFFF:WIDTH 40:INIT:PALET 1,0 
1010 LOADM"TRANSQG",&HF000:LOADM "UOOTOYG",&HB000:CALL &HF000 


1030 LOADM "MAPG",&HB000:CALL &HF014 
FLA rss | `1 U Z= R s 


ЖЕ :Sum 


ALTE YU 


リス ト 3 UOOTOY@ 


ALTE YU 


リス ト 3 UOOTOY@ 


Add +0 +1 +2 +3 +4 +5 46 +7 +8 +9 +A +В +C +D +E +F :Sum 
C500 11 ІС ІС 24 18 15 20 15 1F 20 1C 15 1C 1F 26 15 :B5 
C510 25 ІЕ IF 24 1F 29 19 24 19 23 IF 25 22 20 ІС 15 :FF 
C520 11 23 25 22 15 16 IF 22 29 IF 25 24 1F 20 ІС 11 :E4 
С530 29 25 1F 1F 24 ІҒ 29 24 18 11 ЈЕ 1B 29 1F 25 26 :11 
C540 15 22 29 1D 25 13 18 27 15 27 19 ІС ІС 1р 15 15 :C8 
C550 24 19 1E 1E 15 28 24 12 19 17 17 11 1D 15 12 29 :B1 
С560 15 12 15 15 00 00 00 00 00 00 00 00 00 00 00 00 :51 
C570 00 00 00 00 00 00 00 00 QQ QQ 00 00 00 00 QQ QQ :00 
С580 06 05 ТЕ С6 30 12 13 23 10 F8 C9 00 00 00 00 QQ :98 
C590 1A C6 30 ВЕ C8 ЕЗ El C3 C4 21 00 00 00 00 00 QQ :02 
C5A0 00 00 00 00 00 00 00 00 00 QQ QQ 00 00 00 QQ QQ :00 
C5B0 00 00 00 оо 00 00 00 00 00 00 00 00 00 00 00 00 :00 


С4Е0 34 34 34 34 34 73 00 00 00 00 00 00 00 00 00 00 :77 С970 04 25 20 El ED 78 ЕВ С9 Е5 С5 B7 20 03 СІ Е1 C9 :42 
С4Е0 00 00 00 00 до 00 00 00 00 00 00 00 00 00 00 00 :00 С980 47 2А ВЗ 11 2B 7С В5 20 ЕВ 78 3D 18 ED Е5 CD 9В :B3 
--------------------------------------------------------- С990 19 ТЕ El С9 Е5 CD 9В 19 77 Е1 С9 СВ 3С 16 00 
Sum ET E7 DO Ср СС 09 9A 9E B5 CC CF B6 CD св CB Ве :91 C9A0 EB 29 29 29 29 5A 16 00 19 11 00 EO 19 C9 CB 
С9В0 CB 25 ДЕ 7C FE 02 D8 FE ЗЕ DO 7D FE 02 D8 FE 
ссе ре 79 F5 CD 8D 19 CD DD 19 Е! CD 94 19 CD DD 


агары 


リス ト 3 UOOTOYG 


СЭЕ@ 25 2D 2D CD 5B 16 Е! Е! C9 E5 25 25 2D 2D CD 9A :48 СЕ70 52 4F 4F 4D 00 FO 01 CO 03 01 00 06 ТЕ 1E 54 45 :2D 
C9F0 16 СВ ЕС 06 04 C5 44 4р ED 78 2F ED 79 03 ED 78 :9F CE80 4E 44 4F ДЕ 00 10 00 50 02 01 05 01 ВЕ 1E 43 4F :D6 


МОУ 


J スト 3 UOOTOY@ 


ртед 44 DD 77 1B DD 36 1С 01 21 01 00 CD 1B 25 DD 86 :75 
ртед 1B 20 30 DD 7E 1А FE 02 30 29 21 03 00 CD 1B 25 :6A 


Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +С +D +E ФЕ :Sum 
D800 ЕЕ 01 20 17 DD 7E 1D B7 20 11 DD ТЕ 1A B7 20 ОВ :ED 
D810 DD 36 1B 02 DD 36 1С 02 C3 23 28 DD 36 1р 01 DD :7р 
D820 36 1B 63 DD СВ 0D 46 20 24 21 01 00 CD 1B 25 B7 :р9 
D830 20 0D 21 02 00 CD 1B 25 FE 10 30 03 C3 4D 28 DD :B3 
D840 36 1D FF DD 36 1B 04 21 7B 1F CD E1 1D 3E 30 CD :45 
D850 95 26 B7 28 ФЕ DD 36 1р FF DD 36 1B 63 21 9F 1Е :47 


ACID TUIS 


リス ト 3 ЏООТОУ а 


DC79 
DC80 
Dc90 
DCA9 


リス ト 3 UOOTOYE 


E5EQ 03 ТА ВЗ 20 F8 C9 CD 26 35 01 00 18 21 ТЕ 35 11 :38 
Е5Е0 00 ДА ED 59 OC ТЕ Ер 79 2C Өр 1С 15 20 F4 C9 6F :F6 


МОС 
EREK 13 


агарға” 


リス ト 4 МАРа 


B8BO 01 ФЕ 18 04 02 2D 30 2D 01 01 18 18 03 1А 19 22 1 
B8CO 01 1E 18 18 03 1А 19 22 01 OF 13 10 02 2р 28 22 3 
вврд 01 ФЕ др OF 01 2D 28 22 01 ФЕ 07 10 02 2р 28 22 
ВВЕО 03 04 38 2E 00 00 1С 07 00 FF FF FF FF FF FF FF 
B8F0 08 02 26 01 11 00 00. 00 09 04 28 01 12 00 00 00 


10 


алашақ 


リス ト 4 MAP@ 


11 


ACID Ue 


リス ト 4 MAP @ 


CB79 
CB89 


р4р0 00 00 00 00 


12 


МЕСТУ 


UAM МАР 


D4EQ 01 01 01 1E 02 ОВ OC OD 01 1E 02 17 04 18 19 1A :CE 
D4F@ 01 01 09 03 02 22 01 03 20 1E 06 00 12 01 04 38 :C9 
Sum 6В F4 B6 7D 4C A8 СС 1E 43 ЕЗ ВІ ЕЕ 5B DF BC 35 :60 
Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :Sum 
D500 01 01 10 03 02 22 2B 2C 10 04 1C FF 06 01 14 1C :F6 
D510 11 04 2D FF 06 01 22 2D 28 08 12 01 12 01 08 38 :2D 
D520 03 03 31 2E 0B 08 02 09 00 FF FF FF FF FF FF FF :7C 
D530 01 1E 18 04 03 1A 19 18 01 1E 14 01 03 2D 2D 01 :1B 
D540 05 1р 14 07 FO 01 5р 88 01 01 14 01 03 2D 2D 19 :A9 
D550 01 01 15 04 04 18 19 1A 01 1E 13 07 03 1А 19 18 :F1 
D560 01 1E ӨС 1E 01 OD OC OB 01 01 др 07 04 18 19 1A :D3 
D570 20 1E 1C 00 00 00 04 34 08 04 26 01 12 01 00 00 :D8 
D580 03 03 38 24 FF 00 02 14 00 06 01 01 09 2D 01 02 


D590 09 1B 01 01 09 30 FF FF 01 1E 18 17 03 1A 19 18 :F9 
D5A0 01 1E 01 1E 01 OD ӨС OB 01 01 02 17 04 18 19 1A :CD 
D5BO 01 1E 16 03 01 22 03 01 01 02 18 ІС 02 1B 1B 1B :E9 
D5CO0 2B 34 2C FF 00 00 04 34 2А 30 28 FF 00 00 04 34 :7В 
0500 29 2C 24 FF 00 00 04 34 28 28 20 FF 00 00 04 34 :57 
D5E0 20 1E 06 00 00 00 04 38 01 1E OE 03 01 22 03 01 :D7 
D5F0 03 01 38 28 OD 00 1C OE 00 FF FF FF FF FF FF FF :94 
Sum C2 59 B5 C9 22 CA 26 28 9A E9 23 5B 48 29 FF 56 :9A 
Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 ЖА +В +С +D +E +Е :Sum 
0600 01 01 18 17 03 1А 19 18 01 01 01 1E 02 OB OC OD :C6 
D610 01 1E 02 17 04 18 19 1A 20 1Е 06 00 00 00 04 38 :07 
D620 01 01 09 03 02 22 01 03 28 08 12 01 00 00 08 38 :B9 
D630 29 04 31 01 00 00 04 38 2A 08 30 01 00 00 04 38 :3A 
D640 2B 0С 2F 01 00 00 04 38 03 02 38 2E 08 00 02 09 :21 
D650 00 ТЕ 7р P4 09 7р D4 ФА 01 OF 18 05 05 03 02 01 :6C 
D660 01 ОВ 18 04 03 1A 19 18 01 10 14 05 06 01 02 03 :АС 


D680 01 ОВ 13 07 03 1A 19 18 01 10 OC 05 06 03 03 03 
р690 01 14 OF 07 03 1A 19 18 01 OF 08 05 05 03 03 03 :A4 
D6A0 01 ОВ OB 07 03 1A 19 18 01 10 04 03 02 01 03 28 :В2 


рбсд 08 18 28 01 12 01 00 00 09 26 20 FF 12 01 00 00 :BD 
рбрд да 18 18 01 12 01 00 00 OB 26 10 FF 12 01 00 00 :А1 
D6EQ 03 03 24 2E 00 00 10 04 FO 00 5E F1 00 00 00 00 :AB 
D6F0 00 ОҒ 13 OF 12 10 OF 10 OE ОЕ ОВ OF QA 10 07 10 :DA 
Sum 72 4D D1 69 5A 8B AB 5Е 8F FD 75 6B 58 45 4E 1C :5В 


Ада +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +В +С +0 +Е 
2700 06 00 FF ЕЕ 03 01 1Е 24 07 07 02 
D710 01 01 18 17 03 1A 19 18 01 01 01 1E 02 ов 0D :C6 
D720 01 1E 02 17 04 18 19 1A 01 01 0A 03 02 22 01 03 :BE 
D730 01 08 18 04 06 03 03 03 01 9C 14 08 02 01 02 03 :65 


D740 01 14 15 04 08 03 03 03 20 1Е 06 00 00 00 04 38 :BF 


*F :Sum 
QA :60 


RAND A Som n dox 


RANI CO $35 Mee а 


ХІ turbo II を 買い まし て , 某 メ メ よ り は エエ ん じゃ な いか 
と 自己 満足 し て 使っ て いま す が , この turbo П, カセ モ セット は 専 
用 レコ ー ダ が な いと 使え な いと き て いる . ディ スク が 2 台 付 い 
て いる ん だ か ら 必 要 な いと いっ て し まえ ば それ まで だ けど 使え 
な い ど な る と 使い た いも の . 専用 レコ ー ダ を 買う の は シャ ク に 
さわ る . Ф: САЖ, BASIC を ご ま か し て 使っ て し まお う , と 
考え た の が この プロ グラ ム . 

IOCS を さん ざん 解析 し た ん だ けれ ども , 結局 これ だ け で い 
いこ と が わか り ま し た . こい つ を , “Startup. Bas" に で も 入れ 
て お け ば , いつ で も カセ ッ ト が 使え る と いう こと に な る の で す . 

Cb, 弱点 も ある ん で す . まず , ІНВАЅІС (NEW BASIC 
も IOCS ル ー チ ン は お な じ し と いう こと な の で 使え る は ず ) で し 
か 使え ませ ん . turbo の カモ セッ ト 関 係 の ルー チン は , BIOS ROM 
だ か ら , 書き 替え る こと が で き な い の で す . Kl, ロード レベ 
ル が 低かっ た り , 安物 の ラジ カセ な ん か じゃ うま く 読 み 込 
と が で き な い よう で す . も ちろ ん , カセ ッ ト ・ コ ント ロー ル も 
使え を ま せん. 

それ に , これ は 重大 な こと な ん で す が , 
ПРВУ И. Ht, 
すか ら . Cb, 


IPL 起動 の ゲー ム な 
IPL ROM を 書き 替 そ た ん じゃ な に いん で 
いい こと も ある か ら , 基 非 使っ て みて くだ さい . 


ЕЕ 12 00 00 00 :D7 
ЕЕ 00 00 08 38 :4С 
00 16 2D 01 OC 15 04 04 18 19 1A 
D780 01 13 15 04 04 18 19 1А 00 00 00 00 QQ QQ QQ QQ :7C 
00 01 09 18 17 03 1А 19 18 :87 


X1 turboc 専用 レコ ー ダ じゃ な い レ コー ダ を 使う 方 法 


画 青 木 郁夫 


参考 文献 

1) 有田 隆也 №: 
アド バシ ツジ 

[プロ グラム) 
10000 POKE 4/НОВТЕ, 
10100 РОКЕ &H0BA3, 
10200 POKE %НОВВ2, 

ケー ブル の 作り 方 


ハー ドウ ェ ア 解 析 X 1 シス テム 研究 室 , 日 本 ソ 


&HB7, 0,0 
& НВУ, 0, 0 
&НВТ, 0,0 


| WRITE DATA 


READ DATA 


DIN 7 ピン の オス と , ミニ ジャ ッ ク を 2 個 買 っ て , 図 の よう 
に 結線 し ます . 市 販 の CMT 用 ケー ブル を 買っ て DIN 7 ピン を , 
付け 替 そ る と 見 映え も よく て , し か も 簡単 に で きま す . 
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A bain 


X1 シ リー ズ 二 ジョ イス ティ ッ ク (X1 は GRAM 要 ) 


— C 
<= 


『 パ ンコ ン は ゲー ム ・ マ シン じゃ な い 』」 っ て いう の は 真実 

Cy», 『 パ ンコ ン ・ ゲ ー ム は 面白 い 」 と いう の も 真実 で 
す . そん な 訳 で 名 作 ホ バー アタ ッ ク を お 届け し ます . ペー 
ジ 数 の 都合 で , 画面 デー タ は 5 面 し か 入れ て ませ ん が , = 
ンス トラ クシ ョ ン 機 能 を 使っ て 好き な 画面 を 好き な だ け 作 
っ て みて くだ さい . 打ち 込み の 苦労 の 後に は 快感 だ けが 待 
っ で ます 。 


ді 入力 方 法 


カセ ッ ト BASIC (CZ-8CB01) を 使っ て , リス ト 1 の 
BASIC プ ログ ラム を 打ち 込ん で テー プ に セー ブ し ます . 
次 に モニ タ を 使っ て リス ト 2 の マシ ン 語 リス ト (&H1CA0 
—68FF) を 打ち 込み , リス ト 1 の 後に セー プ し て くだ き さ 
v. な お , &H4900—4FFF は 未 使用 エリ ア で す . 


ТР” TM 
~ 
実行 方 法 
カセ ッ ト BASIC を 起動 し て プロ グラ ム の 入っ た テー プ 
を LOAD で 読み 込ん で RUN させ て くだ さい . リス ト 1 
が 実行 され 自動 的 に リス ト 2 を 読み 込み , オー ト ・ ス ター 


ト し ます . LEAPS | キー を 大 文字 モー ド に する の と , ジョ 
イス ティ ッ ク を 接続 する こと を お 忘れ な く . 


БР ゲー ム 概 要 


ロー ド 終 了 後 , デモ 画面 に 操作 方 法 が 表示 され ます の で , 


頭 に し っ か り 叩 き 込 ん で くだ さい . で な いと 後 で 痛い め に 
あう こと に な り ま す . 

プレ イヤ ー は , ТУ (Е) の 戦闘 か 戦闘 艦 
キャ リア に 乗っ た まま 【 合 体 〕 の 戦闘 を 戦況 に 応じ て 選ぶ 
こと が で きま す . 敵 の 集中 砲 炎 を か わし , ミサ イル 耐 被弾 
度 内 で 敵 の メイ ン ・ シ ステ ム を 破壊 する と 次 の 面 に 進め ま 
す 


可変 戦闘 シス テム 
さ ア タッ カー の 主要 性 能 (キャ リア か ら 苑 脱 時 の み 作動) 
ө 移動 性 能 一 一 前 ・ 後 進 (段差 は ジャ ンプ で 進め る ). 


e 跳躍 性 能 一 一 前 ・ 後 ・ 上 方 向 (操作 で 跳躍 力 に 差 が 出る ). 
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ШЕЕ: : ゲッ ピ 


地下 洞窟 の 中 で 青春 と ミサ イル を 爆発 させ よう 


@ 面 被弾 度 一 一 敵 ミ サイ ル 7 発 まで 耐え られ る . 敵 メ イ 
ン ・ シ ステ ム を 破壊 し て 次 の 面 に 移る 段階 
で 耐 被弾 度 は 7 に 戻る (画面 下 ATTACK- 
ER の 横 に 耐 被弾 度数 の 残り を 表示 . 0 に 
な る と アタ ッ カ ー は 爆発 する ). 

@ 武器 一 一 一 一 長 距離 バズ ー カ ( 弾 に 制限 が あり 画面 上 
MISSILE の 下 の ゲ ー ジ で 残 量 を 表示 . キ 
ャ リア と の 合体 で 補給 きれる). 

次 キャ リア の 主要 性 能 (アタ ッ カ ー と 合体 時 の み 作 動 ) 

ө 移動 性 能 前 ・ 後 進 ( 岸 な どの 段差 が 急 な 所 で の 前 ・ 
後進 は で できない. この と き ア タッ カー は キ 
ャ リア を 離れ て 進ま な けれ ば な ら な い ). 

e 跳躍 性 能 一 ナシ (ホバー クラ フト な の で 常に 浮上 し て 
いる . その た め 地 雷 に は や られ な い ). 

ФИ ЖЕ + 4 У 9 発 ま で 耐え られ る . 次 の 面 に 
移っ て も 耐 被弾 度 は 回 復 し な い (画面 下 
CARRIER の 横 に 耐 被弾 度数 の 残り を 表 
ж, 0 に な る と キャ リア は 爆発 する ). 

e 武器 一 一 一 短 距離 バズ ー カ ( 弾 は 無制限 ). 


ФР”, ,.,. 


ゲー ム ・ ス ター ト 時 は アタ ッ カ ー と キャ リア は 合体 し て 
いま す . ジョ イス ティ ッ ク を 倒す と キャ リア が 移動 し ます . 
さあ 敵 の メイ ン ・ シ ステ ム を つぶ し に 行こ う . 
ゲー ム の コウ 


⑯ ア タッカー は キャ リア の 安全 な 進路 を 確保 . 


アタ ッ カ ー と キャ リア の 耐 被弾 度数 の いずれ か が 0 に な 
れ ば ゲー ム ・ オ ー バ バー です. キャ リア は 段差 の 激しい 涯 
の 前 ・ 後 進 に 限界 が あり , 耐 被弾 度数 も アタ ッ カ ー と 違 
っ て 面 数 が 変っ て も 回 復 し ませ ん . そこ で 離脱 し た アタ 
ッ カ ー で 敵 の 前 線 基地 を 破壊 し キャ リア が 被弾 し な いよ 
う に 安全 な 進路 を 確保 し ます . 
ЖЕЖ @ 離 脱し て 撃つ アタ ッ カ ー の バズ ー カ ・ ミ サイ ル 
は 限度 が ある の で 画面 を 見 て 残 量 に 注意 / 
@ 離 脱し て アタ ッ カ ー で 侵攻 する 際 . キャ リア が 
画面 上 か ら 消 えて も 敵 の 攻撃 を 受け て いる こと が 
あり ます . 
@ 上 手 に 跳躍 を 行なう . 
キャ リア を 移動 し た り , ミサ イル を 補給 する に は アタ ッ 
カー を うま く キ ャ リア に 合体 させ な けれ ば な り ま せん . 
基本 ジャ ンプ ・ テ クニ ッ ク 
生 足 を 曲げ し ゃ が ん で 勢い よく ジャ ンプ させ る . 
操作 : ジョ イス ティ ッ ク を 下 に し て か ら 次 に 上 げ 素 早 
く 倒 す . スピ ー ド が な いと 高く 飛べ な い . 
※ 注 意 @ 画 面 右上 の HOVER ОФ ГО (ゲー ジ ) が 一 
番長 いと き , ジャ ンプ ・ エ ネル ギー は 満 タ ン で 
す . で す が ゲ ー ジ が 無く な る まで ジョ イス ティ 
ッ ク を 倒し 続け る と ホバー の 出力 は 停止 し ジャ 
ンプ で きま せん . 
生命 は 大 切 に し な けれ ば いけ ませ ん が , ホバー 戦士 が 敵 
に 囲ま れ て 動け な く な っ た ら , あき ら め て [ SHIFT | 
と [| BREAK | を 同時 に 押し て 自爆 し て くだ さい . 


高級 ジャ ンプ ・ テ クニ ッ ク 
空中 で 方 向 転 換 ジ ャ ンプ 
操作 : 勢い よく し ゃ が ん だ 姿勢 か 


ゲー ジ が な く な ら な いう ち に 
ジョ イス ティ ッ ク を 方 向 を 変 
そえ た い 方 に 素早 く 倒 す . 
※ こ の 方 法 で 二 Бот, ーー ジョ イス ティ 
ッ ク を 素早 く 倒し ,. すぐ に も と に 戻し 再び ジョ イス ティ 
ッ ク を 倒す . スピ ー ド が 大 切 / 
補足 テク ニッ ク 


加 ア タッ カー は キャ リア を 横 か ら 左 右 に 押す こと が で きる . 


"|І Іс, アタ ッ カ ー を キャ リア の 下 に 潜 ら せ ジ ャ ンプ さ 
せる こと で キャ リア を 上 に 持ち 上 げ る こと が で きる 。. 


ンス トラ クシ ョ 


ホバー 戦士 (アタ ッ カ ー) の 動き や 攻撃 テク ニッ ク な ど 
の 操作 を 習得 し た ら , 今度 は コン スト ラク ショ ン ・ セ モ セット 
で あな た だ け の 敵 地底 基地 を 作っ て 戦っ て くだ さい . 
コン スト ラク ショ ン ・ セ ッ ト ・ コ マン ド 
[pr — BER 
JOYSTICK 

ee 画面 中 央 の カー ソル を 移動 する . 

ら 倒 す と 速く カー ソル を 動か せる . 
[ 加 |… 地 底 基地 全貌 マッ プ を 表示 する . 
[e]… 加 で 表示 させ た 全 マ ッ プ の 画面 を 部 分 ご と の 小さ な 
マッ プ に 戻す こと が で きる . 
周 …… ゲ ー ム の デモ 画面 へ 戻す . 


トリ ガ を 押し な が 


ら ア タッ カー を ジャ ンプ させ 。 


52226 У 
5 N 


E777: E) ecu. 
LTRL_I& テ ン ・ キ ー 
— カー ソル を 矢印 方 向 に 移動 きせ , カー ソル 位置 に 岩 
を 置く . 
[ SHIFT је 7 у · х— 
ws カー ソル を 矢印 方 向 に 移動 きせ , カー ソル 位置 の 岩 
を 消す . 
1, [3 
RUE 画面 右上 に 表示 され て いる キャ ラク タ の 選択 . [ 刊 で 
送り , UTRA. 
[ SPACE | 


өчө 画面 の 右上 に 表示 され て いる キャ ラク タ を カー ソル 
位置 に セ モット する . キャ ラク タ の リセ ッ ト は , キャ 
ラク タ の 左上 に カー ソル を 置い て | SPACE | を 押す 
こと で 消せ る . 
補足 / 各 キャ ラク タ は 設定 可能 数 が 決ま っ て いる . そ 
れ を 超え る と [ SPACE | コマ ンド は 無視 され る . 
ゲー ム 終 了 後 YREPLAY(Y/N)^ と きい て くる の で , Ш 

も 入力 し な いで いる と デモ 画面 が 表示 され ます . 
デモ 画面 表示 中 に [E] を 押し ます . 

"STAGE МО” と きい て くる の で 修正 ・ 新 規 作成 し た い 面 
数 の 数 字 を 入力 し ,[ RETURN | を 押し て くだ さい . ヾ EDIT 
or МАКЕ(Е/М)” と きい て きま す . 

[ 軒 … 部 分 修正 の 際 に 入力 . 
[М.....-- まっ た く 新 規 に 地底 基地 を 作る 際 に 入力 . 
※ コ ンス トラ クシ ョ ン に まだ 慣れ て いな い 方 は , [E] 
キー を 押し て 何 度 も 部 分 修正 を 行なっ て 練習 し て 
くだ さい . [内 を 押す と 面 の ゲー タ が すべ て 消さ きれ 
岩 と アタ ッ カ ー, 敵 メ イン 基地 だ け に な っ て し ま 
いま す . 
@ 部 分 修正 で 練習 . 
m[E| を 押す と 画面 が 変わ り 中 央 に カー ソル が 点 減 し て い 
る 状態 に な り ま す . [6] [| で 地底 マッ プ を 見 て 修正 し 
た い 部 分 を 確認 し て くだ さい . 
mgm カー ソル を 修正 し た い 部 分 に 移動 し , 以降 各 コ マン ド 
を 使っ て 作り 直し て くだ きい . 
mgm コ ンス トラ クシ ョ ン は 中 央 に カー ソル が 点滅 し て いる 
地底 マッ プ 【 部 分 画面 の と きだ け 行 な えま す . 
ON RIDE (FS. 
の と き , MHT, 最初 か ら 地 底 基地 を 作れ ます . 
m 最初 は , 岩 と アタ ッ カ ー, 敵 メ イン 基地 だ けが 残っ て 
いま す . 
=| CTRL | と テン ・ キ ー を 同時 に 押し な が ら カ ー ソ ル を 
移動 し 自分 の 好き な 地形 を 作っ て くだ さい . 
※ こ の 地形 に どう 起伏 を も た せる か が , ゲー ム の 面白 
さ を 左 右 し ます . 簡単 な メモ 書き な ど に 基本 と な る 
地形 図 を いく つも 考え て みて くだ さい . 
還 キ ャ リア の まわ り の 岩 は 必ず 取っ て くだ さい . で な い 
と ホバー は 移動 で きま せん 【 宙 に 浮か す ). 


軍 に 浮か す 


左 図 の よう な 落し 穴 を 作る 

① で アタ ッ カ ー を 離脱 させ キャ リア 
を 下 か ら 持 ち 上 げ る よう に ジャ ンプ 
し 容 か ら 抜け 出す 
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キャ ラク タ 紹 介 


Guardian | 量産 型 機甲 戦士 . 高圧 ガス の 噴射 に より 自由 に 飛行 で きる . 
胸部 装甲 が 10mm し か な く ア タッ カー の バズ ー カ 弾 で 装甲 が 列 
ғ” け て し まう . E: : ピン ク , バズーカ: š FU 
( 1 面 に 22 機 まで 登場 可 ] 


Orderer Guardian の 装甲 を 強化 し た 機甲 戦士 . アタ ッ カ ー の バズ ー 
ғ カ 弾 が 少な く な っ た 頃 を 見 は か ら っ て 攻撃 を 仕掛 ける こと が 


ある . 
足 : アオ , バズ ー カ : アオ (1 面 に 8 機 ま て 登場 可 ) 
Trier 新型 の 高 性 能 戦士 . プロ ト タ イ プ の た め 数 が 少な い . 1 度 出 


され て いる が 途中 か ら 離 脱し , それ ぞ れ が 単独 で 攻撃 し て 〈 


会 うと し つこ く 攻 撃 し て く る. 始め は Land Cruiser て 輸送 
1 $. 非常 に 強敵 ./ (1805 1 機 の み 登場 可 ) 


Land Trier 専 用 に 開発 され た 地上 空母 .Trier が 破壊 され る と キャ 
Cruiser リア に 対し 特攻 を か ける よう プロ グラ ム さ れ て いる . 
El C1 面 に 1 機 登場 可 ) 


Missie | 左右 上 方 向 に 長 尋 離 ミサ イル 弾 発射. 主要 前 線 基 地 な ど に 配 
fü. 上 ・ 下 攻撃 用 の 2 タイ プ が ある . 
лш. 〔 1 面 に 14 基 まで 登場 可 ) 


も セッ トド し ます 。 


作っ た デー タ の ロー ド / セ ー プ . 


地底 内 の 地形 , 敵 キ ャ ラク タ の セッ ト が 終了 し た あと は , 

テー プ に セー プ し て 大 切 に 保存 し て くだ さい 。. 

作っ た デー タ の セー プ ブ 方法 

ary, 作成 し た コン スト ラク ショ ン 画 面 が 、@ で 行 な 
っ た よう に 中 央 に カー ソル が 点 減 し て いる 状態 に な っ 
て いる か 人 確認 し て くだ さい . 


手順 


F lier 浮遊 型 ミ サイ ル ・ サ イト . 垂直 に 移動 し な が ら ミ サイ ル を 発 
-e- | 5 (1 面 に 4 機 登場 可 ) 


City 敵 地底 都市 て 攻撃 能力 は な い . 
〔 1 面 に 4 都市 ま て 登場 可 ) 


乗せ る と 動力 エネ ルギー を 工場 か ら 吸 収 し 。 アタ ッ カー の 耐 


ү =ч 
Еасїогу 敵 地底 工場 で City 同 様 攻撃 能力 は な い . アタ ッ カ ー を 真 上 に 
Жі | на omis. Стаса танар) 


Тапк 駆動 系 が 弱い た め 起 人 ある 地形 の 走行 は で き な い . し か し , 
爆発 する 瞬間 に 強力 な レー ザー ビー ム を 放つ Bom ミ サイ ル 
йе | 搭載 これ に 被弾 する と アタ ッ カ ー の 瑞 被 弾 度数 が 一 気 に 減 
る .【〔1 面 に 4 台 登 場 可 ) 


Bom Site | Bom ミサ イル を 発射 .【1 面 に 4 基 登 場 可 〕 


de ж көнөн Bom ミサ イル . 


Airplane 道 跡 戦 有 闘 機 、 キ ャ リア か ら あ る 一 定 の 距離 を 保 っ て 飛行 し , 
Homing š ミサ イル を 発射 . 

нь, | -- Homing ミサ イル . 地形 に 沿っ て は う よ う に し 
て 飛行 し キャ リア を 攻撃 する . 〔 1 面 に 4 機 登場 可 ] 


※ 注 意 Tank は , 平ら な 所 に 置き , 前 後 は 岩 て 動け りな いよ うに し て お 


55%, 
9 空中 移動 し て し まう . 
de فار‎ 
\ 
ФУ 577455. 


地底 の 地形 が で きた ら , 次 に 敵 の キャ ラク タ を 地底 内 に 


m デモ 画面 中 に [ 罰 を 押し い STAGE NO” ЖА), КЕ] 
を 押す と 中 央 に カー ソル が 点滅 する 画面 に な る . 

mm セー ブ す る カセ モット ・ テ ー プ を セッ ト し [を 入力 し ま 
3. する と “Writing Tape Ready 2" と 聞い て くる の 
TL RETURN | を 押し て くだ さい . 自動 的 に その 面 の 
データ が セー ププ きれ まず 。 

作っ た デー タ の ロー ド 方 法 

wm ョ コンストラクション を する と き の 要 領 で デモ 画面 中 に 
[E]& fll L $ +. "STAGE NO” に は 作っ た デー タ を 何 面 
に 入れ る か 答え て くだ さい . 

m ЛЕНУ У, カー ソル が 点 減 し ます . この と き に 
デー タ を セー ブ し た カセ ッ ト を セッ ト し , IL を 押し て 
くだ さい . する と Loading Tape Ready?” と 聞い 
で S 5071, RETURN | を 押し て くだ さい . 自動 的 
に ロー ド さ れ , 終了 する と ロー ド し た 面 上 で カー ソル 
が 点 減 し , これ で ロー ド が 完了 で す . 

mR| を 押す と デモ 画面 に 戻り | SPACE | で 1 面 か ら ゲ ー 
ム が スタ ー ト し ます (ゲー ム は 常に 1 面 か ら 始 まる の 
T, 作っ た 面 で すぐ に 遊ぶ と き は 必ず 1 面 に 入れ て く 
だ さい ). 

画面 の 入れ 換え が で きる 

m 最初 に ある 5 面 の デー タ , お よび 自分 で 作っ た コン ス 
トラ クシ ョ ン ・ デ ー タ は この ロー ド / セ ー プ の 方 法 で 自 
由 に 入れ か そる こと が で きま す . 

生 デ ー タ を 1 面 ご と に テー プ に セー ブ し て くだ さい (dk 
初 の 5 面 分 も 1 面 ご と に セー ブ し ます ). ロ ー ド は 同じ し 
要領 で で きま す . ‘STAGE NO" に 入れ た だ たい 面 数 を 指定 
し で Жет, 

※ 何 面 分 か の デー タ を 1 度 に セー ブ / ロ ー ド する こと は 
で きま せん . 


ホバー アタ ダッ ング BASIC!) А _______________ 


1000 WIDTH 40:INIT 


— | 


1010 PRINT:PRINT"Defining Programable Caracter Generator" 


1020 DEFCHR$(&HO)-HEXCHR$('"000000000000000000000000000000000000000000000000") 
1030 DEFCHR$(&H11)-HEXCHR$("100010001000100010001000100010001000100010001000") 
1040 DEFCHR$(&H14)-HEXCHR$("0000000000000018080018412CFA7DFE000000000000183C") 
1050 DEFCHR$(&H15)-HEXCHR$("1800000000000000FE7DFA2C411800083C18000000000000") 
1060 DEFCHR$(&H20)-HEXCHR$("000000000000000000000000000000000000000000000000") 
1070 DEFCHR$(&H21)-HEXCHR$("C00030000C000300C00030000C000300C00030000C000300" ) 
1080 DEFCHR$(&H22)-HEXCHR$("000000A4A00000000000000A4A400000000000000AA00000000" ) 
1090 DEFCHR$(&H23)-HEXCHR$("0003000C003000C00003000C003000C00003000C003000C0") 
1100 DEFCHR$(&H24)-HEXCHR$("8000000000000000F9ECF0DA608A2080C080000000000000" ) 
1110 DEFCHR$(&H25)-HEXCHR$("0000008000000000A0E8FO0E4F5D0A048000080C080000000") 
1120 DEFCHR$(&H26)-HEXCHR$("000000000000008080208A60DAFO0ECF900000000000080C0") 
DEFCHR$(&H27)-zHEXCHR$("0000001818000000147ABE7FFE7D5E280000281C38140000") 
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リス ト 1 ホバー アタ ッ ク BASIC リ スト 
1140 РЕЕСНЕ$ (&Н28) =НЕХСНЕ$ ( "01000000000000009Е370Е5В065104010301000000000000") 
1150 DEFCHR$(&H29 ) =HEXCHR$( "000000010000000005170Е274АҒ0В05120000010301000000") 
1160 DEFCHR$(&H2A)-HEXCHR$("0000000000000001010451065B0F379F0000000000000103" ) 
1170 DEFCHR$(&H2B)-HEXCHR$("0000000000002A5554A85EFFFFFFFFFF00000000002ATEFF") 
1180 DEFCHR$(&H2C)-HEXCHR$("01020102010201001F3FBF7FBF5FBF5F0107030703070301") 
1190 DEFCHR$(&H2D)-HEXCHR$("0080408040804080FAFDFAFDFEFDFCF880COEO0COEOCOEO080" ) 
1200 DEFCHR$(&H2E)-HEXCHR$ ("AA54000000000000FFFFFFFFFF7A152AFF7E540000000000" ) 
1210 DEFCHR$(&H2F)-HEXCHR$("00543E7C3E7C2A00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF") 
1220 DEFCHR$(&H3C) -HEXCHR$ ("002040FE40200000002040FE40200000002040FE40200000" ) 
1230 DEFCHR$(&H40)-zHEXCHR$ ("000100000303030100010000010100010001000003030301") 
1240 DEFCHR$(&H4 1 ) =HEXCHR$ ("000100000F0F07010001003F2D0D07010001003F23020001" ) 
1250 DEFCHR$(&H42 ) =HEXCHR$( "00000001133В0Е0502070Е19317ВСЕ4502070Е192240С141") 
1260 DEFCHR$(&H43)-HEXCHR$("000101000000000001010100000000000001010000000000" ) 
1270 DEFCHR$(&H44)-HEXCHR$("000103030303020001010303030302000001030303030303") 
1280 DEFCHR$(&H45)-HEXCHR$("0003070E1C0C0C080103070E1C0C0C080003070E1C3C1C08") 
1290 DEFCHR$(&H46)-HEXCHR$("000103070E0E0B01010103070E0E0B01000103070EO0EQOFO0F") 
1300 DEFCHR$(&H47)zHEXCHR$("00010118382C040001010118382C040000010118383C3C00") 
1310 DEFCHR$(&H48 ) -HEXCHR$("000000051E1D2D0400000F0D1E1D2D0400000F0C1E1D3D3C") 
1320 DEFCHR$(&H49)-HEXCHR$ ("004020100E0E0C000040201008040201004020100EQ0E0CO00" ) 
1330 DEFCHR$(&H4A)-HEXCHR$("00040EFCOE040000000000FF0000000000040EFCOE040000" ) 
1340 DEFCHR$(&H4B)-HEXCHR$("000COE0E102040000102040810204000000COE0E10204000") 
1350 DEFCHR$(&H4C ) -HEXCHR$("000000000C0C0C1200000C3EF33A081000000C3EFF3E0C12") 
1360 DEFCHR$(&H4D) -HEXCHR$("000003071E1D3D7C00000C0912050D1400000C0812050D1C") 
1370 DEFCHR$(&H4E ) =HEXCHR$( "00С060В0Е87СВ6С300С09С8СЕ0ЕдЕ0Е060Е09С0С2613В1С0") 
1380 DEFCHR$(&HA4F)-HEXCHR$("0000ECO81EEE18780018FC100EFE20000018ECO000EE0600" ) 
1390 DEFCHR$(&H50)-HEXCHR$("000000E0E0COCOCO40E030F8ECC60742COEOF0981E7FE7C2") 
1400 DEFCHR$(&H51)-HEXCHR$("0080000080CO0C0C0008000F0F0CO0040COCOCOFOFCT7FEI1CO") 
1410 DEFCHR$(&H52)-HEXCHR$("008000CO0COCOCOCO008000COCOCO0040COCOCOCO7CFFE1CO") 
1420 DEFCHR$(&H53)-HEXCHR$ ("0080CO0C0F87C24008080CO0CO0F87C24000080COCOF87C3C10") 
1430 DEFCHR$(&H54)-HEXCHR$("008080008080C040808080008080C040008080008080COCO" ) 
1440 DEFCHR$(&H55)-HEXCHR$("008080000000000080808000000000000080800000000000" ) 
1450 DEFCHR$(&H56)-HEXCHR$("008000203C301000808000203C301000008000203C3C1800" ) 
1460 DEFCHR$(&H57)-HEXCHR$("008080C0E0705808808080C0E0705808008080C0E0707878") 
1470 DEFCHR$(&H58)-HEXCHR$("00C000A0F070B0CO00COFCBCFOFOFOEO060EO0FC3CZE1BB1C3") 
1480 DEFCHR$(&H5C)-HEXCHR$("7F040000000000007F040000000000007F3C3F7F00000000" ) 
1490 DEFCHR$(&H5D)-HEXCHR$("FF82000000000000FF82000000000000FF86878700000000" ) 
1500 DEFCHR$(&H5E)-zHEXCHR$("FF20000000000000FF20000000000000FF31F1F100000000") 
1510 DEFCHR$(&H5F)-HEXCHR$("FC10000000000000FC10000000000000FC18FCFC00000000" ) 
1520 DEFCHR$(&H60)-HEXCHR$("03000003030103070301071C78EC40010706000B1B0D0306") 
1530 DEFCHR$(&H61)-HEXCHR$("010000000101010301007F760C0C0401030306060D0D0502") 
1540 DEFCHR$(&H62)-HEXCHR$("000001000303070320783E0F181800010101070E1B1B0702") 
1550 DEFCHR$(&H63)-HEXCHR$("000100000000000003000000000000000001000000000000" ) 
1560 DEFCHR$(&H64)-HEXCHR$("000100000101030303000000000002030001000001010100" ) 
1570 DEFCHR$(&H65)-HEXCHR$("000BFB671F7C30100300C04000602010000B3B271F1C1000") 
1580 DEFCHR$(&H66)-HEXCHR$("0301000002060E0F020000000000080F0301000002060600" ) 
1590 DEFCHR$(&H67)-HEXCHR$("0001030303060E0F030000000000080F0001030303060600" ) 
1600 DEFCHR$(&H68)-HEXCHR$("030000000A0E0F0303003F3F04030404070603070E0COB03") 
1610 DEFCHR$(&H6D)-HEXCHR$ ("FF0E3F102020F000FF023F102327FB14FF0D3F132121F000") 
1620 DEFCHR$(&H6E)-zHEXCHR$("0140797800000000010006060D0D0E070343797800000000" ) 
1630 DEFCHR$(&H6F)-HEXCHR$("020000000000080F0301030303060E0F0200000000000000") 
1640 DEFCHR$(&H70)zHEXCHR$("0000008080C0C0C070C80000000000800000008080C0C040") 
1650 DEFCHR$(&H71)-zHEXCHR$("80000000C0CO0C0C08000FEC20000008080000000C0C0C040" ) 
1660 DEFCHR$(&H72)-HEXCHR$ ( "С000Е06000С0С0С0С0000080Е0380С88С080Е06000С0С040") 
1670 DEFCHR$(&H73)-HEXCHR$("80F03898DC7FEE44400000000013AE4480F03898DC6C4000") 
1680 DEFCHR$(&H74 ) =HEXCHR$ ("80C0C0C0808080C040000000000000C080C0COC080808000" ) 
1690 DEFCHR$(&H75)-zHEXCHR$("808000000000000040000000000000008080000000000000" ) 
1700 DEFCHR$(&H76)-HEXCHR$('"C0C0E070303070784000000000004078C0C0E07030303000") 
1710 DEFCHR$(&H77)-HEXCHR$("808080103030707840000000000040788080801030303000" ) 
1720 DEFCHR$(&H78)-zHEXCHR$("0000001070D8B83C0000FF610000203C0000001070D89800") 
1730 DEFCHR$(&H7D)-HEXCHR$ ("FF70FC0804040F00FF40FCO8C4E4DFA8FFBOFCC884840F00") 
1740 РЕЕСНЕ$ ( &Н7Е) =НЕХСНЕ$ ("8000C3FF0000000080000000C0C0C0408000C3FF00000000" ) 
1750 DEFCHR$(&H7F ) =НЕХСНЕ$ ("4000000000004078C0C0E070303070784000000000000000" ) 
1760 DEFCHR$(&H80 ) =HEXCHR$ ( "000003070Е0303030000000100060Е0Е02070Ғ183064ЕС4С") 
1770 DEFCHR$(&H81)-HEXCHR$("00030300010303030001000001060F0F0003030F0E040COC") 
1780 DEFCHR$(&H82)-HEXCHR$("00030303030303030001000307070F0F0003030004040COC") 
1790 DEFCHR$(&H83)-HEXCHR$("010100000000000001010000000000000100000000000000" ) 
1800 DEFCHR$(&H84)-HEXCHR$("010101000101030101010100010103000100000000000001") 
1810 DEFCHR$(&H85)-HEXCHR$("010103031F3E3C08010103031F3E2C000100000000001008") 
1820 DEFCHR$(&H86)-HEXCHR$("010100043C3C1800010100043C1C08000100000000201000" ) 
1830 DEFCHR$(&H87)-HEXCHR$('"01010103070E1E1E01010103070E1E14010000000000000A" ) 
1840 DEFCHR$(&H88)-HEXCHR$("070600070F0F0F070300000614193F3707063F3810113234") 
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リス ト 1 ホバー アタ ッ ク BASIC АР 


1850 РЕЕСНЕ$ ( &Н89 ) -HEXCHR$ ("004020100Е0Е0С00004020100Е0Е0Е010040201008040000") | 
1860 DEFCHR$(&H8A ) =НЕХСНЕ$ ( "00040ЕЕС0Е04000000040ЕЕЕ0Е040000000000ЕС00000000") 
1870 DEFCHR$(&H8B ) =НЕХСНЕ$ ( "000С0Е0Е10204000010ЕдЕ0Е102040000000040810204000") 
1880 DEFCHR$(&H8C ) =НЕХСНЕ$ ( "00287С381010101010387С38101010100000101010101010") 
1890 DEFCHR$(&H8D)-HEXCHR$("0404332814CC2020040€C3B2664DC3020040C332A54CC3020" ) 
1900 DEFCHR$(&H90)-HEXCHR$("00800080C0C0C080008000804040C0800080000000000000" ) 
1910 DEFCHR$(&H91)-HEXCHR$("00800000BO0F0E0800080000080400080008000FC04000000" ) 
1920 DEFCHR$(&H92)-HEXCHR$ ("00000080C8DCF0A0000000804000808040E0701804020302") 
1930 DEFCHR$(&H93)zHEXCHR$("80C0F030383C180080C0F030383810008000000000040800" ) 
1940 DEFCHR$(&H94 ) =HEXCHR$ ("8080C0CO0CO0COCOCO8080COCOCOCOCO808000000000000040" ) 
1950 DEFCHR$(&H95)-HEXCHR$("808080000000000080808000000000008000000000000000") 
1960 DEFCHR$(&H96)-HEXCHR$("8080CO0E07070FO0F08080COE07070F0A08000000000000050") 
1970 DEFCHR$(&H97)-HEXCHR$("808080181C3C3C00808080181C3C28008000000000001400") 
1980 DEFCHR$(&H98)-HEXCHR$("000000A078D8BC1C0000002078D8BC080000F01000000014") 
1990 DEFCHR$(&H99)-HEXCHR$("000204087070300000020408707070800002040810200000" ) 
2000 DEFCHR$(&H9A)-HEXCHR$("0020703F70200000002070FF702000000000003F00000000" ) 
2010 DEFCHR$(&H9B)-HEXCHR$("003070700804020080707070080402000000201008040200") 
2020 DEFCHR$(&H9C)-HEXCHR$("10101010387C280010101010387C38101010101010100000" ) 
2030 DEFCHR$(&H9D)-HEXCHR$("000000303F000000000060F0FF7000000000603C3F700000" ) 
2040 DEFCHR$(&HAQO)-HEXCHR$("02070C1E3F61E040000003010002030302070F183064ECAC") 
2050 DEFCHR$(&HA1)-HEXCHR$("0001000F0E01000000030300010203030003030F0E040COC" ) 
2060 DEFCHR$(&HA2)-HEXCHR$("000100000000000000030303030303030003030004040CO0C") 
2070 DEFCHR$(&HA3)-HEXCHR$("010000000000000001010000000000000100000000000000" ) 
2080 DEFCHR$(&HA4)-HEXCHR$("010000000000000101010100010103000100000000000001" ) 
2090 DEFCHR$(&HA5)-HEXCHR$("0100000000001008010103031F3E2C000100000000001008" ) 
2100 DEFCHR$(&HA6)-HEXCHR$("0100000000201000010100043C1C08000100000000201000") 
2110 DEFCHR$(&HA7)-HEXCHR$("010000000000000A01010103070E1E140100000000000004A" ) 
2120 DEFCHR$(&HA8)-HEXCHR$("03003F390B0702040706000604090F0707063F3810113234") 
2130 DEFCHR$(&HB0)-HEXCHR$("0080000080800000008000804040C0800080000000000000" ) 
2140 DEFCHR$(&HBl1)-HEXCHR$("008000FC34B0E0000080000080400080008000FC04000000" ) 
2150 DEFCHR$(&HB2)-HEXCHR$ ("40E070188CDE7322000000804000808040E0701804020302" ) 
2160 DEFCHR$(&HB3)-HEXCHR$("800000000004080080C0F030383810008000000000040800" ) 
2170 DEFCHR$(&HB4)-HEXCHR$("80000000000000408080CO0COCOCOC0808000000000000040") 
2180 DEFCHR$(&HB5)-HEXCHR$("800000000000000080808000000000008000000000000000" ) 
2190 DEFCHR$(&HB6)-HEXCHR$("80000000000000508080C0E07070F0A08000000000000050" ) 
2200 DEFCHR$(&HB7)-HEXCHR$("8000000000001400808080181C3C28008000000000001400" ) 
2210 DEFCHR$(&HB8)-HEXCHR$("0000F090000000140000002078D8BC080000F01000000014" ) 
2220 DEFCHR$(&HC0)-HEXCHR$("FF1039070C000000FE1C3C070C000000FE1138070C000000" ) 
2230 DEFCHR$(&HC1)-HEXCHR$("0000000C073910FF0000000C073C1CFE0000000C073811FE") 
2240 DEFCHR$(&HC2)-HEXCHR$("0000000273FF5D3F0000000273FF623F02070E1E7BFF2200") 
2250 DEFCHR$(&HC3)-HEXCHR$("000719E3E3190700010F1FF2F21F0F01010719E2E2190701") 
2260 DEFCHR$(&HC4)-HEXCHR$("000001098F8392FF000001098F8998FE02070F1DBFF1FlFE") 
2270 DEFCHR$(&HC5)-HEXCHR$("60707F3F7F043F00000087FFFF043F006070FFFF80043F00" ) 
2280 DEFCHR$(&HC6)-HEXCHR$("7F7F7F7061000000FFFF87000100000080FFFF7061000000" ) 
2290 DEFCHR$(&HC7 ) =НЕХСНЕ$ ( "093C981F9C1F7EFF の 9093C981F の C1F48FF993C981F971F4AFF" ) 
2300 DEFCHR$(&HCD ) =HEXCHR$( "00000701275ВЕВ00000007012144ЕЕ00000007012758ЕВ00") 
2310 DEFCHR$(&HCE)-zHEXCHR$ ("0404E8F890F0FC640404E8381070FCE404C4E8387070FCE4") 
2320 DEFCHR$(&HCF)-HEXCHR$("3030BC9F9FBC3030F0B0207F7F20BOFOEQ0AO03CIF1F3CAOEQ") 
2330 DEFCHR$(&HD0)-HEXCHR$ ("FF089CE0300000007F383CE0300000007F881CE030000000" ) 
2340 DEFCHR$(&HD1)-zHEXCHR$("00000030E09C08FF00000030E03C387F00000030E01C887F'") 
2350 DEFCHR$(&HD2)-HEXCHR$("0000003C60FEBA4F80000003C7EFE4CF80000003C60FE4800") 
2360 DEFCHR$(&HD3)-HEXCHR$("00E098C7C798E00080F0F84F4FF8F08080E098474798bE080") 
2370 DEFCHR$(&HD4)zHEXCHR$("000000C000FC10FF000000C000FC307F000000CO00FC907F") 
2380 DEFCHR$(&HD5)-HEXCHR$("006080COFF048000006080FCE70480000060F0C027048000") 
2390 DEFCHR$(&HD6)-HEXCHR$("FFE08020F0000000E7FC8020F000000027E0F020F0000000" ) 
2400 DEFCHR$(&HD7)-HEXCHR$("000010B810FCAOFF000010B810FC78FF000010B810FCAQOFF" ) 
2410 DEFCHR$(&HDD)-HEXCHR$("0000E080E4DADF000000E0808422FF000000E080E41ADF00") 
2420 DEFCHR$(&HDE)-HEXCHR$("64FCF090F8E80404E4FC701038E80404E4FC707038^E8C404") 
2430 DEFCHR$(&HDF)-HEXCHR$ ("00A800A800A800A800A800A800A800A85400540054005400" ) 
2440 DEFCHRS$(&HF8)-HEXCHR$("000000000000000001020408102040800102040810204080") 
2450 DEFCHR$(&HF9)zHEXCHR$("0000010103030303BF57AB55A854A8543F03010103030303") 
2460 DEFCHR$(&HFA) -HEXCHR$("00008080CO0COCOCOFED5AAD52A152A15FCC08080COCOCOCO" ) 
2470 DEFCHR$(&HFB)-HEXCHR$("0000000000000000AA552A552A1502010000000000000000" ) 
2480 DEFCHR$(&HFC)-HEXCHR$("0000000000000000A4A54A0404050A0000000000000000000" ) 
2490 DEFCHR$(&HFD)-HEXCHRS ("00000000000000008040A4054A4A54A4A550000000000000000" ) 
2500 DEFCHR$(&HFE)-HEXCHR$("0000000000000000000102112A152A550000000000000000" ) 
2510 DEFCHR$(&HFF)-HEXCHR$("0000000000000000A4A55AA55AA55AA550000000000000000" ) 
2520 AS$-CHR$(13):COLOR 0 

2530 KEYO, "MON"+A$+"L"+A$+"G1CAQ@0"+A$ 
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リス ト 2 ホバー アタ ッ ク マシ ン 語 リス ト 
E キー ニー ニー 
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тогы «ЛІ ан | 
[aaa +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :Sum 
2F00 FD 21 СО 1А 26 1С 11 04 00 78 CD бА 29 79 FD ВЕ :5В 


リス ト 2 ホバー アタ ッ ク マシ ン 語 リス ト 


ЗЗЕ@ OD ED 51 DD 21 50 1C 11 04 00 ЗЕ 04 D9 26 01 11 :1D 


33F0 D7 C7 D9 CD F7 33 C9 4E 23 46 23 рр 71 00 DD 70 :AC 
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リス ト 2 
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ホバー アタ ッ ク 


マシ ン 語 リス ト 


3000 ED 78 A2 ED 79 СВ F8 ED 78 А2 ED 79 CB BO 

3010 А2 ED 79 СВ ВВ 37 С9 С5 ЕЗ 01 03 1А ЗЕ 9B 

3020 3D ED 79 C1 C9 23 ТЕ FE 20 28 FA B7 СВ FE 
3030 B7 С8 FE ЗА C8 ЕЕ 2С С2 54 20 B7 С9 CD 05 : 
3040 91 20 04 23 СЗ Аб 22 CD 8E Зр CD 05 ТА FE F8 20 :5р 
3050 10 ЕВ 2А ВІ ЗЕ 22 АС ЗЕ 2А СЕ ЗЕ 22 С9 ЗЕ ЕВ 18 :82 
3060 OF CD 81 38 ED 43 AC 3E ED 53 C9 3E FE F8 20 0С :18 
3070 23 CD 81 38 ED 43 B1 ЗЕ ED 53 СЕ ЗЕ FE 2С СА А8 :В0 
3080 3D Е5 CD 97 ЗЕ El CD 05 ТА FE F8 28 C4 C9 ЕВ 21 :A8 
3090 E9 ЗЕ 22 E7 ЗЕ 21 B6 40 22 7B ЗЕ 21 FF FF 22 6A :0C 
ЗрАд D1 : 


リス ト 2 ホバー アタ ッ ク マシ ン 語 リス ト 


Sum СС 6E 05 5E 0C 63 ФЕ 87 Ед 97 11 5C EA 65 69 ТЕ :CC 


Add +6 +1 +2 +3 +4 +5 +6 +7 +8 +9. +A +B +C +D +E +F :Sum 
4200 03 02 03 04 03 06 03 04 03 02 03 02 07 02 03 02 :34 
4210 04 09 C6 OD 03 02 03 04 03 06 03 04 03 02 03 02 :06 
4220 07 02 03 03 03 08 C6 ЗВ 99 04 13 04 16 3B ВА 03 :AD 
4230 OE 06 OD 57 ВА 05 OC 08 ОВ 30 Bl 07 QA QA 04 35 :5B 
4240 B1 9B 06 41 B1 50 B2 4F B3 4E B4 4D B5 4C B6 4B :09 
4250 B7 4A ВВ 4A B8 4B B7 4B B7 4B B7 4B B7 4B B7 АВ :10 
4260 B7 4B B6 4B B6 3F C2 3E C3 3A C7 3A C7 3A C8 39 :F8 
4270 C9 38 СА 37 CB 16 1B 07 CC 13 1F 04 CE 12 FO 11 :E8 
4280 F1 10 ЕЗ ФЕ QQ 01 00 01 00 01 00 01 00 01 00 01 :08 
4290 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 :08 
42А0 00 01 00 01 QQ 01 00 01 00 01 00 01 00 01 00 01 :08 
42B0 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 :08 
42C0 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 :08 
4200 QQ 01 00 01 QQ 01 ва 02 00 02 00 02 00 01 00 01 :ВВ 
42Е0 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 :08 
42F0 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 :08 


Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +C +D +E +Е :Sum 
4300 05 56 44 04 03 02 03 05 06 44 @3 @F 08 05 06 44 :63 
4310 03 ФЕ 04 05 19 44 03 02 09 05 19 44 03 10 11 05 :11 
4320 25 44 03 07 04 05 ЕВ 44 03 07 09 05 F8 44 03 др :1C 
4330 09 3С 05 DD 44 02 02 ӨЗ 10 11 40 50 01 @3 10 10 :47 
4340 49 1р 05 2р 44 05 2р 44 05 2р 44 01 03 07 0С 04 :ЕЗ 
4350 05 44 44 37 05 4D 44 04 02 02 03 10 11 41 51 01 :19 
4360 03 ФЕ 11 4А 1D 05 35 44 05 35 44 05 35 44 01 03 :08 
4370 07 10 04 05 44 44 34 05 Ар 44 04 02 02 03 10 11 :9Е 
4380 42 52 01 03 ФЕ 12 4B 1D 05 3С 44 05 3С 44 05 3C :6C 
4390 44 01 03 07 14 04 05 44 44 31 05 4р 44 04 02 02 :C3 
43А0 04 05 67 44 01 04 02 ӨЗ 1Е ӨВ 02 05 ТЕ 44 1Е 01 :СЕ 
43В0 05 ТЕ 44 1E 01 05 ТЕ 44 1E 01 05 ТЕ 44 1E 01 05 :B7 
43С0 ТЕ 44 01 02 02 02 93 1Е ӨС 05 95 44 01 05 95 44 :B3 
4300 01 05 95 44 01 05 95 44 01 05 95 44 01 02 02 02 :А4 
43E0 03 1E OC 05 АА 44 01 05 АА 44 01 05 AA 44 01 05 :дЕ 
43Е0 АА 44 01 05 АА 44 01 02 02 05 00 45 00 00 00 00 :31 


Sum 49 Е6 00 5C 8A 96 44 F0 B9 D5 6F 67 3D EO 56 OE :C4 


Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +С +D +E +F :Sum 
4400 1D 1D 1D 1D 1F 00 20 41 51 20 05 00 44 4C 44 54 :92 
4410 4р 05 00 44 5С 5р БЕ 5Е 00 4С 4р 4Е 4F 05 00 44 :8В 
4420 5C 5D 5E 5F 00 41 51 1р 1D ТЕ 44 54 00 01 21 1E :39 
4430 1D 1р 49 1D 00 01 1р 4A 22 1р 1D 00 01 23 1Е 1р :C4 
4440 1D 4B 1D 00 9A 90 97 1F 1D 1D 1D 91 00 91 1F 1D :1A 
4450 1D 1D 99 90 98 00 ӨС 03 04 01 4B 45 59 20 46 55 :B3 
4460 4E 43 54 49 4F 4E 00 ӨЗ 18 01 4A 4F 59 53 54 49 :C9 
4470 43 4B 03 1B 02 46 55 4E 43 54 49 4F 4E 00 20 20 :54 
4480 1F 1D 1D 41 51 1F 1D 1р 44 54 1F 1D 1D 20 20 1E :93 
4490 1E ЛЕ 1р 1D 00 41 51 IF 1D 1D 43 53 20 1F 1р 1р :70 
4440 20 20 1E 1E 1E 1D 1D 1D 1D 00 41 51 IF 1D 1D 10 :16 
44В0 20 45 55 1F 1D 1D 1D 20 20 1E 1E 1E 00 20 41 51 :7C 
44С0 20 05 00 44 20 46 56 20 ЛЕ 1D 1р 1D 1р 00 20 41 :38 
4400 51 20 05 00 44 20 47 57 20 05 св 44 00 04 03 07 :B7 
44E0 06 54 72 69 67 67 65 72 03 08 07 42 75 74 74 6F :FA 
44F0 6E 02 02 02 04 00 00 00 3C 3C 3C 3C 3C 3C 3C 00 :1C 


Sum 10 AD F7 1B 59 2A ВЕ DC 27 10 97 D4 BE А9 CB ФЕ :9E 


Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +C +D +E +F :Sum 
4500 03 1D OC 05 BD 44 1р 01 05 CE 44 1р 01 05 BD 44 :8В 
4510 1D 01 05 CE 44 1D 01 05 BD 44 1р 01 02 03 1D OC :A5 
4520 05 BD 44 1C 01 05 CE 44 1C 01 05 BD 44 1C 01 05 :7F 
4530 CE 44 1C 01 05 BD 44 1C 01 02 02 02 03 1E OB 05 :89 
4540 ТЕ 44 1F 01 05 ТЕ 44 1F 01 05 ТЕ 44 1F 01 05 ТЕ :33 
4550 44 1F 01 20 20 1F 1р 1D 48 58 01 02 02 02 03 1Е :C5 
4560 9B 05 ТЕ 44 01 02 02 04 05 AO 46 00 да 00 QQ QQ :C6 
4570 1F 21 22 42 44 84 F8 00 04 04 08 08 10 10 20 00 :BC 
4580 ФЕ 11 03 OC 30 40 7C 00 OE 11 01 1E 02 44 38 00 :D6 
4590 ӨС 14 28 48 ЕС 10 20 00 ЗЕ 20 40 ТС 04 08 F8 00 :DA 
45A0 20 20 40 7C 84 88 F8 00 1E 01 02 04 08 10 20 00 :5D 
45B0 3E 22 42 7C 84 88 F8 00 3E 22 44 7C 04 08 08 00 :56 
45С0 11 11 22 2A 5C 6C 88 00 04 OC 14 24 7C 88 88 00 :92 
4500 OF 04 04 08 08 10 70 00 ІҒ 04 08 08 10 10 20 00 :1A 
45E0 11 11 22 ЗЕ 44 44 88 00 1E 21 22 42 44 84 78 00 :75 
45F0 11 11 12 24 28 30 20 00 ЗЕ 20 40 ТС 80 80 F8 00 :E2 


Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 ЖА +В +C +D +E +F :Sum 
4600 1Е 21 21 ТЕ 48 88 88 00 11 36 ЗА 54 44 88 88 00 :5Е 
4610 3C 22 40 7С 04 88 78 00 10 10 20 20 40 40 F8 QQ :F6 
4620 1Е 21 20 40 40 84 78 00 12 14 28 30 50 48 88 00 :79 
4630 00 да 00 00 00 00 00 00 00 00 00 00 QQ 00 00 00 :99 
4640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 :00 
4650 00 00 00 00 00 00 00 00 QQ 00 00 00 00 00 00 00 :00 
4660 0A OB ӨС OD FF 18 18 18 18 FF OE 0С 14 16 ОҒ 12 1 
4670 11 FF ФЕ ДЕ 10 11 12 FF 13 ӨС 14 14 @C 15 11 ЕЕ :D7 
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リス ト 2 ホバー アタ ッ ク マシ ン 語 リス ト 


5210 20 1А 12 42 63 14 21 19 14 40 63 
5220 63 14 22 OE 06 06 18 3C 63 14 22 
5230 22 ФЕ 26 38 64 13 22 10 35 27 64 
5240 64 13 22 14 33 25 64 13 22 16 33 
5250 34 21 65 14 23 14 38 1р 65 15 79 
5260 66 1F 71 0р 66 26 15 OE 45 11 66 
5270 67 9А 67 9А 67 9А 67 99 68 12 05 
5280 69 11 09 80 69 12 09 ТЕ 69 97 6В 
5290 05 52 6В 32 08 09 07 4F 6С 33 16 
52А0 6E 39 ФЕ 4D 6F 63 05 2B 70 11 06 


56Е0 ОВ 06 1р 08 ЗА 82 04 11 0A OB 19 
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リス ト 2 ホバー アタ ッ ク マシ ン 語 リス ト 
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リス ト 2 ホバー アタ ッ ク マシ ン 語 リス ト 


Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +C +D +E 


X1F と と も に 登場 し た NEW BASIC(V2.0)i3, フリ ー エ 

リア の 拡張 を は か る た め に , ІНВАЅІС(У1.0) の 中 で 使用 頻 

度 の 低かっ た 命令 や 他 の 命令 で 代用 で きる 命令 を 削除 し 

て いま す . この た だ ため IHBASIC で 作成 され た BASIC プログ 

ラム は , NEW BASIC で は 正常 に 動作 し な いこ と が あり ます . 

以下 に 削除 され た 命令 を 示し ます . 

LIMIT, VERIFY, LET 
CLR, REPEAT —UNTIL 
GRAPH, CURSOR, 
CANVAS, LAYER, PO- 
КЕ@, СЕТ@ (テキ スト 
の み 削 除 ), PUT @ (テキ 
スト の み 削 除 ) 

グラ フィ ッ ク ・ ス テー トメ ント … テ キス ト 画 面 の LINE/ 

BOX/BOXFILL 

DEFKEY,KLIST,WAIT 

MUSIC, TEMPO 

FAC, SUN 

ОСТ$, BIN$ 

PEEK а, SIZE, DEVF 


特殊 ステ ー ト メン ト … 
サウ ンド 制御 ステ ー ト メン ト 
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CHARACTERS 
STRPTR, DTL 
以上 , 削除 きれ た 命令 の 中 で , 他 の 命令 で 代用 で きる も の 
を 次 に 示し ます . 


削除 され た 命令 


CLEAR 
LOAD ? 
CLEAR 
SCREEN 
LOCATE 
PALET 
PRW 
KEY 
KEYLIST 
PLAY 
PLAY 
ІМР 
FRE(X) 


1) 1 シリ ー ズ 用 NEW BASIC ユ ー ザ ー ズ マニ ュ ア ル , 


シャ ー プ 


2 トリ ガ ・ ジ ョ イス ティ ッ ク 専 用 の ゲー ム を 作っ て み ま 


し た . マシ ン 語 の マス ター に と 思っ て 作っ た の で , 不 充分 


な と ころ が ある と は 思い ます が , 習作 と し て 味わっ て いた 
だ けれ ば と 思い ます . 


マシ ン 語 で の ゲー ム 作 り は , けっ こう 手間 ひま が か か り 
ます が , 小回り の きく マシ ン 語 の プロ グラ ミン グ に は , № 
で は 得 が た い 魅 力 が あり ます . 皆さん も ぜひ 挑戦 し て くだ 
ах. 


[プログ ラム の 説明 | 


プロ グラ ム の 構成 は 次 の よう に な っ て いま す . 


Q9 &H2000— &Н5рЗЕ--------- 場面 デー タ (リス ト 1 ) 
@&H8000~&H97FF -+ PCG デ ー タ (リス ト 2 ) 
ФӨенл000- &HD30B -e メイ ン ・ プ ログ ラム (リス ト 3) 


場面 デー タ の 入力 が 面倒 な 人 は , &H2000—&H213F 3 
面 1 の デー タ ) まで 入力 し て , &H2140— &H5D3F € F~ 
СЕНТ СО С KHE, 次 の よう に 入力 し て G1500 で 
OK で す . 


:1500 21, 40, 21, 11, 41, 21, 01, FF 
: 1508 3B, 36, 7A, ED, B0, C9 


AJ stt Cb > 72 5&H2000— &HD30B 7 —71- 
セー プ ブ し て くだ さい (ゲー ム 開 始 後 モ ニタ へ は 戻れ ませ ん ). 
HuBASIC の モニ タ か ら , GA000 で スタ ー ト し ます . タイ 
トル 表示 後 , ジョ イス ティ ッ ク の トリ ガ が を 押し て ゲー ム ・ 
スタ ー ト で す が , 場面 デー タ を 全部 入力 し な か っ た 人 は , 
この 後 す ぐに ゲー ム を 始め ず に 後 で 述べ る 方 法 で エディ タ 
を 呼び 出し て , 残り の 場面 を 自分 で 作っ て くだ さい . 


「 ア リ ・ ロ ボッ ト 」 の 追跡 を か わし な が ら 迷 路 各 所 に あ 
る スイ ッ チ を 「 イ ノ チ 君 」 が 通過 する と , スイ ッ チ が 入り 
$3. すべ て の スイ ッ チ を 入れ 終わ る と , スペ シャ ル ・ ド 
ア が 開く の で , そこ を 通過 し て 最上 部 まで 行く と , 1 面 ク 
прет. 

2 面 ク リア 毎 に 「 イ ノ チ 君 」 (BOY) が 1 匹 増 えま す . 8 
点 は スイ ッ チ 1 個 に つき 10 点 , 1 面 ク リア 毎 に 100 点 の ボー 
ナス が 出 ます . 

「 イ ノ チ 君 」 の 特徴 は , 


つり 輸 を 利用 し て 一 時 退避 


dir 


MILII 


E ILI 


= НЕ — LI 
— کی‎ s 


masene шн 
ٹک‎ 


^ M 
тизет певана ни ドキ 


һи: ЖШ... 


の 迷路 各所 に ある 普通 の ドア を 開閉 する こと が で きる (F 
リガ 1 : 必ず ドア の 前 で ドア の 方 向 を 向い て いる こと ). 

W つ り 輪 が 上 に ある 場合 , ジャ ンプ し て 退避 する こと が で 
きる (トリ が 2 : 降り る と き に は ジョ イス ティ ッ ク を 下 
げ る ). 


各 場 面 の 最初 (キャ ラク タ が 静止 し て いる 状態 ) の と き 

[町 の キー を 押す と , エディ ッ ト ・ モ ー ド に 入り ます . 

"YOUR COMMAND* と 表示 され る の で , 次 の よう に キー 

を 操作 し て , 好き な 画面 を 作っ て くだ さい . 

[5] --DRAW = — F : 場面 の 一 部 書き 換え に 使用 , カー ソ 
ル が 左上 部 に 表示 され ます . 

[C]--CLEAR DRAW モ ー ド : 表示 画面 を すべ て 消す . 新 
し い 画 面 を 描く とき に 使 用 し ます . カー ソル が 左上 部 
に 表示 され , DRAW モ ー ド に な り ま す . 

ik) カー ソル を 動か す に は キー を 使っ て くだ 

きい . 

画 DRAW モ ー ド で 使用 する 数 字 キ ー 
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wuz IFE 


[0] カー ソル の ある 部 分 を 消す (た だ し ,「 イ ノ チ 君 」 と 「 ア 
リ ・ ロ ボッ ト 」 は カー ソル を その 位置 に も ちっ て いく だ け 
で 消え る ). 
ブロック A (普通 の ブロ ッ ク ) 
[2| プ ブロック B ( 下 に ドア , つり 輪 を 描く と き の プ ロック) 
[3] 2%3⁄ = 
[4 普通 の ドア 
[5] スイ ッ チ 
[6] n $à 
[| アリ ・ ロ ポッ ト (必ず 3 PE) 
[8] イノ チ 君 (必ず 1 匹 ) 
[| スペ シャ ル ・ ド ア (必ず 11 
ж) [7] の アリ ・ ロ ボッ ト は 何 匹 で も 画面 に 表示 で きま す が 
メモ リ に は 常に 最後 か ら 3 匹 目 まで の デー タ し か 入ら 
な い の で , 表示 位置 を 変 た たい と き は 注意 し て くだ さ 
い の イノ チ 君 も 同様 で す . 
[E]--DRAW ЕМО: 場面 を 描き 終わ っ た ら , この キー を 
押す . 
[F] FORWARD : 場面 を ひと つ 進め る . 
[В]---ВАСК : 場面 を ひと つ 戻 す . 
[L]--LOAD: : テー プ か ら 全 場面 の アー タ を ロー ド す る . 
[$] ---ЗАУЕ : テー プ へ 全 場 面 の アー タ を セー ブ す る . 
[P]--PLAY : 表示 場面 か ら ゲ ー ム を 開始 する (イノ チ 君 」 
と 「 ア リ ・ ロ ボ ポット 」 の 表示 が お か し いと き に は , BOY 


+2 +7 +4 +5 +6 +7 +B +9 +A +B +C +D +E +F азат 
SE 26 7A E? BØ 07 46 ӘС OS 7А ЈА 7а 7A 137 
2 ВУ Әй 7А 7А 7А 7А 2Е 04 6D 7А 7А 7а 7А 13D 
26 7А 7A ТА 7а 7А ТА 7А 7А 7А 7а 7а 7A :4С 
ТА ТА 7А 7А 26 28 ЗЕ 7А 7А 58 7A 7А 7A 
ТА 7A ТА 7A 7A 7A ТА 7A 7A 7A 7A 7A 7A 
ЈЕ ЈА ТА 7A 7А 7А ЗЕ 2 20 20 20 20 3E 
7A 7А ТА 7A SE 20 20 20 20 7A 7A 7A 
7A 7A 7A 7A 7A 7A 20 20 20 20 3E 7A 
7A 26 7А 7A 7А 3t 20 20 ЗЕ 7A 7A 7A 
32 7A 44 7A 7A 3E 7A 7A 7A 7A 58 7A 
7A 7A 7A 3E 20 26 20 3E 26 28 20 20 
7A 7A ЗЕ 7A 7A 7A 7A 7A ЗЕ 7A 32 
7А JE 7A 38 7A 7A 7A ЗЕ 7A 7A 
ТА ТА 7A ЗЕ 20 25 7A 7A 
7A 7A ге 22 
ЗЕ 2e 


88258885 


> 
> 


БЕ 
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DATA, ROBO DATA と 表示 され , エディ ッ ト ・ モ ー 
ド に 戻る の で , 正しく セ モット し 直し て くだ さい ). 


初め て パソ コン を 購入 し た 頃 は , その すばらし さき に ひか 
れつ つも , メモ リ の 少な さ に 悩む 毎日 で し た (パソ コン と 
は も っ と すご いも の だ と 思っ て いた ). 

これ で は マシ ン 語 を や ら ね ば 無理 だ ど と 思う こと が 重なっ 
て , その 種 の 本 を 買っ た と ころ , これ が よく 理解 で きま せ 
ん で し た . それ な ら , と に か く ゲ ー ム を 作っ て みよ うと 思 
o, 悪戦 苦闘 の 末 . で きた の が この 「 が ん ば れ / イ ノ チ 君 」 
CY. イノ チ 君 の 完成 で 。 私 の マシ ン 語 の 知識 も まず まず 
の も の に な り ま し た . と に か く , 初心 者 は 理解 で き な い プ 
ログ ラム を その まま コピ ー す る の で は な く , まがり な り に 
も 自分 自身 で プロ グラ ム を 書い て みる こと だ と 思い ます . 


БЕ 


V2538»858828K 


+7 «8:49 
та 
та 
та 
ЗЕ7А 
24 
7А 
28 
29 
та 


が ん ば れ / イ ノ チ 君 


リス ト 1 場面 デー タ ダン プ ・ リ スト 


лаа +@ 
задә 20 
3A10 7^ 


тање 2 
те 


ЕЕРЕЕ 


ада +8 +1 +2 
зв@@ 28 7А 3E 
2В18 7А 7А 7A 
ЗЕ2@ 7А 32 7А 
2836 20 ЈЕ 7A 
знае 7а 7а 7A 
3878 ЈЕ 7А 7А 
зн 7А ТЕ 7а 
тв7@ 3E 20 28 
свве 01 14 40 
2898 46 14 85 
ВАВ 7А 7А 7A 
јвве 28 7А 7А 
`BC@ 76 7A 7A 
твоё ЈЕ 20 20 
SHE 20 20 7A 
E] 20 7A 


ші 
>» 


CPLILLLLLELLLI 


Sum УВ АС 81 


Add +@ +Е 
scee 7А 28 
3618 20 7а 
3C20 7А та 
3cse 20 ЗЕ 
3C4@ SE та 
3cse 20 7А 
зеље 20 7А 
3С7@ 7А ЗЕ 
3cee 20 ЗЕ 
3c9@ 7А 26 
3CA® 7А 7А 7А 
3CBO 44 ЗЕ 7А 
эссе 54 7А 7а 
3с08 19 7А 7а 
ЗСЕ@ 7А 7А 32 
ЗСЕФ 7A 7A 7А 


1А 78 Fó 


ШИ 


iis 


ШШ 


LLLLLLLELEET 
3 
11 すす ます すま よそ すす 


LETILLLLELEEESTITÀ 
CEEEEEEEEEEE 

ЫН ЕЕЕ 
EFLLLPLPLITT] 


ます トト オト 1 
3328888 
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3228 SE 
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ЗЕЊВ 7А 7А 7A 
3278 ЗЕ ЗЕ 3E 
зғве 20 ЗЕ 7А 
3290 00 7А ЗЕ 
ЗРА@ ЗЕ ЗЕ 32 
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ЗЕОФ 20 20 26 
ЗЕЕВ 7А 28 52 
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LLLLLLLLE 
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ЗЗВИНИИХ 
РАЈС 
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$1 


* 
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7А 7А 

7А 7А 

7A ЗЕ 7А 20 
38 7А 29 20 
ТА SE 20 26 
7А 7А ЗЕ 7А 
ТА ЗЕ 7А 7А 
7А 28 7А 7А 
7А 7А 7А 7А 
7А 7А 7А 7А 
7А 7А 7А 7A 
ве 7A ТА ТА 
ТА ТА ТА ТА 
7А ТА 7А 7А 
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ЗЕ 7A 7A 
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7А 7А 7А 
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БТГЕН ЕЕН 
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ЗЕ 20 
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ӘЕЕНІДІЛІІІН 
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$ 
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ТЕТІТТЕГІІТІТІР 
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ЕСЕ 


*@ +1 +2 +3 +4 +5 +6 +7 +B +9 +A +B +С +D +E +F iSum 


ФЕ +F :Sua 
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ЗЕ 28 20 :се 
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+0 


+3 +4 +5 +6 +7 +B +9 +A +B +C 


JE 28 7А 7А 7А 7А SE 7A 7А 7A 7А 7A 7А 28 :2С 


$950 28 28 2 の 20 20 20 20 28 28 22 28 28 28 28 7А 7A :B4 
$950 ТА 7А ЗЕ 7А ТА 7A 7A 7A ТА 7A 7A 7А 7A 7А 7A 7A :64 
та 7А 7А 7А ТА 7А ТА 7А ТА ТА 7А ТА ЗЕ ТА 7А ТА 164 
5960 1С OB 9B OZ 7А 85 81 89 16 14 55 @6 7А 7A 7А 7A :57 
3998 18 OO GF өе 7а 7A 7A 7A 28 Фе 2A ве 7A 7A 7A 7A :44 
$988 7А 7А 7A 7A 7A 7A 7A 7A ТА 7A 7A ТА 7A 7A 7A 32 :58 
5908 20 26 20 ЗЕ 7A 32 7А SE 7А 28 32 ЗЕ 7А 38 7А 7А :B8 
5ЗЕ@ 3E 7A 20 7А 7А 7A 7A 26 7A ЗЕ 7A ӘР 7A ЗЕ ЗЕ 20 :2Е 
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ХАКА 
Ева 
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ИЕШЕ 
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7А 3E 7А 7А ЗЕ :04 
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DA 92 ЕФ DA ФЕ 19 DD 49 Өр 66 99 94 78 9C DE F4 119 
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1С ВЕ АА 9C AO 88 EE Dé 48 4E 58 BB 1С BE 2A FB :4Е 


16 DA 52 16 EC 52 16 F8 24 52 BC 9Е 16 16 :ҒЕ 


20 JE 28 7А 7A 7А 7А 7А JE 7А 7А ЗЕ ЗЕ ЗЕ ЗЕ :2А 
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14 49 96 
SAD@ 28 86 ФА Q2 7А 7А 7А 7А 2E 14 60 86 7А 7A 7A 7A :C2 


+8 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +С +D +E +F :бит 
сөге 7А 44 7А SE 28 20 20 20 JE 7А 7А ЗЕ 7А 44 7A ЗЕ :DC 
ЗАЗӘ 7А 7A ЗЕ 20 7А 7A 7А ЗЕ 7А 20 7А 7А ЗЕ 7А 7А ЗЕ :ҒС 
SA40 20 26 20 ЗЕ 7А 28 52 7А JE 7А 7А ЗЕ 28 7А 7А 7A :ЕВ 
Sase 7А ЗЕ 7А 26 7А 7А 28 ЗЕ 32 ЗЕ 7А 44 7А ЗЕ 32 26 :E8 
5468 20 ЗЕ JE SE 20 26 28 7А 7А 7А 7А ЗЕ ТА 38 7А 7А :@C 
за?е 20 20 20 20 20 28 28 28 28 58 7A 28 JE 28 7A 38 :@2 
5АӨ@ 7А 7А ТА 7A 7А ЗЕ 7А ТА ТА ТА ТА ТА ТА 7A 7A 7А :64 
Sa9e 7А 7A ТА 7A ТА 7A 28 7А ТА 7A 7А 7A 7А 7A 7A ЗЕ 
SaaB ТА ТА 7А SE ЗЕ 7A 7A 7A 7А 32 7А 7А ТА 7А 7а ЗЕ 104 
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28 
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57СӘ 7А 7А ТА 7А 
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5788 28 ЗЕ 7А 2 


Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +С +D «E +F :Sum 


5788 25 00 24 ФӘ 7A 48 85 09 4C 14 BB G6 7A 7A 7A 7A :F2 


2718 49 14 BB Bó 7A 7A 7А 7A 4% 14 BS Bó 7А 7A 7A 7А :А@ 
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5воф 7А 7А JE 7A 7А ТА ЗЕ 7А 7A 7А ЗЕ ТА ТА 7A SE 7А pQ 


SB の の 58 7А 7А 7А 38 7A 7A ТА 38 7A 7A 7A 38 7A 7A 7А 198 
5810 28 7А 20 SE JE 7A 7A 7A 7A 7A 7A ТА ТА 7А 7A 7А 18C 
5828 ЗЕ 7А 7А 7А 7А 7А 7A 7А SE 7А 7A 7А 26 ЗЕ ЗЕ 32 114 
5В5@ 7А 32 ЗЕ 7А 7A 7А ЗЕ 32 7А 7А ЗЕ ТА 7А 7А ЗЕ 52 108 
SB4 の 7А 32 JE 7А 7А 7А @@ ЗЕ ЗЕ 28 20 20 JE 20 20 20 :02 
5В5@ JE 20 20 20 SE 20 20 28 JE 20 20 20 JE 20 20 ЗЕ :96 
5868 20 20 JE 7А 20 7А ЗЕ 7А 7A 7A SE 7А 20 7А SE 7A 148 
5878 7А 7А JE 7A 28 7А SE 7А 7А ЗЕ ТА 7А ЗЕ 7А 28 7А iFC 
5вӘ8 SE 7А 7А 7А SE 7A 28 7А ЗЕ 7A 7А 7А ЗЕ 7A 20 7А аҒС 
5898 ЗЕ 7А 7А SE 7А 7А ЗЕ ТА 26 7A ЗЕ ТА 7А 7A ЗЕ 7A 120 
5ВАФ 26 7А ЗЕ 7А 7А 7А ЗЕ ТА 26 7А SE 7A 7А ЗЕ 7A 7A 108 
5ВӘФ ЗЕ 7А 38 7A ЗЕ 7A ТА 7А SE 7А 38 7A ЗЕ 7A 7A 7А і2С 
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31 


UAR PCG デ ー タ ダン プ ・ リ ス ト NN 
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FD 19 
16 ғә 
6E A7 
Е7 А! 
18 го 
3D RB 


AF 95 


+9 +1 
Fe sc 
C3 1D 
Fe FE 
CA D2 
FE @1 
4 CA 
BS FE 
Са 09 
BS c7 
ep Fi 
34 св 
C7 зА 
ЗА 11 
св sc 
31 ғә 
са за 


Fe ce 
сь es 
c7 c3 
Fe вс 
31 ғә 
C2 sa 
ıa ғә 
Fe 
19 re 
СА A2 


CD 
FE 
ci 
FE 
cs 
44 
ез 
ЗЕ 
СА 
Ce 
ED 
F@ 
го 


94 


+2 
12 
75 
CD 
FD 
ss 
cs 
21 
^2 
со 
14 
ғә 
а? 
EZ 
FD 
вь 


Fe 


+2 
cs 
FD 
са 
ee 
Al 
6E 
cD 
19 
Fa 
а? 
Е7 
FD 
21 
сі 
ға 
Ce 


ға 


сь 
FD 
ca 
cs 
со 
со 

16 
re 
А? 
EZ 
FD 
11 
DD 
3a 
47 
са 


Be 


+2 
32 
Ce 
e2 
ва 
са 
өз 
es 
вз 
cs 
cs 
за 
ЈЕ 
ғә 
BC 
BC 
21 


es 
67 
са 
28 
BC 
21 
рь 
рь 
рь 
с? 


77 С> 
2А 28 
FE 41 
3F 28 
cs 95 
40 ED 
44 ар 
са 10 
AB cs 
за 10 
78 су 
87 ED 


FE 25 
FE 47 
ip cs 
18 ев 
за ıe 
C9 за 
78 с» 
FE 41 
95 CZ 
ЊЕ ЗА 
18 ғә 
СА 1 


29 
ср 
са 
ғә 
со 
57 
cs 
cs 
ға 
es 
св 
e 


る 318228338888 


+6 +7 
ee ғо Add +8 +1 +2 «3 +4 +7 +в 
2А 12 CB@@ АА FS EA FF C4 eo 04 
CD 6E CBi@ ве ве ве ве ог go 04 
Ср Е7 свге Аё FO F8 1C в өе ве 
ға 47 CB30 да DO єв 14 @ ee 20 
93 3A CB4@ 90 ә! の 1 ә: са eo 20 
22 12 CBS@ @5 OF iF 38 c@ ЕЛ 
cc 2А CB&8 85 ØB 17 28 50 89 F9 
DD 2А све ве 44 28 59 AB 89 a9 
FD 22 СВӘФ 55 АҒ 57 FF 25 СЕ 
FD 19 CB9@ 55 АҒ 57 FF 25 42 45 
14 ғә сваф 82 ез ва es аг 45 42 
ФЕ А7 CBB@ 15 1E 50 65 се ге 24 
CD EZ CBC@ 15 1E 3D 65 се 22 Е! 
свре 28 18 ве 48 ле Е2 А! 
СВЕФ 54 ВС ЗЕ Её 85 ee 10 
CBF@ 54 BC SE Eé 83 91 F 
Sua 1А BB 09 55 Ab CA Fé 2C 29 
Add +8 +1 +2 «3 +4 +5 +6 +7 +8 
CC@@ 11 28 24 2А 15 @@ ВЕ 91 95 
CC1@ АА FS EA 9Ғ 84 84 @@ 00 20 
СС28 АА FS EA 9F B4 84 @@ @@ 22 
ссза 0G ве ве ве ве 00 се се 02 
CC4@ ве FØ ЕВ ес 22 go ee ве 
ссза ва ке ЕВ әс 22 ве ве а 
CCo0 ев ве ге се әс OO өе ве é0 
CC7@ @4 ев 11 20 ге 00 әс ов со 
CC8@ 84 ев 11 20 ре де iC 22 ЗЕ 
CC9@ 22 45 49 55 2А Фе 1С 22 2А 
CCAG 55 EB 55 ЗЕ 08 вв BO е 41 
ссве 55 ЕВ 55 JE Фе ge ве ве се 
ccce ве ее се ге ое се ге ге се 
ссре ве сә ьа 18 әс 25 ве ге 
ссее ве се 50 10 ес әз се ге 00 
ссғе вг ве ee се әс go go ге ве 
Sum 39 23 BD Ві 75 28 Cé 55 А? 


са C1 ЗА 11 FO 50 32 11 ҒӘ CS 180 эз + 
FD 22 16 ҒӘ C3 1D CS ЗА 11 ҒӘ (F Cus oa Si Qa Qa ОЕ 
76 CD 2А 16 F@ B7 ED 52 СА 28 :@5 CDi@ ge ез ee ee зе се зе 
ФЕ СА CD 58 ве C1 @3 CS DD 21 :46 CD28 44 А2 92 АА 54 ве за 
ез DD 21 ФЕ СА CD 58 Bé Е! CD :Cé CD38 АА 07 AA 7C 18 18 ге 
DD 2А 16 FO CD E7 Аі 11 18 ӨӨ :26 CD48 АА 07 AA 7C 18 іе 21 
FD 22 16 ҒӘ El CD 6E А7 CS DD 1CD соза ге ге ге об ge се 
FD 19 FD 22 16 ҒӘ CD E7 A1 Е! 1СА CD&8 20 ре 88 24 go ре со 
16 РВ 11 18 @@ FD 19 FD 22 16 і2Ғ со7е 28 De өв 24 ge oa oa 
6E А7 CS DD 2А 16 ҒӘ 11 18 @@ :@3 сова 50 CA 08 ре 52 ер ға 
Ср Е7 А! Е! CD 75 А7 CS DD 2A 126 CD98 3C FE ФА СА AB CD 32 
19 FD 22 16 ҒӘ CD E7 А1 Е! CD 16D срав ®1 77 57 ЗА &2 F8 3C 
11 18 @@ FD 19 FD 22 16 ҒӘ CD 155 срве 62 FO AF 52 61 ҒӘ CD 
24 04 ЗА Әі ҒӘ BB C2 ҒА Có ЗА :B1 Cpce 75 57 ЗА 65 ғә 
B8 СА @3 Cé 3C BƏ СА @3 СЬ 50 180 AF ғә 
B8 СА @3 Cé El CD 6E А7 ЗА 11 11Е ғс as 

> СЕ ғә 


+6 +7 +B +9 +A +В +С +D + 
15 С7 ҒО 21 56 СС РО 22 16 ЫЈ 
F@ ср 47 AS CD DS С9 09 ЗА sr 
ЗА ФА Fı FE @1 СА СӘ Ва FE CEIO FC CD SF AS C9 81 71 37 ЗА 
E4 B4 FE 04 СА ӨЗ C7 ЗА ев %5 FO ^F 32 
92 СА 32 BS FE @3 СА 44 BS CE38 РӘ 32 54 ҒӘ CD 54 СЕ 16 FC 
Ғі FE 81 СА 7D BS FE 82 СА CE4@ А5 16 FC CD SF А5 16 FC CD 
FE 84 СА 85 C7 ЗА @D F1 FE CES@ А5 СУ 37 СЕ ЗА 68 ҒӘ FE гө 
EB BS FE 83 СА FD BS FE 04 28 29 FE 84 
32 Bà F1 32 BB Fi 32 ӘС Fl 28 31 FE 08 
1F FO FE 90 СА се C7 FE @1 севе CD SF А5 C9 16 08 CD SF AS 
9i 28 OF SE @9 52 iF ҒӘ C3 СЕФВ 16 EO CD SF AS C? 16 Е4 CD 
28 F1 3E @1 32 IF РӘ CS 15 CEA@ AS C9 16 ЕС CD SF AS C9 16 
ға BC 20 15 3A 51 ҒӘ BC СА СЕВ@ CD SF AS C9 16 F8 CD SF AS 
50 30 BC СА 10 C8 C3 ҒҒ C7 СЕСФ 4Е 7А Ер 79 СВ Аё ЗЕ 27 ED 
вс 28 86 50 3D BC 28 ез C3 CED@ 18 EF бі 31 37 DD 21 EF CE 
28 25 50 3D BC 28 20 18 GF СЕЕФ 37 26 86 CD 25 АВ 81 65 37 
СЕҒӘ Ав 80 BB 98 04 FC DG 84 FC 
99 51 BE LEE 
Sum 69 СӘ 22 54 02 41 18 29 ВВ 


+6 +7 +8 +9 +A +B ++ 
28 ЕВ BC 28 Ав CS ЗА 18 +0 +1 +2 +3 +4 +5 +é +7 +8 
Fe ВС 28 97 CS СА 1e ғә ве се 04 FC FC FC FC FC FC 
BC СА Ві C7 ЗА 58 СА В1 ВЕ ФА ЗА 6F F8 FE @1 28 41 
ҒӘ 67 ЗА 21 ҒӘ BC ЗА 31 CF Bi 55 37 ЗА 5С РӘ ЗС FE 
28 47 3D 3D BC 20 28 3A «с F8 CD 54 CE AF 32 &E РӘ 
BC 28 00 50 50 BC C3 92 ға 3C FE Ва 28 1B 32 68 FO 
28 27 3D 3D BC 28 19 за FC CD SF AS АҒ 32 5С РӘ 18 
28 ға BC СА А2 C7 с2 за e5 SE @1 32 éF ҒӘ 81 3F 37 
39 ҒӘ BC СА А2 C7 C2 зА өв 52 68 ҒӘ 32 5А F CD 54 
28 ҒӘ BC СА А2 C7 ға эс &B FO 3C FE ӘЗ 28 14 32 68 
АҒ 32 1E FB ED 4B за 10 Fe CD 54 СЕ 16 FC CD SF АЗ 
28 11 ЗА 38 РӘ BC 3D әс 78 ға SE 81 32 ФА ҒӘ 16 FC 
42 18 20 3A 38 РӘ ec зр AS 96 ва CS CD ва CD СІ 85 
28 83 C3 1D C3 ЗА 3D эс АЕ CS 26 08 DD 21 DC CF DD 
22 1818 ЗА 11 ҒӘ 67 ЗА @@ DD 23 CD B4 А5 25 C2 C8 
C3 1D CS ЗА 11 ҒӘ 67 ЗА ве BD 14 86 10 ве 19 0? 36 
21 ee ре DD 7E ee 57 DD 23 
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> 


S5220$$98898s8B$2 


8) ЕРР32242888482503 


БЕРЕГЕН ЫЯ ЕИ 
39282474025 4ESURS S 
%82158%54222742%2 


| 
| 
| 
| 
| 


ЕЗ БИЕ ЕНЕНЕ ЕН 


8888352385 


88254885086 35385 
БЛ8255%8988882282 


38888498032985834 
HTLITBHSUIEEEITER] 


Ч 
? 
$ 


Б 
R 


2 
8 
5 
3 


“с 
AF 
ге 
°. 
° 
ге 
ге 
ге 
ге 
ЗЕ 
ЗЕ 
ге 
14 
14 
° 
28 
28 
D3 


8S93486782°88888284 
ЧЁВЧЕЕБАНЛЕ?ЧЫЗП5 


2385 


85378838883838 


7833882883888882: 


+0 
Ln 
e 
ге 
ге 
гг 
гг 
ге 
ве 
ЗЕ 
20 
ee 
ев 
ге 


ФЕБН:2840%%222%42 
3839*85:88780985935 
1 すす オド トト トト は イエ ネ 1 


22888888: 


ғ 
ao 
өг 
ге 
ге 
е: 
ка 
^c 
^c 

ei е2 

өз в 

ве г. 

са 28 

ке ве 

28 ве 

ФЕ IF 


$;88888355833883?55 
Я 88888558888888883 


8888238854 


БЕКЕН 
592288897381 


ass 


3825082448 5952034 


855258828: 


295 
PE 


48588 


LEELEE EIEEEI ILE 


За ТАРЕ 


リス ト 3 メイ ン ・ プ ログ ラム ダン プ ・ リ スト 


Sum 85 9C FZ 11 AS А2 B4 Q9 C2 95 ҒӘ ŞE ҒӘ 71 FF 77 115 5 22 60 ғә CD СЕ 16 F8 CD 3 огве CD BD AS CD CE ре 26 07 CD 76 ре в Bó CS CD CE 
16 АЕ D2C@ DØ Ci 12 F9 CD BD AS Сі C3 @6 Di DD Ge 91 G1 Фа 
2 18 17 : 0206 68 JE өт DD өе е: ө: OA OB DD ве в: е: BA өв DD 
22 79 ғә 1 D2E の @@ 21 G1 Ва 08 91 @@ 01 @1 AF の 9 01 е! A? BƏ 01 
+5 +6 +7 +8 +9 +A +B +С +D +€ 3 AS cp i D2F@ 81 Фа дв DD Әб 21 D ФӘ 21 0: ФА OG F1 GO 2: 
C9 за әб ез ө: 7D ег өе ез 18 ве CD : 
ес 04 ер OF ељ CS DD 21 88 De 2 А5 СІ : ӘҒ СВ ВВ ВЕ С7 DE Е5 20 19 07 EF 98 
СЕ ре CD CE ре 26 Ва CD 76 ре аз cp 
26 @4 CD 76 D@ CD СЕ DE 26 @4 2 AS CD 
CD СЕ De CD СЕ ре 26 84 CD 76 2 
ср 76 ре CD СЕ DO 26 @4 CD 76 : Add +08 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +C +D «E +F 
ср 76 ре CD СЕ ре CD СЕ DƏ CD : озге е: DD её の 1 91 ға ев O0 о: о: QA GG QQ oo өс се 
C9 рр 7E өе 57 DD 25 DD 7E eo 
20 EF C9 77 DD 92 @1 - Sue 1 DD @Q 01 の 1 ØA 08 QQ е: о: Фа ев өе ве oo ве 
gi 85 BE 
Фі ӨЗ ЕЕ 


E3 55 9B 93 ES F4 BB 


C5 CD CE 
CE ре сі 
Add +8 +1 +2 +3 +4 +5 +6 +7 +8 +С +D +€ 0278 26 02 CD ср СЕ рә 
0100 CD BD AS C3 96 СІ 81 55 57 JA 20 ҒЕ ҒҒ D28@ CD 76 ре G6 @4 CS F9 26 02 CD 
0110 19 32 68 ҒӘ 52 5С F8 CD 54 СЕ ЗА р FO FE ӨӨ D290 ре CD CE DO CD BD AS CD CE ре 26 07 CD 76 ре 
0120 25 ЗА 6С ҒӘ FE 80 20 1С 18 23 01 53 57 3A 6D 02А@ 94 CS CD СЕ DƏ СІ 10 F9 26 Q2 CD 76 De CD СЕ 


X ] 重量 く ら ベ ー 僕 の 心 は 科学 する "БІЛЕ, 


パー ソナ ルコ ンピュータ の 重量 っ て いう も の は 天下 泰平 で きる と 思っ た ん で す が , まる で 無 意 味 な 試み だ っ た みた 
の 平常 時 に は 全く 気 に な ら な いも の で す . LL, いざ 火 いで すね . し か し “科学 と は 無 意 味 な 推測 の 積み 重ね か ら 
事 に な っ た り , いざ 質屋 へ 歩い て 持っ て いく こと に な っ た 生ま れる 偶然 に よっ て 進歩 する ” と いう 言葉 も ある こと だ 
l), いさ 地震 が 起き て 机 か ら 足 の 上 へ 落ち る ハメ に な っ た L, 皆さん も 科学 する 心 を 絶え る こと な く 持 っ て いて 頂戴 . 
り , いざ 漬け 物 石 が 必要 に な っ た り し た 場合 な ん か を 考え 
て 覚え を て お いた 方 が 後々 の た め に 便利 で すね . 

そこ で 今回 X1 シ リー ズ 全 14 機 種 の 重量 一 覧 を 作成 する と 
と も に , 科学 する 心 を 持っ て , 一 見 無秩序 に みえ る 数 字 か 
ら 法則 を 導き 出 そ 4 堪え だ た 訳 で す 。 | 重量 > |FDD 数 | 価格 順位 

それ で は 科学 する 心 を 用 意 し て 表 を 見 て くだ さい . 1F X Iturbo Model 40 12,200 
重量 の 軽い X1C は 5000g. 余分 な ぜ い 和 肉 を そぎ 落と し な た その X Iturbo Model ЗО 12,200 
Bl, ジャ ズ ダ ンス の イン スト ラク ター の さわ や か な みな 肢体 X Iturbo II 10,800 
を 思わ せま す . шісі 番 重 い X1turbo Model 40 は 新生 児 таро Mods 20 "i 
3.5 人 分 の 重量 を 持つ 巨漢 で ,. これ が X1 シ リー ズ の 小錦 と XIF Model 20 8,800 
呼 (ばれ て いる ゆえ そん で し よう ・ X Iturbo Model 10 8,600 

さて それ で は 本 題 の 考察 に 入り まし ょ う . 比較 対象 は X1 AUD URL. 

дее қамы apk php: А X1G Model 10 1,300 
の 重量 順位 と 価格 順位 。 СРО xi Tim 
係 が ある か どう か を 調べ る わけ で す . 科学 する 心 を 準備 し XIF Model 10 1,000 
C, 表 中 の 左端 と 右端 を 見 比べ て みて くだ さい . XICk 5,200 

どう で し た ? キッ チリ 定義 で きる 関数 は 成立 し て ませ | xics AL ME 
ん ね . 相関 関係 が あっ て 式 を 定義 で きた ら , 肉 屋 さ ん で 「 バ ーー 50и 


AN Я š 3 ※ 重 量 と は 本 体 と キー ボー ド を あわ せ た 重 さ で す 。 
ラ 肉 300g お くれ 」 と いう よう に コン ピュ ー タ の 目 方 買い が な お , 各 重 量 な ら び に 標準 価格 は カタ ログ か ら 抜 粋 し た も の で す . 
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人 人 1 シリ ー ズ 


ЗНА СА ФОРИ 
分 裂 し て も らい ま 


カボ チャ の 種 っ て 食べ た こと あり ます か ? と っ て も シン 
プル な 味 な ん だ けど , 食べ だ し た ら や め ら れ な い . この ル 
ナー ジ シティ 505 は そん な ゲー ム で す .。 短い プロ グラ ム で 
すか ら 一 気 に 打 ち 込 ん で , ご 賞味 くだ さい . 


ーー АЛЛ — — 


モニ タ の IM コマ ンド を 使い . リ スト を よく 見 て 間違い の 
な いよ うに 入力 し て くだ さい . そし て 入力 が 終わ っ た ら , 
よく 確認 し て , 間違い が な けれ ば S コマ ンド で プロ グラ ム 
を デー ダビ に セー ジジ デ し て くだ きい 、。 


まず BASIC (CZ-8CB01, 8ЕВ01) を ロー ド し , MON 
[ RETURN | と し て モニ タ に 移り ます . 

次 に カセ ッ ト に 先 の テー プ を セット し て と 上 

RETURN | と し て ロー ド し , ロー ド が 終わ っ た ら 
С1АВ1| RETURN | と すれ ば ゲー ム が スタ ー ト し ます . 


ビー ム 船 は テン ・ キ ー の [4| と [@|」 また は ジョ イス ティ ッ 
ク で 左右 に 移動 し , | SPACE | キー か トリ が ガ ・ ボ タン で ビ 
ー ム を 発射 し ます . 


ダー 導 を スタ ー ト する と まず 上 上 空 に ト デ アシ ダー ス デ ー 
命中 する た ぴあ な た の 脳 ミ ソ が リフ レッ シュ され ます 
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表 アド レス ・ マ ッ プ 


アド レス | 内 S 


14А0 音楽 デー タ ・ セ ッ ト 

14D9 音楽 演奏 

15ED 10 進 出力 

162Е メッ セー ジ ・ プ リン ト 

163A 10 進 プリ ント 

1665 STICK 

167B STRIG 

1687 パレ ッ ト ・ セ ッ ト 

1692 タイ マー 

169F PSG デ ー タ ・ セ ッ ト 

1AB1 ゲー ム ・ ス ター ト 

1E18 ビー ム 船 移動 

1EA4 ステ ーション , UFO, ト プ シ ダー 移動 
1FAE ト プ シ ン 移 動 

20C2 ト ポ ン , ミサ イル 移動 

2442 ミサ イル 発射 

21EE ビー ム 発 射 

2244 ビーム 移動 

229E 都市 や られ た か 調べ る 

230A バリ ア 張 り 替 え 

2368 バッ ク の 星 の 色 を 変え る 
238D 1 面 ク リア 

24ҒЕ ピー ム 船 全 減 (ゲー ム ・ オ ー バ ー) 
2555 都市 すべ て 破壊 (ゲー ム ・ オ ー バ ー) 


ショ ン が 出現 し ます . この ステ ーション は 中 央 の 紫色 の 部 
分 に 4 発 ビ ー ム を 受け る と 分 裂 し て 2 機 の ト プ シ ダー 
UFO に な り ま す . そし て UFO は 胴体 に 3 発 の ビー ム を 受 
ける と 2 匹 の ト プ シ ダー に ,。 ト プシ ダー は ビー ム 2 発 で ト 
プシ ン 2 匹 に と 決 々 に 分 像 し ます . し か し , ト プ シ ン に は 
分 像 能力 が な なく ビ ー ム を 1 発 受け る と ト ポ ン に 変化 し て 落 
ド し て きま す . 

ЖЫ, ルナ ー シ テ ィ の 都市 は バリ ア に よっ て 守ら れ て い 
ます が , ト ポ ン や ミサ イル が 当たる と 穴 が あい て し まい ま 
+. バリ ア が 穴 だ ら け に な る と ト ポ ン や ミサ イル で 都市 が 
破壊 され て し まう の で , バリ ア を 張り 替え て くだ さい . 2x 
リア は テン ・ キ ー の |8I か ジョ イス ティ ッ ク を 上 に 倒す こと 
に より , 画面 古 下 に 表示 され て いる 回 数 分 だ け 張 り 替 える 
こと が で きま す . 

そし て ゲー ム は , 1 面 ク リア する と 残っ て いる 都市 の 
数 ※ 面 数 X50 点 が 加算 きれ , 5.000 点 で ビー ム 船 が 1 機 増 
5, 8 つの 都市 か ビー ム 船 が すべ て 破壊 され る と ゲー ム ・ 
オー バー に な り ま す . 

#72, 3 ・6・10 面 で は 出現 する ト プ シ ダー ステ ー シ ョ 
ン の 数 が 増え 、15 面 か ら は ト ポ ン や ミサ イル の スピ ー ド が 


フロ グラ ム は すべ て マシ ン 語 (ЯН14А0--“НӘССІ で 


Ж. RE ЛРУ КИА тоу EUT + 


ЖАРА. рО ГЕНА, PiO の МЕ 
КАКО SA E ШИД A Ao b Z) £ lš pa C v 7: 72 š £ 


し た 。 ФО ЖЕЗ А 175, 

ФЕ Ба 

1) ЕЛ : “LUNAR CITY SOS”,I/O,'811F.4 J| у 
2) “PO パー ツ ( ミ ュー ジッ ク )“"。 РІО. 7844-9, TOF S 


Add 
1440 
1480 
14C の 
14р0 
14Ед 


+1 
01 
C1 
95 
ED 


+2 
32 
2С 
99 
1A 
ТЕ 


+F 
03 
D5 
FB 
96 
АЕ 
99 


14Ғ0 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 


бит 


1870 28 07 20 90 3E 5B 36 5D 0D 28 32 29 20 42 45 41 :83 
1880 4D 20 53 48 4F 4F 54 20 20 20 20 20 20 20 5B 53 :88 
1890 50 41 43 45 5р Өр 28 33 29 20 42 41 52 52 49 45 :рС 
Sum 43 A2 FC 70 44 90 19 52 99 77 FA 10 55 06 EQ 49 :2E 
Ада +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +C +D +E +Е :Sum 
18А0 52 20 20 20 20 20 20 20 20 20 20 5B 38 5D өр Өр :9С 
18В0 06 35 30 30 30 20 70 6F 69 6E 74 73 20 А6 20 ВА :28 
18С0 B4 D9 C4 20 42 45 41 4D 20 53 48 49 50 20 31 CO :EB 
1800 DE В2 20 С2 В2 В6 Al Өр Өр өр 07 20 20 20 20 20 :49 
18Е0 20 20 20 20 20 20 20 20 20 48 69 74 02 20 53 50 :0А 
18Е0 41 43 45 07 20 6Е 72 02 20 54 52 49 47 47 45 52 :07 
1900 QQ 05 41 04 05 41 41 41 41 41 41 41 41 41 41 41 :1A 
1910 41 41 41 04 05 41 41 41 41 41 41 41 41 41 41 41 :97 
1920 41 41 41 41 41 41 41 41 41 41 41 41 41 04 05 41 :97 
1930 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41:10 
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DIY TA SOS 


ルナ ー シ テ ィ SOS マシ ン 語 リス ト 


| isre 48 29 53 43 4F 52 45 29 29 
1с00 20 20 20 20 42 41 52 52 49 
1С10 20 20 20 20 42 45 41 4р 20 
1C20 00 01 8B 37 2A C5 2C CD ЗА 
1С30 CD ЗА 16 21 00 35 01 30 37 
1C40 03 C5 44 4D ED 59 СІ 23 3D 


38 


wwe 


ルナ ー シ テ ィ SOS マ シン 語 リ スト 


2980 47 8D 9D 00 01 06 18 20 47 8р 9D 00 01 06 18 20 :60 
2990 47 8D 9D 1F Ед 00 OC ФЕ ЗЕ BD BD 1F EO 00 OC ФЕ :5C 
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X1 シ リー ズ 


Pearl Di 


真珠 採り の 名 人 ポー リィ 君 は , ある 日 黄金 の 真珠 が 採れ 
る と いう 島 の 地図 を 手 に 入れ た . 

そし て , 意気 揚々 と 出かけ た ポー リィ 君 で は あっ た が , 
そこ に は 当然 と も いう べき お 邪魔 キャ ラ が 存在 し た の で あ 
е; 


а IH IY 
ее 99:99:09: EERE 


жет 

НА 26 

HuBASIC (С2-8СВ01, 8FB01) ое = 7 C, 1500H 

—5F32H まで を 入力 し て くだ さい 。 スタ ー ト ・ ア 
1500H で す . 


ドレ ス は 


* оф» өф» odo odo 
$390:09:09:090:09:00:00200:00* 


УАТС ЕКА: pes, 
た は トリ ガ が 1 で 真珠 を くっ つけ ます . @ сх 
プ ・ ア ッ フ , (РІС при, [ RETURN CHHL x 


фо обо өф» эф» оде оде оде од» аба од» 6» 6» эф» обе обе обе обе о I] 26; * 
H ° 


ДАНА А АНА оноо HR HH nd Hd n tti i 

JUNK dC SE 1 面 ク リア ー で す . 真珠 は ボー リィ 

の お し り に くっ つけ て , 左端 上 の ゲ ダート か ら 入 り 。 石 端 ま 
で 行く と 運び 終え た こと に な り ま す ( 図 1). ポー リィ の お 
し り を 真 味 に 向け て トリ が 1 を 押す と ., 真 味 が くっ つき ま 


+. キー ボー ド か ら の 場合 は | CTRL | キー を 押し な が ら . 
(8/2 キー を 使用 し ます (82). ボー リィ に 真珠 が く 
絶 体 絶命 の ポー リィ 千 


He ела 
くすくす く УУ 


すく うく] AA か か 
DR 


E “x 56565655550) 
2 дек == 


25) 


D BS Š 


He 


44553515157: 


>». を さち › 
arare peperere ھک کرد‎ AA E> 
5< : 6666666 НІ:0020000 БЕРТ: З : 


STAGE 
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e ダイ パー 


Vcr 


% 
CO 右端 まで ゆく と 運び 
終え た こと に な る . 


2 真珠 の くっ つけ 方 


Фа comert. 


キー ボー ド の 場合 は | CTRL | キー 十 [4| で くっ つく . 
※ ち ょ っ と テク ニッ ク [CTRL | キー を 押し っ ぱな し で プレ イ す る 
と や りや すい . 


っ つく と, Шит жі) £4. 
そし て , 敵 に 抽 ま る か 酸素 が な く な る と ポー リィ が 1 人 
減り ゼロ に な る と ゲー ム ・ オ ー バ バー です . な を お, 酸素 が 
な く な っ て くる と ボー リィ の 人 色 が 上 吾 一 黄 一 赤 と 変 化し て い 
き , ГОДЕ: E НИИ S do E. 
#72, ポー リィ は 害 を 押し て 動か すこ と が で きま す . 4) 
を 敵 の 上 に 落と すこ と で 敵 を や っ つけ る こと が で きま す 
(イソ ギン チャ ク は や っ つけ られ ませ ん ). 
それ か ら , 世 珠 を くっ つけ た 後 は 民 や 重 に 移動 し な いと , 
貸 小 路 に 入っ て し まい ます 。 気 を つけ まし ょ う 。 ま だ な だ. © 
の ゲー ム は キー ボー ド で も 充分 遊べ ます が , БӨКТЕР 
る 面 も ある の で , で きれ ば ジョ イス ティ ッ ク を 用 忘 し まし 
Бој. 
あと , ШИН ET. БДЕЊА, 
アテ ア が 2 県 を 超え る ご と に ポー リネ が 1 太 増 ます 
HI AET) 


° HEB 
o liem す よ うな テク ニッ ク は あり ませ ん . — иу 
し た と ころ は BGM TF. タイ ママ 割り 込み で 演奏 きせ る こ 
と が で き な い の で ., 時 間 合 わ せ が 大 変 で し た . ПА, IH] 
ける よう に な っ だ た の で は と 思っ て いま す . т РО パー 
ツ の も の を いく つか 使わ せ て いた だ きま し た 。 
ое ее в 
ЕУ ДАО ВАСА мк. 得る と ころ は 少な いと は 
лы ل‎ hs QUU he HG 
ドッ ト の 動き に し た の で , 動き は まあ 滑ら か だ と 思い ます . 


Боагі Diver 


1АВ0 
1АВ9 
1В13 
1B1C 
1A18 
1A1E 


1CEC 
ТЕСЕ 
18E1 


1A5F 
2 АВО 
2B75 
2B00 
2B14 
2B0A 
2BC3 
2BF0 
2C34 
2C6F 
1E4E 
2316 
243Ғ 
24A9 
24E2 
28Ғ0 
2539 
25A2 
25BE 
2231 
26A7 
212D 
2314 
2162 
2CDB 


スコ ア 表 示 

ハイ ・ ス コア 表示 

ポー リィ 残り 表示 

ステ ー ジ 数 表示 

中 央 画面 消去 

画面 消去 
HL 一 縦横 
BC 一 画面 アド レス 

面 デ ー タ の 展開 

タイ トル & デ モ 

32X24 ド ッ ト ・ キ ャ ラ 表 示 
DE 一 デー タ 先 頭 
BC 画面 アド レス 

得点 計算 

乱数 

音楽 1 

音楽 2 

音楽 3 

音楽 4 

効果 音 1 

効果 音 2 

効果 音 3 

効果 音 4 

ポー リィ 処理 

RUE 

ヒト デ 

ヤドカリ 

ナマ コ 

イカ 

クラ ゲ 

ウニ 

タコ 

真珠 を くっ つけ る 処理 

イソ ギン チャ ク 処 理 


ie 


し まい まし な 。 727 
パズル 性 も 加味 し よう と 和央 を 採り 入れ た 
キャ ラク タ も 増やし た り 
сто с О вз 175, 


315573 


9, 
グラ ム も ずい ぶん と 大 き 


мең 


と いう ゲー ム だ っ た の が 。 
真 味 を 運ぶ よ 
iion mu 


E 


キャ ラク タ A Ж 内 容 
@ ボー リィ この ゲー ム の 主人 公 
% ヒト デ 横 中 心 に 追い か け て 〈 る 
4 ヤドカリ 縦 中 心 に 追い か け て くる 
ナマ コ か な り 正 確 に 追い か け て くる 
b TT ادم“‎ 
クラ ゲ 縦 方 向 に だ け 動く 
% イカ 横 方 向 に だ け 動く 
38 | タコ 横 方 向 に だ け 動く . Y 軸 が 合う と 近づい て く 
る . 
ар. э= ボー リィ と 同 方 向 へ 動 こ うと する . 
| @ | イン ギン チャ ク | 触手 を 出す . iso cho rm ma 
る . 
ө 十字 架 採る と ポー リィ が 1 人 増え る 
ЯР [ве 採る と 酸素 が 補給 され る 
| а = これ を 落と すこ と て 身 を や っ つけ られ る . m 
| し て いる か ぎり 運び 続け られ る 
| a5 真珠 ボー リィ の お し り に くっ つけ る と 黄金 に 変わ 
е |" 


この あと , 面 は どん どん 複雑 に … 


e» P y 


EN うく うく づく うく うく うく 58: РУ くす くす くう くう すく] く 255 


25) ^ 


52223 52 
NL ~ 


A 3 б 
=> тах x> づく づく うく づく うく "м a ç 
LEFT 


思い 付い た こと は , БАЛАЛЫ АЙ Cu EKZO 
完成 まで に か な り 時 間 が か か っ て し まい まし た 。 後半 は 別 
の ゲー ム の アイ ザ ア が 浮か ん で し まっ だ な だ だめ, この ゲー ム 
を 完成 さき せる の は 大 変 で し た 。 これ で , よう や く 次 の ゲー 
ム に 取り か か れ ま す . 
参考 文献 

1) “РіО ペー ツ ミュー ジッ ク "。 РО 


РР is 


Ада +Q 
1500 CD 


+2 +3 +4 +5 46 +7 +8 
32 CD ВЕ 0A 01 00 10 
04 ЗЕ FQ ED 79 04 ЗЕ 
АЕ 77 23 36 20 23 77 
OF ЕС ЗЕ 03 32 03 EC 
1В CD СЕ 16 CD С5 2С 
2В 77 01 38 АТ CD ВЕ 
EC B7 C8 FE 01 СА 45 
16 ED 4B 26 EC ED 5B 
9A CD F1 18 CD 34 2C 
11 0A 08 CD A1 2C 11 


+A 
AA 


*E +Е : 


ЗЕ СС 


Add +0 
1600 2С 
1610 ср 


3B 


+2 +3 +4 +5 +6 +7 +8 
АВ 61 CD ЗЕ 2Е СІ 10 


%9 
9c 


ЖА 
11 


2Е CD ЗЕ 2Е ЗА ӨЗ ЕС 3D 32 


93 


ЕС 


1620 1B Е! C2 5A 15 01 3A 03 21 18 1C CD 1E 1А 01 8C :62 
1630 43 11 62 2E CD ВІ 1B CD ФА 28 1Е 05 CD 3B 2E 10 :Е5 
1640 20 ҒА СЗ 34 15 11 00 02 CD 5Е 1А CD 00 2В ЗА 02 :B3 
1650 ЕС 3С ЕЕ 1Е 38 66 CD 3B 2Е С) 18 1А 11 4А 2Ғ D9 :7А 
1660 1Е 05 01 EA 41 CD 75 18 01 ЕЗ 41 CD 75 18 01 ЕС :35 
1670 41 CD 75 18 01 ФЕ 42 CD 75 18 01 17 42 CD 75 18 :ҒА 
1680 01 20 42 CD 75 18 1Е 06 01 65 44 CD 75 18 01 6E :54 
1690 44 CD 75 18 01 77 44 CD 75 18 01 80 44 CD 75 18 :D3 
16A@ 01 89 44 Ср 75 18 01 92 44 Ср 75 18 01 9В 44 CD :06 
16В0 75 18 01 А4 44 CD 75 18 CD 14 28 АҒ 32 02 ЕС CD :78 
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Péarl DiVer 


Pearl Diver マシ ン 語 リ スト 


1750 Ед 45 F5 C5 11 40 96 CD F1 18 СІ 03 03 03 03 F1 :6A 
1760 3D 20 ЕЕ ЗЕ ФА 01 90 46 Е5 С5 11 40 96 CD F1 18 :Е2 
1770 С1 03 03 03 03 Е1 3D 20 ЕЕ 01 5A 45 11 40 93 CD :5В 
1780 Е1 18 01 12 46 11 80 9В CD Ғ1 18 CD ГА ІВ CD А9 :9С 
1790 2С CD CA 2С 21 BC 2Е 22 ВА 2F 2А ВА 2F 23 22 ВА :18 
17A9 2Е ТЕ 21 23 ЕС 35 Е2 АВ 17 36 03 ED 4В 24 ЕС 11 :58 
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Pearl Diver 


Pearl Diver マシ ン 語 リス ト 
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Pearl DiVer 


Pearl Diver マシ ン 語 リス ト 


Add +0 +1 +2 +3 +4 +5 +6 +7 
2А00 21 60 ЕС 43 77 23 10 ЕС 
2А10 23 77 АЕ 32 ОВ ЕС 32 QD 
2420 77 CD ЕС ІС 21 17 2D 22 
2430 CD ЗЕ 29 АЕ 32 BO 2A CD 
2440 CD A1 2С 21 АЕ 2А 35 СА 
2А50 2р 21 ЗА СА ЕС 57 ЗЕ 09 
2А60 3р С2 5F 2А 44 Ар CD ЗЕ 
2А70 01 2С 01 ED 42 3D С2 73 
2480 22 CD 76 23 CD А7 26 CD 
2490 92 21 00 00 01 Е4 01 09 
2AA0 2Е 01 E8 03 CD ЗЕ 2E ЗА 
2АВ0 00 00 00 00 00 00 00 00 
2АС0 EC ED SF 85 6F 8C 67 22 
2Ар0 00 6F 29 29 29 29 54 5D 
2АЕ0 63 19 C9 80 86 00 8B 00 
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Боагі Diver 


Pearl Diver マシ ン 語 リス ト 


3350 22 26 00 01 03 00 01 14 1Е 01 30 1Е 00 02 OE : Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +С +D +E +Е :Sum 
3360 01 02 44 22 24 OE 00 3C 01 70 78 20 45 02 АО : 3800 16 05 30 2А 05 08 06 00 01 08 1E 03 48 06 30 ФЕ :3E 


3370 5E Ад 25 50 80 75 05 EO 05 F4 20 BC 51 EO 87 : 3810 18 QA 02 48 16 18 2А 00 29 01 00 01 01 80 Ер ED :5А 
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Pearl Diver 


Pearl Diver マシ ン 語 リス ト 
ЗСЕ ЕЕ EQ 28 10 00 01 FF 
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Pearl Diver 


Pearl Diver マシ ン 語 リス ト 


4AD の 50 00 01 AA бА 11 OA 80 00 20 54 00 01 70 ВВ 0р :AD 
4АЕ0 00 01 06 DB 52 98 22 А9 82 2В 74 08 00 01 08 20 :E9 
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Pearl DiVer 


Pearl Diver マシ ン 語 リス ト 
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パール 


Pearl Diver 


Pearl Diver マシ ン 語 リス ト 


Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :Sum 
5С00 EQ 00 00 ЗЕ FO 30 OC 30 OC ЗЕ FQ 30 00 зе QQ 30 :46 
5С10 00 00 00 07 EO 18 18 зе ес 30 9C 30 CC 18 38 07 :Е2 
5C20 ЕС 00 00 ЗЕ FQ 30 OC 30 OC ЗЕ FQ 30 CO 30 30 30 :42 
5C30 өс 00 00 ОҒ FO 30 ес 30 00 ОҒ FO 00 OC 30 OC OF :Ср 
5C40 FO 00 00 ЗЕ FO 03 00 өз 00 03 00 03 00 03 00 03 :31 
5c50 00 00 да зе OC зе өс зе OC зе өс 30 өс 30 OC OF :77 


5C60 FO 00 00 30 ӨС зе OC зе ӨС 18 18 OC зе 06 60 03 :79 
5C70 CO өө 00 зе ос 30 ӨС 30 OC 31 8C 37 EC 3C 3C 30 :ЕС 
5C80 OC 00 00 зе OC 30 OC ӨС зе 03 CO ос зе зе OC зе :2В 
5C90 9С 00 00 60 18 30 30 18 60 ОҒ CO 03 00 03 00 03 :34 


5СА0 00 00 00 1F ЕВ 00 18 00 70 01 80 OE 00 18 


54 24 00 13 00 1D 30 4B @C 52 :BC 


4 $ СИЗ NT & FR ВАЅІСІЗ 80 k 5 (CEND 
り ま す . こ の うち 漢字 HuBASIC は X1turbo で し か 使う こと 


が で きま せん が , 他 の BASIC は X1 シ リー ズ 全 機種 で の 起動 
が 可能 で す . ま た NEW BASIC は 双 1turbo で 培 わ れ た 日 本 語 
処理 機能 を 取り 込ん で 開発 され た も の で , X1F/G に 装備 さき 
れ て いる 他 , オ プシ ョ ン で ユー ザー に 供給 され て いま す . 
な お , 本 書 に 掲載 され て いる 各 プ ログ ラム は , turbo 専用 
の プロ グラ ム ( 知 人 情報 管理 , 漢字 ター ミナ ル な ど ) を 除い 


て 全て IHBASIC で 記述 され て いま す . 
SHARP HuBASIC 一 覧 


BASIC 名 称 
: B01 V1.0 
CZ-8FB01 V1.0 


С2-8СВ01 У2.0 
С2-8ҒВ01 V2.0 


CZ-8FB02 У1.0 


最初 の テー プ 用 BASIC(I 旧 BASIC). 
最初 の ディ スク 用 BASIC(IHBASIC) . 
テー プ 用 NEW BASIC. 

ディ スク 用 NEW BASIC. 

漢字 HuBASIC(turbo BASIC). 
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メ X1 シ リー ズ 


ZEPLI$1I 


R, ジョ イス ティ ッ ク を 骨 ま で 愛す 
<=, „У 


俺 が や ら ね ば 誰が や る , 今や ら ず し て いつ で きる . ジョ R アド レス ・ マ ッ プ 
イス ティ ッ ク を 撮る た び , 胸 に 元気 の 泉 湧く . そん な 訳 で 


サワ ヤ カ な シュ ー テ ィング ・ ゲ ー ム を お 届け し ます , この Tua 
| = 1548 イニ シャ ライ ズ 
ゲー ム は MZ-80 用 ZEPLIS II の X1 版 で す . 思う 存 分 撃ち 16A8 メイ ン ・ ル ー チ ン 
まく っ て , 高度 情報 化 社会 に つき も の の イラ イラ を 吹 っ と 1753 CLS ル ー チ ン 
ば も し て て だ さい 17С5 WAIT ルー チン 
17DC キー 入力 , 移動 
188F ファ イタ ー 書 き 込み 
入力 方 法 us = 
4 193E | 衝突 判定 , ゲー ム ・ オ ー バ ー 
1F37 残り シー ルド 表示 
HuBASIC (CZ-8CB01, 8FB01) の モニ タ で &H1500 か 1T M = = 
5&H5DFD まで を 打ち 込ん で くだ さい . 206E ZEPLIS 
その 後 , &H012B Бо 2 バイト を 00, 15 に 書き か え 21BF 敵 爆発 
T&H00007 5 &H5DFD まで を スタ ー ト &H0000 で テー 2283 SULPAG 
プ に セー プ す る と オー ト ・ ス ター ト の テー プ が で きま す . cei bud 
以後 、 IPL より ロー ド す る と ゲー ム が 始ま り ま す . ЖЫ, 2496 敵 出 現 コ ント ロー ル 
この プロ グラ ム は , MB-GAME 020$” (p.157) に 登 緑 す 251B パワ ー ア ッ プ 
る こと が で きま す . 2663 バー ツ 装 着 時 間 カ ウン ト 
26BD PUT @ ルーチン 
= 2718 敵 弾 セ ッ ト , 表示 
戦闘 方 法 2880 アス テロ イド ・ バ リア 
il 4 2901 ルー パー ミサ イル 
295B ボディ ・ ク ラッ シュ 
ン ・ キ ー ま た は ジョ イス ティ ッ ク で ファ イタ ー を 操作 А 8 е. 
LU<[ SPACE | キー か トリ が 1 で ビー ム を 発射 し ます . F 29F5 EXTEND 
リガ を 押し 続け る と ビー ム を 連続 発射 で きま す . 2A58 要塞 1,2 
パワ ー ア ッ プ は 5 種類 で , 画面 上 の РОМ を 取っ た と き 2BC8 FLUSH 
の 敵 の 種類 な ど に あわ せ て 選択 きれ ます . パワ ー ア ッ プ 中 だ か zu MU 
は BGM が 変わ り , 時 間切 れ が 近づく と , BGM は も と に 戻 2FA9 BGM 
り ま す . 3166 タイ トル 
361C~3A70 | ワー ク ・ エ リア 
な ん と な く オ ヤジ の ケツ に 見 える 瑞 キ ャ ラク タ [3800-5DFA| デー タ ・ エ リア 


~ + Ф «шә 
X シヤ ドー ドラ イブ 

防御 専用 の パー ツ で す , トリ が か ら 手 を 離し て いれ ば , 
敵 や 敵 の 弾 に 当たっ て も ファ イタ ー は 破壊 され ませ ん . 


# ア ステ ロイ ド ・ バ リア 

5 つの パー ツ の う ち で 最大 の 破壊 力 を 持つ パー ツ で す . 
ファ イタ ー の 周り を アス テロ イド が 回 転 し , それ に 触れ 
る 敵 を 破壊 し ます . 

た だ し , 敵 の 弾 な ど に は 効果 が な く , 敵 が 多い と アス テ 
ロイ ド の 間 を 抜け て くる も の も ある の で 注意 が 必要 で す . 
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# ボディ ・ フ ラッ シュ ユ 
ファ イタ ー の 色 が 変わ り 体 当たり で 敵 を 破壊 で き 、 敵 の 
弾 に も や られ ませ ん . 
ファ イタ ー が 小さ きく, 
点 で す が …. 


ぇ ルー バー ミサ イル 


画面 中 央 を 触手 を 伸ばし な が ら 降 り て くる ルー パー と い 
う キ ャ ラク タ 専 用 の 攻撃 パー ツ で す . この ミサ イル は 自動 
的 に リピ ー ト 発射 され , ルー パー の 中 心 部 に 当たれ ば 1 発 
で 破壊 で きま す . 

X アン シュ ユー ター 


要塞 攻撃 用 の パー ツ С, 


な か な か 体 当 た り で き な い の が 欠 


この パー ツ の 装着 中 は 要 寒 が 弾 


ХЕРИ 


その 他 , オリ ジ ナ ル と 違う 点 は POW が 出 て いる 時 間 が 
長く な っ た , BGM が 変わ っ た , 名 前 が 登録 で き な い (し か 
し ハイ ・ ス コア を 出せ ば な か な か 感動 的 な (? ) エ ン デ ィ ン 
グ が あり ます ) と いっ た と ころ で す (無意識 の うち に 細か 
いと ころ を 個人 的 な 趣味 に あわ せ た と ころ も あり ます が ). 


お わり に 


び し ば し の シュ ー テ ィング ・ ゲ ー ム を し た い / と 移植 
を 始め た の で す が , 思っ た より 時 間 が か か っ て し まい まし 
7% 

X1 の 画面 は 1/O ポー ト に ある の で そこ ら へ ん で 苦労 し 
x 78, 


を 撃っ て きま せん . ロロ 参考 文献 
な お , ボディ ・ ク ラッ シュ 以外 の パー ツ 装 着 中 は ビー ム 1) 鈴木 康之 : “ZEPLIS II^, РіО, 8527 月 号 
を 撃て ます が , トリ ガ を 押し っ ぱな し に し て も 連続 発射 2) 鈴木 康之 :^ZEPLIS П oS (2v C^, РіО, "85 年 9 
は で きま せん . МОНЕ <, 連射 し た い , また こん な パー ツ 号 
は いら な いと いう と き は トリ が 2 また は |Z キ ー を 押す と 3) や ま ざ き た か し : “РіО / パー ツ ・ ミ ュー ジッ ク ?。 РіО, 
装着 中 の パー ツ は 強制 解除 きれ ます . "85 年 2 月 号 
ちな み に シ ャ ドー ドラ イブ と ボディ ・ ク ラッ シュ を 装着 4) 気 分 は ロッ クン ロー ル : “PO パー ツ ・ ミ ュー ジッ 
し て いる 間 は 画面 の 左右 か ら 反 対 側 に ワー プ で きま す . こ 2”, РіО, "85 年 10 月 号 
れ は オリ ジ ナ ル の プロ グラ ム の 中 に この ルー チン が 使わ れ 5) Atchan : “PiO パー ツ ・ ミ ュー ジッ ク ”/, РіО, 86 年 1 
ず に 残っ て いた の で 付け て み ま し た . 月 号 
= マシ ン ン リス ト ES 
Глаа +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +C +D ФЕ +F :Sum 17E0 ED 79 05 ED 50 ЗЕ 00 CD 1B 00 БЕ FE 37 СА ЕЕ 17 :42 
1500 ЗЕ 01 32 90 ФЕ АЕ 32 66 03 ЗЕ 01 32 26 00 ср 98 :55 17F0 FE 38 СА ЕЕ 17 FE 39 СА FF 17 СВ 42 C2 ӨВ 18 3A :59 
1510 09 CD 6B 0A CD 8F 0A CD 5A 0A ЗЕ ФА 32 OE 00 32 :9C ———————————————Ó—ÓÓ 
1520 9F 00 11 09 1E CD ӨВ 00 ЗЕ 27 32 26 00 21 00 ЗЕ :3C Sum 9А ED B1 ЗВ 58 84 AF СВ 38 DF 3C 69 75 10 28 13 :42 
1530 16 00 1E 15 CD 2B 00 ТЕ 16 CD 2B 00 1E 17 CD 2B :9A 
1540 00 14 C2 32 15 CD CC 31 CD 3C 01 АЕ CD C0 09 CD :03 
1550 6B 0A 3E 80 32 C4 39 21 00 30 22 68 3A 26 18 2E :E3 
1560 27 06 QA ФЕ 19 11 36 1F CD BD 26 AF 01 Е7 33 ED :2B Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :Sum 
1570 79 21 00 34 22 68 ЗА 26 18 2Е 27 06 ФА ФЕ 19 11 :6р 1800 7E 39 FE 05 DA ОВ 18 3D 32 ТЕ 39 7B FE 31 СА 20 :71 
1580 36 1F CD BD 26 AF 01 ЕТ 37 ED 79 AF 32 C4 39 1E :35 1810 18 FE 32 СА 20 18 FE 33 СА 20 18 CB 4A C2 2C 18 :98 
1590 08 OE 28 3E 22 06 22 ED 79 3E 26 06 26 ED 79 03 :25 1820 ЗА ТЕ 39 FE 16 D2 2C 18 3C 32 ТЕ 39 7B FE 33 СА :B6 
15A0 1D C2 93 15 1E 08 OE 50 3E 26 3E 22 06 22 ED 79 :5D 1830 41 18 FE 36 CA 41 18 FE 39 CA 41 18 CB 5A C2 5D :4E 
1580 ЗЕ 26 06 26 ED 79 03 1D C2 AA 15 1E 07 OE 18 ЗЕ :20 1840 18 3A 7D 39 FE 1A D2 50 18 3C 32 7D 39 C3 5D 18 :B6 
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ДЕРІ II 


ZEPLISII マシ ン 語 リス ト 


1470 C2 6D 1А CD ЗЕ 30 21 00 50 DA 6D 1A CD C5 17 ЗА :3A 
1А80 C1 39 FE 80 28 09 CD 3C 01 CD C5 17 C3 45 15 21 :9A 
1А90 5F 31 22 6С ЗА ЗЕ 01 32 6E ЗА ЗЕ 01 CD F5 09 ЗЕ :В9 


+F :Sum 
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ЕРИП 


ZEPLISII マシ ン 語 リス ト 


91 28 3E :68 
3A 7E 39 :AB 
7E : 


2850 DD ТЕ 01 FE 18 D2 72 28 47 CD 64 21 44 4D ЗА 6F :B1 
2860 ЗА 3С FE 03 С2 68 28 АЕ 32 6F ЗА С6 5р ED 79 СЗ :9Е Add +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :Sum 
2870 76 28 DD 36 00 00 01 07 00 DD 09 15 С2 09 28 С9 :70 2000 DE 03 67 22 B9 39 21 B9 39 ED БЕ E6 08 C4 18 27 C 
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ZEPLIS II 


ZEPLISII マシン 語 リ スト 


2010 
2020 
2030 


ов 
са 
Ер 


2040 
2050 
2060 
2070 
2080 
2090 
2DA9 
2DB の 
2рс0 
2DD0 
2DEO 
2DF0 
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ZEPLI? П 


ZEPLISII マシ ン 語 リス ト 


ee 00 10 00 00 00 00 :10 
66 5В 3С 3С DA 66 04 :9D 
eo 00 се 00 00 00 00 :10 
66 58 3С 3С DA 66 04 :AD 
98 20 00 40 ӨЗ 07 87 :CD 
од 40 50 АӨ 58 20 ІС :B3 
20 08 00 04 00 00 92 :5С 
клали са E ori d vitm ar поље meine i ec eeu Бо зе чи Ec E ELE gig aca ure д 93 40 00 20 08 01 00 :D4 
58 Ад 50 40 00 00 00 :11 
90 04 00 08 20 00 00 :98 


3700—3AFF £ TRUTH. 


Add +0 +1 +2 +3 +4 +5 +6 +7 
3800 FD F2 FO FO ЕЗ 20 F2 FO : 
3B10 FO F1 Ед F7 F8 F3 F1 F6 :ЗЕ | | ニニ ーーーー ニ ーーー ニー ニー ニー ニー ニー ニー ニー ニーーーー ニ ーー ニニ ー ニ ーー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニーーーーーーーーーー 
F1 
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ДЕРІ II 


ZEPLISII マシ ン 語 リス ト 
Sum 34 8D FQ 85 D5 67 32 00 ED EE 70 65 2C 2F 00 66 :15 48А0 80 84 4С 58 30 18 07 00 С2 82 44 24 18 30 CQ 00 :AB 
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ТЕРІМІ 


ZEPLISII マシ ン 語 リス ト 
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ТЕРІМІ 


ZEPLISII マシ ン 語 リス ト 
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АУ />У— АНЯ 


プロ グラ ミン グ 作 業 と は 知性 の 具現 化 , 脳 細胞 の 電子 的 
パフ ォ ー マ ンス , ニュ ー ロ ン と プロ セッ サ の ハー モニ ー. 


г жән A— ¢$ в 
SSI I 
May 1 
ВІОЅ-НОМОЖ EEE === яж 66 
スク ロー ル シ ュ ー テ ィング ゲー ム の 作り 方 ゲッ ピ 88 


X 1 turbo 


ВО: 


>- КОМ の 解説 と 活用 


BIOS-ROM に つい て の 解説 書 は 雑誌 な ども 含め て いく 
つか 見 あたり ます が , ある も の は 非常 に 高価 で あっ た り , 
また 一 部 ユー ザー だ け を 対象 に し た も の で , お そら く は 多 
数 を 占め る で あろ うと 思わ れる 若年 層 ユ ー ザ ー や マシ ン 語 
に 不慣れ な ユー ザー な ど に と っ て は 誠に 不 親切 な も の と な 
っ て いま す . 

そこ で 今回 は 視点 を 変え て , 一 般 ユ ー ザ ー で も マシ ン 語 
の 基礎 を 少し だ け 理 解す れ ば BIOS 内 の サブ ルー チン が い 
か に 便利 な も の で ある か , また どの よう に 利用 で きる か な 
ど を 実際 に プロ グラ ム を 書く よう な 手順 で 述べ て いき た い 
と 思い ます 。 

BIOS 内 の サブ ルー チン を 積極 的 に 利用 する と いう 上 述 
の 目的 上 , 取り 上 げ る サブ ルー チン の コー ル ・ ア ドレ ス は 
必ず し も 順序 よく 並ん で は いま せん が , この こと に つい て 
の 不都合 は さほど な いも の と 思わ れ ま す . また 比較 的 利用 
度 の 少な い サ ブ プルー チン は 混乱 を 避け る た め , 本 文中 で の 
詳し い 解 説 は せ ず , 章 を か えて 表 に し て 示す こと に し まし 
75, 


SBIR BIOS-ROM 


ШІ-! BIOS-ROMO#E 


BIOS (Basic Input Output System) と は 文字 どおり シ 
ステ ム の 基本 的 な 入出 力 を 担う も の で あり , 従来 の X1 У 
リー ズ で は ソフ ト (X1 HuBASIC) PORIN, メイ ン 
КАМ 上 に 配置 きれ て いた も の で す . 今回 の X1Iturbo で は 
これ を さら に パワ ー ア ッ プ し て , な お か つ КОМ と し て あぁ 
ら か じ め マ シン 内 に お さめ て いま す . 

これ は 何 を 意味 する か と いえ ば , マシ ン 語 レベ ル で 
turbo を 使用 する 場合 、 メ イン RAM の ほとん どの エリ ア 
を ユー ザー が 手 に する こと が で きる 上 , プロ グラ ム 上 必要 
な サ プ ブル ー チ ン は は ほとんど BIOS 内 に 用 意 き れ て いる た 
b. 長大 な プロ グラ ム 作 成 の 苦労 か ら 解 放さ れる と いう こ 
ETF, 


B1-2BIOSW9 ZI) —T*-08O0tL 


この よう に 非常 に 便利 な BIOS で す が , その サブ ルー チ 
ン を コー ル (呼び 出す ) する に は 1 つの 基本 的 な ルー ル が 
存在 し ます . それ は 図 1 で 示す よう に BIOS-ROM 部 の ア 
ドレ ス (0000Н--ТЕЕЕН) と 重なり 合う RAM 部 の エリ ア 


60 


(ブロック 1) か ら は 直接 BIOS-ROM を コー ル で き な い 
と いう こと で す .。 Xlturbo で は BIOS-ROM アク セス を ババ 
ンク 切り 換え に より 実現 し て いる た め , バン ク を ROM fj 
に 切り 換え る と (0000H—7FFFH) は BIOS-ROM の アド 
レス を 示す こと に な り ま す の で , メイ ン RAM 上 に 書か れ 
た プロ グラ ム は まっ た く 意 味 を 持た な く な る わけ で す . М 
心 者 の 方 は メイ ン КАМ の プ ブロック 1 が そっ くり BIOS- 
ROM と 入れ 換わる と 考え られ て も よい と 思い ます . 

図 1 BIOS-ROM と メイ ン RAM の メモ リ ・ マ ッ プ 


基本 的 に は 次 の 方 法 で BIOS 内 サ プ ブルー チン を コー ル 
で きま す が , 実際 に は レジ スタ の 保存 や 入力 マラ メー タ の 
モ セット が 必要 な 場合 が あり ます の で スタ ッ ク (РОЗН, 
POP) を うま く 使 用 し な けれ ば な り ま せん . 以下 の プロ グ 
ラム は 必ず КАМ ブロ ッ ク 2 (8000H—F7FFH) に 配置 し 
て くだ さい . 


LD B, 1DH ェ バ ンク 切り 換え .RAM —^ ROM 
OUT (С), B 

CALL жжжж Н ; ネネ ネネ a は サフ ルー チン ・ ア ドレ ス 
LD B, 1ЕН ; バン ク 切 り 換 え .ROM > RAM 
OUT (O), B 

RET 


ss スト | 
— 


{ BIOS CALL SUB 
.280 
.PHASE ФЕ000Н 
1754 DEPRT EQU 1754H 
1778 св1 EQU 1778H 
178F SPPRT EQU 178FH 
477D HEXHL EQU 477DH 
478A HEXA EQU 478AH 
; 
32 Е1А1 LD (ABUF),A 
ED 43 E1A2 LD (BCBUF),BC 
ED 53 Е1А4 LD (DEBUF),DE 
22 Е1А6 LD (HLBUF),HL 
DD 22 E1A8 LD (IXBUF),IX 
FD 22 ElAA LD (IYBUF),IY 
98 EX АР, АЕ’ 
D9 EXX 
32 ЕТАС LD (ABUF1),A 
ED 43 ElAD LD (BCBUF1),BC 
ED 53 ElAF LD (DEBUF1),DE 
22 E1B1 LD (HLBUF1),HL 
98 ЕХ AF,AF' 
p9 EXX 
C5 PUSH BC 
96 1р LD B,1DH 
ED 41 OUT (C),B 
сі РОР вс 
ср DB есрн 
BSADR: DS 2 
98 EX AF,AF' 
р9 ЕХХ 
Е5 PUSH HL 
D5 PUSH DE 
С5 PUSH BC 
F5 PUSH AF 
ов ЕХ АЕ, АЕ’ 
р9 ЕХХ 
FD Е5 PUSH IY 
DD E5 PUSH IX 
Е5 PUSH HL 
D5 PUSH DE 
C5 PUSH BC 
F5 PUSH AF 
11 E177 LD DE,MSA 
CD 1754 CALL DEPRT 
ЗА Е1А1 LD А, (АВЏЕ) 
11 E1B3 LD DE,HEXBF 
CD 478A CALL HEXA 
ЗЕ 99 LD А,00 
12 LD (DE),A 
11 E1B3 LD DE,HEXBF 
CD 1754 CALL DEPRT 
CD 178F CALL SPPRT 
11 E17A LD DE,MSBC 
CD 1754 CALL DEPRT 
2А Е1А2 LD HL, (ВСВОЕ) 
CD Е16А CALL HXPRT 
11 E17E LD DE,MSDE 
CD 1754 CALL DEPRT 
2А Е1А4 LD HL, (DEBUF ) 
CD E16A CALL HXPRT 
11 E182 LD DE,MSHL 
CD 1754 CALL DEPRT 
2А Е1А6 LD HL, (HLBUF) 
CD Е16А CALL HXPRT 
11 Е186 LD DE,MSIX 
CD 1754 CALL DEPRT 
2А Е1АВ р HL, (ТХВЏЕ) 
CD Е16А CALL HXPRT 
11 E18A LD DE,MSIY 
CD 1754 CALL DEPRT 
2A Е1АА LD HL, (ТУВЏЕ) 
CD E16A CALL HXPRT 
CD 1778 CALL CR1 
11 E18E LD DE,MSA1 
CD 1754 CALL DEPRT 
ЗА E1AC LD A, (ABUF1) 
11 E1B3 LD DE,HEXBF 
CD 478A CALL HEXA 
3E 00 LD A,00 
12 LD (РЕ),А 
11 E1B3 LD DE,HEXBF 
CD 1754 CALL DEPRT 
CD 178F CALL SPPRT 
11 Е192 LD DE,MSBC1 
CD 1754 CALL DEPRT 
ЗА ЕТАР LD HL, (BCBUF1 ) 
CD E16A CALL HXPRT 
11 E197 LD DE,MSDE1 
CD 1754 CALL DEPRT 
2A ЕТАР LD HL, (DEBUF1) 
CD Е16А CALL HXPRT 
11 Е19С LD DE,MSHL1 
CD 1754 CALL DEPRT 
2А Е1В1 LD HL, (HLBUF1) 


上 に 示す サン プル ・ プ ログ ラム (リス ト 1) は , BIOS 内 
サブ プルー チ ン を 個別 に テス ト す る 場合 . その 都度 バン ク 切 
り 換え を し て いた の で は 面倒 な た め , あら か じ め そ の 部 分 
を メモ リ 上 に セッ ト し て お こう と いう も の で す . まだ た コー 
ル 前 の レジ スタ の 値 と コー ル 後 の 値 を 表示 し ます の で , T 
スト に よっ て レジ スタ の 値 を 確認 し た い 場 合 な ど に 利用 し 


EOD? CD Е16А CALL HXPRT 
EODA cD 1778 CALL CR1 
EODD CD 1778 CALL CR1 
ЕФЕО 11 Е177 LD DE,MSA 
ЕДЕЗ ср 1754 САШ, БЕРЕТ 
ЕФЕ6 Е1 РОР АЕ 
EOE? 11 E1B3 LD РЕ, НЕХВЕ 
ЕФЕА CD 478A CALL HEXA 
EQED ЗЕ 00 LD А,90 
ЕДЕР 12 LD (DE),A 
ЕдЕд 11 E1B3 LD DE,HEXBF 
ЕДЕЗ ср 1754 САШ, БЕРЕТ 
EOF6 CD 178F CALL SPPRT 
ЕдЕ9 11 Е17А LD DE,MSBC 
ЕДЕС ср 1754 CALL DEPRT 
EOFF ЕІ РОР HL 
E199 CD E16A CALL НХРЕТ 
E103 11 E17E LD DE,MSDE 
E106 CD 1754 CALL DEPRT 
E109 E1 POP HL 
Е10А CD Е16А CALL HXPRT 
E10D 11 E182 LD DE,MSHL 
E110 CD 1754 CALL DEPRT 
E113 El POP HL 
Е114 CD Е16А CALL HXPRT 
E117 11 E186 LD DE,MSIX 
E11A CD 1754 CALL DEPRT 
E11D El POP HL 
E11E CD Е16А CALL HXPRT 
E121 11 E18A LD DE,MSIY 
E124 CD 1754 CALL DEPRT 
E127 El POP HL 
Е128 CD E16A CALL HXPRT 
E12B CD 1778 CALL CR1 
Е12Е 11 E18E LD DE ,MSA1 
E131 CD 1754 CALL DEPRT 
E134 F1 POP AF 
E135 11 E1B3 LD DE,HEXBF 
Е138 CD 478А CALL HEXA 
E13B 3E 99 LD A,99 
E13D 12 LD (DE),A 
Е1ЗЕ 11 E1B3 LD DE,HEXBF 
E141 CD 1754 CALL DEPRT 
Е144 CD 178F CALL SPPRT 
E147 11 E192 LD DE , MSBC1 
E14A CD 1754 CALL DEPRT 
E14D E1 POP HL 
E14E CD E16A CALL HXPRT 
E151 11 E197 LD DE,MSDE1 
E154 CD 1754 CALL DEPRT 
E157 Е1 РОР HL 
Е158 CD Е16А САШ, НХРЕТ 
Е15В 11 Е19С LD DE,MSHL1 
E15E CD 1754 CALL DEPRT 
E161 Е1 РОР HL 
Е162 CD Е16А CALL HXPRT 
E165 96 1E LD B,1EH 
E167 ED 41 OUT (C),B 
E169 с9 КЕТ 

5 
E16A 11 E1B3 HXPRT: LD DE,HEXBF 
E16D CD 477D CALL HEXHL 
E170 CD 1754 CALL DEPRT 
E173 CD 178F CALL SPPRT 
E176 c9 RET 
E177 41 3D 00 MSA: DB 
E17A 42 43 3D 00 MSBC: DB 
E17E 44 45 3D 99 MSDE: DB 
E182 48 4C 3D 90 MSHL: DB 
E186 49 58 3D 00 MSIX: DB 
E18A 49 59 3D 00 MSIY: DB 
E18E 41 27 3D 00 MSA1: DB 
E192 42 43 27 3D MSBC1: DB 
E196 99 
Е197 44 45 27 3D MSDE1: DB 'DE' ,27Н,' =" ,0д 
Е19В 99 
Е19С 48 4С 27 3р MSHL1: DB 'HL',27H,'=',0@0 
Е1А0 99 
E1A1 ABUF: DS 1 
Е1А2 BCBUF: DS 2 
Е1А4 DEBUF: DS 2 
ElA6 HLBUF: DS 2 
Е1АВ IXBUF: DS 2 
Е1АА IYBUF: DS 2 
Е1АС ABUF1: DS 1 
ЕТАР BCBUF1: DS 2 
ЕТАР DEBUF1: DS 2 
E1B1 HLBUF1: DS 2 

; 
E1B3 HEXBF: DS 5 

; 

END 


て くだ さい . 本 文中 で も 使用 し ます が その 場合 この サブ ル 
ー チ ン は , BCALL と いう ラベ ル 名 で 使用 きれ ます の で , м 
用 の 方 法 は それ ら の サン プル ・ プ ログ ラム で 確認 し て くだ 
Sv, また 本 文中 の サン プル ・ プ ログ ラム は MACRO-80 に 
より 作成 し まし た の で 2 バイ ト で 表わさ れる 数 値 デ ー タ は 
上 下 逆 に な っ て いま す . 直接 マシ ン ・ コ ー ド を 入力 する 場 
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10 


合 は 注意 が 必要 で す . 
た と えば , 


E003 ED 43 Е1А2 な ら 
i 


ED 43 A2E1 


と 入力 し な けれ ば な り ま せん . 

ik: BIOS の ワー ク ・ エ リア は メイ ン КАМ 上 (F800H 一 ) 
に あり ます か ら , turbo 以外 の X1 用 BASIC や モニ タ を 使 
用 し た 場合 , BIOS の ワー クス は 初期 設定 され ませ ん の で , 
サブ プ ブル ー チ ン ・ コ ー ル の テス ト を 行なう と き に は turbo の 
モニ タ 上 で 行なっ た 方 が 無難 だ と 思い ます . 従来 の X1 シ 
リー ズ HuBASIC の モニ タ 上 で 動作 する アセ ンプ ブラ な ど 
を 使用 きれ る 方 は オプ ジェ クト を RAM ブロ ッ ク 2 へ 生 
成 し た あと turbo の シス テム ・ デ ィ ス ク を リセ ッ ト ・ ス イ 
ッ チ で 起動 きせ れ ば RAM プ ロッ ク 2 の 内 容 を クリ ア せ 
ず に turbo BASIC を 立ち 上 げ る こと が で きま す . 


第 2 章 BIOS 内 サブ ルー チン 
の 解説 と 活用 


プロ グラ ム 作 成 時 に お ける BIOS 内 サブ ルー チン の 利 
用 法 を 紹介 し て いき ます が , 内 容 に 目的 を 持た せる た め , 
ゲ ダーム ・ プ ログ ラム を 作成 する 場合 を 仮定 し て 話 を 進め て 
СЕТ. 

取り 上 げ る サブ ルー チン の 基本 的 な 紹介 の 型 は 次 の よう 
に な っ て いま す . 

サブ プル ー チ ン ・ ラ ベル 名 コー ル ・ ア ドレ ス 

処理 (サブ ルー チン で 行なわ れる 処理 内 容 ) 

入力 (サブ ルー チン 指定 レジ スタ )= ニ (サブ ルー チン が 

要求 する デー タ ) 
(サブ ルー チン が 参照 する ワー ク と その アド レス ) 
出力 (処理 後に サブ ルーチン が 返し て くる デー タ ) 
破壊 (処理 中 に 破壊 され る レジ スタ 名 ) 


説明 (処理 内 容 の 説明 と 補足 ) 


Ш2-1 СА ТЕПЕ ЈИ ХЕ с dg 


ゲー ム に 限ら ず ど ん な プロ グラ ム で も , だ いた だ た い 最 初 に 
する こと と いえ ば 画面 の 初期 化 (BASIC の INIT や 
WIDTH) Ç+. これ ら 画 面 制御 に 関す る サブルーチン は 
BIOS 内 に ほとん ど 用 意 さ れ て いま す . 順 を 追っ て 説明 し 
まし ょ う . な お ワー クス な どの 初期 化 は すでに な され て い 
る も の (モニ タ 起 動 時 ) と し て 話 を 進め ます . 


処理 : BASIC の INIT “СЕТ:” と 同様 で す . 
入力 : GRAXMX (F87BH) 
СКАУМХ (F87DH) 
WIDTHO (F87FH) 
CURYMX (F880H) 
WK1FDO (F8D6H) 
出力 : な し 
破壊 AF, BC, DE, AF, ВС, DE, HL’ 
説明 : turbo の モニ タ 上 か ら な ら コ ー ル する だ け で も 動 
作 し ます . 


WITH80 1220H 


処理 : WIDTH80 を セ モット し ます . 
入力 : GRAYMX (F87DH) 
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CURYMX (F880H) 
СОГОКЕ (F8D0H) 
CLSCHR (F8D1H) 
WKIFDO (F8D6H) 
SCRMOD (F8D7H) 
H2): な し 
破壊 АЕ, ВС, DE, НІ, АҒ, ВС, DE, НМ 
説明 : ワー クス が 破壊 され て いな けれ ば , コー ル す る だ 
け で 動作 し ます . 


WITH40 1227H 
4138: WIDTH40 を モット し ます . 
入力 : GRAYMX (F87DH) 
CURYMX (F880H) 
COLORF (F8D0H) 
CLSCHR (F8D1H) 
WKIFDO0 (F8D6H) 
SCRMOD (F8D7H) 
Hi + 2 U 
WE : AF, BC, DE, HL, АҒ, ВС, DE, НМ 
説明 : ワー クス が 破壊 され て いな けれ ば , コー ル す る だ 
け で 動作 し ます . 


処理 BASIC の CLS と 同様 で す . 
入力 : COLORF (F8DOH) 
CLSCHR (F8D1H ) 
出力 : な し 
破壊 АЕ, ВС, D, HL 
説明 : テキ スト VRAM を すべ て クリ ア し ます . 


[SrcbsQ u 
処理 : BASIC の CLS 0 と 同様 で す . 
入力 : WK1FD0 (F8D6H) 
SCRMOD (F8D7H) 
出力 : な し 
破壊 АЕ, BC, DE 
説明 : グラ フィ ッ ク VRAM を すべ て クリ ア し ます . 


139AH 


以上 の サブ ルー チン を 利用 し て CRT 画面 を 消去 する こ 
と が 可能 で す .。 次 に SCREEN (スク リー ン ) 関係 の サブ ル 
ー チ ン を 紹介 し ます が , パラ メー タ の 設定 が 複雑 で すし 頻 
繁 に 使用 きれ る も の で は あり ませ ん の で , 初心 者 の 方 は 後 
回 し に され て も よい と 思い ます . 


SCRNSB 10DFH 
処理 : スク リー ン ・ モ ー ド を セッ ト し ます (WIDTH, 
ж, ж, ж), 


入力 :A ニ スクリーン ・ モ ー ド 
WIDTH0O (F87FH) 

нљ: な し 

破壊 AF, ВС, DE, НГ, АЕ, ВС, DE, HL’ 

説明 BASIC 2 WIDTH, ж, ж, ж を 参考 に し て さく 
だ さい . 入力 マラ メー タ と モー ド の 関係 は 家 1 の 
よう に な り ま す 。 

ea Ey 770777 0 X ааа ас 40,0 12 SEE 

処理 : コンソ ー ル を 初期 化し て , SCREEN 0, 0 を 実行 

Lit, 


=! SCRNSB 
モー ド 


A= スク リー ン ・ 行 数 72742 


“жон WIDTH, во | вз | 290 ラ イン O 
C *in|wor m o [т [+z | 
*2H |WIDTH, 20 な し 
* 3H |мотн, 10 ЕЕ 


PT 


WIDTH, 12, 1 384247 


WIDTH, 。 , 0 
WIDTH, 。 , 


1 
аен |мотн . 2| | 


入力 : WIDTH 0 (F87FH) 
CURYMX (F880H) 
WKIFDO0 (F8D6H) 
SCRNM3 (ЕВЕТН) 
出力 : な し 
破壊 АЕ 
説明 : コン ソー ル を 操作 し て いる 場合 , 強制 的 に 標準 状 
態 に 変え , な お か つ SCREEN も 標準 状態 に し ます . 
SCRNOT 12DBH 
処理 : スク リー ン の 表示 モー ド を セッ ト し ます . 
入力 : A= ニ 表示 モー ド (ディ スプ レイ ・ モ ー ド ) 
WK1FD0 (F8D6H) 
SCRNM3 (ЕВЕТН) 
出力 : な し 
破壊 : AF 
説明 : BASIC の SCREEN o, i の o の 値 を セッ ト す る 
の と 同様 で す . 入力 パラ メー タ と モー ド の 関係 は 
Ж2025ж0%%. 
%2 SCRNOT 


テキ スト ・ ペ ー ジ 


ディ スプ レイ SW 
200 ラ イン ・ デ ィ ス プレ イ 


400 ラ イン ・ デ ィ ス プレ イ 


グラ シィ ッ ク ・ ベ ペー ジ 


| l 1 [| (wpTH40 の と きだ け ) 
| 0 [а (グラ フィ ッ ク 200.192 ラ イン の み ) 


3 (WIDTH40/200,192 ラ イン の み ) 


A = 
| 00 | 
[o 
| o | 
L | 


処理 : スク リー ン の 書き 込み モー ド を セッ ト し ます . 

入力 : A 三 書き 込み モー ド (アク セス ・ モ ー ド ) 
WK1FD0 (F8D6H) 
SCRNM3 (FBF7H) 

出力 : な し 

破壊 : AF 

説明 : BASIC の SCREEN o, i の i の 値 を セッ ト す る 
の と 同様 で す . 入力 パラ メー タ と モー ド の 関係 は 
SCRNOT と 同じ で す . 


以上 で CRT 画面 の 初期 制御 は ほとん ど 行 な を る わけ で 
тж, ゲー ム で は パレ ッ ト 操 作 や プラ イオ リティ 操作 を 必 
要 と する 場合 が 数 多く あり ます の で 湊 に それ ら に 関す る い 
くつ か の サブ ルー チン を 紹介 し ます . 

処理 : パレ ッ ト を 初期 化し ます . また , プラ イオ リティ 
の セッ ト も 行なえ ます . 

入力 : TPRIOF (F8D5H) … プ ライ オリ ティ ・ デ ー タ 

出力 : な し 

破壊 АЕ, BC, D 
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説明 : ワー ク TPRIOF の 1 バイ ト ・ デ ー タ を 書き 換え , 
この サブ ルー チン を コー ル す る こと で , 目的 の プラ イオ リ 
ティ を セッ ト す る こと が で きま す . パレ ッ ト は 初期 化 さ れ 
る だ け で す . 入力 デー タ の 値 は 4 章 「 ワ ー ク ス 」 で 参照 し 
て くだ さい , 


STPRIO 1359Н 
処理 : パレ ッ ト と プラ イオ リティ の セッ ト を 行ない ます . 
入力 BPRIOF (F8D2H) … パ レッ ト BLUE デー タ 
RPRIOF (F8D3H) … パ レッ ト RED デー タ 
GPRIOF (F8D4H) … パ ペレット GREEN デー タ 
TPRIOF (F8D5H) … プ ライ オリ ティ ・ デ ー タ 

出力 : な し 

破壊 AF, ВС, D 

説明 : 各 ワ ー ク に デー タ を 書き 込み コー ル す る こと で , 
目的 の パレ ッ ト , プラ イオ リティ を セッ ト す る こ 
と が で きま す . 

PALETF 136CH 
処理 : すべ て の パレ ッ ト と プラ イオ リティ を 0 に し ます . 
入力 ? な し 
出力 : な し 
破壊 AF, BC 
説明 : この サブ ルー チン を コー ル す る と , プラ イオ リ テ 

ィ は 標準 状態 に 。 マレ ッ ト ・ コ ー ド は すべ て カラ 
ー コ ー ド 0 に セッ ト さ れ ま す . 


PALSET 1480H] 


処理 BASIC の PALET 命令 と 同様 で す . 
入力 :D ニ パレット ・ コ ー ド (0-7) 
E= カ ラー コー ド (0-7) 
BPRIOF (F8D2H) 
RPRIOF (F8D3H) 
GPRIOF (F8D4H) 
出力 : な し 
破壊 AF, DE 


以上 で CRT 画面 の 初期 設定 お よび 制御 に 関す る BIOS 
内 サ プ ブル ー チ ン の 解説 を 終わ り ま す が , 初心 者 の 方 は 
WITH, STCLST,STCLSG くら い を 使え れ ば 充分 で す の 
で 無理 を せ ず に 湊 に 進ん で くだ さい . 


Ш2-2 СЛТИИ^ЛОХ RES 


ゲー ム に だ た と えま す と 2-1 で 紹介 し た サブ プルー チン は 。 
ちょ うど 市 販 の ソフ ト を ロー ド し た 直後 か ら CRT 画面 が 
クリ ア さ れる まで の , ほん の 一 上 明 に 利用 きれ て いる サ プ ブル 
ー チ ン の 数 々 で す .。 さて ゲー ム ・ ソ フト で は この 後 SET- 
TING PCG な ど と いう 文字 が 画面 に 表示 され る と 思い ま 
+. そこ で 次 は 文字 を 画面 上 に 表示 する た め の サ プ ブルー チ 
ン を 紹介 し ます . 


処理 : BASIC の PRINT“ 文 字 列 "に 相当 し ます . 
入力 : DE= 表 示し た い 文 字 列 が 格納 ミ され て いる 先頭 ア 
ドレ ス 
COLORF (F8DOH) 
CURX (FADFH) 
CURY (ЕАЕОН) 
出力 : DE= 文 字 列 の 終了 アド レス 1 
破壊 : な し 
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LO 


説明 : 


メイ ン RAM 上 に 格納 する 文字 列 デ ー タ の 最後 
に は エン ド ・ コ ー ド と し て 00H が 必要 で す . + 
73, ワー クス に デー タ を 書き 込む こと で 文字 の 表 


示 位 置 (BASIC の LOCATE に 相当 ), 文字 の カラ 
ー を 設定 する こと が 可能 で す . この サブ ルー チン 
は ゲー ム に 限ら ず 非 常に よく 使用 きれ る も の で す 
の で , 後ほど 示す サン プル ・ プ ログ ラム を 参考 に 
し て 理解 し て くだ さい . 


ACCPRT 1791H 
処理 : 画面 へ 文字 を 1 個 だ け 出 力 表 示し ます . 


Ал: 


出力 : 
破壊 : 
説明 : 


A= ニ 表示 し た い 文 字 の ASCII コ ー ド (00H 
—FFH) 

COLORF (F8D0H) 

CURX (FADFH) 

CURY (ЕАЕОН) 

A= ニ 入力 デー タ 

な し 

ASCII コー ド が 00Hー1FH の コン トロ ー ル ・ コ ー 

ド の 場合 , 文字 は 表示 され ず CTRL 二 が 実行 され 

29% 


ACCDIS 179DH 


処理 : 


A: 


出力 
破壊 : 
説明 : 


画面 へ 文字 を 1 個 だ け 出 力 表 示し ます . 

A =# LURE X F 2) ASCII 2 — F (00H 
—ЕЕН) 

COLORF (F8D0H) 

CURX (FADFH) 

CURY (FAE0H) 


A= AZ 2 


な し 

ACCPRT と の 違い は 表示 文字 の ASCITI コ ー ド 
が コン トロ ー ル ・ コ ー ド (00H—1FH) の 場合 で も 
その コー ド の 文字 を 表示 する と いう こと で す . 


CR1 


処理 : 
АЛ: 


出力 : 
破壊 : 
説明 : 
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1778Н 


改行 し ます . 

CURX (FADFH) 

CURY (FAEOH) 

な し 

AF 

BASIC や モニ タ 上 で [キー を 押し た と き と 同 様 
で す . ワー クス に 値 を 設定 する と , その 位置 まで 
カー ソル を 移動 で きま す . 


CR2 


SPPRT 
処理 : 
入力 : 


処理 : 


Agi: 
出力 : 


破壊 
説明 


出力 : 


破壊 


説明 : 


1770H 
現在 の カー ソル 座標 が 0 で な けれ ば 改行 し ま 
す . カー ソル が 画面 の 左端 に ある 場合 は 何 も し ま 
せん . 
な し 
な し 


:АЕ 
: CR1 の 方 が 一 般 的 で す . 


178FH 


BASIC の РЕМТ“ 
COLORF (F8D0H) 
CURX (FADFH) 
CURY (ЕАЕОН) 
な し 


"と 同様 で す . 


ЈА 


BASIC や モニ タ 上 で | SPACE | キー を 押し た の 
と 同様 で す . 


TABPRT 1780H 


処理 : 
Ж: 


出力 : 
破壊 : 
説明 : 


水平 TAB を 出力 し ます . 

COLORF (F8D0H) 

CURX (FADFH) 

CURY (FAE0H) 

な し 

AF 

[ТАВ | キー を 押し た の と 同様 の 処理 を 行ない ます . 


ADRCA2 
処理 : 


入力 : 


出力 : 


破壊 : 
説明 : 


18BCH] 
テキ スト 画面 上 の 座標 と 座標 を 与え る こ 
と で その 位置 の テキ スト VRAM アド レス を 得 ま 
5 

し ニテ キス トマ 座標 

H ニ テキ スト YT 座 標 

HL= ニ テキ スト VRAM アド レス (3000H —37 
ЕЕН) 

АЕ, ВС 

アト リピ ビュート ・ ア ドレ ス は HL—100H で す . こ 
の サブ ルー チン は ゲー ム な ど で の キャ ラク タタ 移動 
な ど に 利用 で きま す . 


以上 で 文字 表示 に 関す る BIOS 内 サ プ ブルー チン の 解説 
を 終わ り ま す . それ で は これ まで 紹介 し な た サブ プ ブルー チ ン を 
利用 し て 画面 消去 を し た 後 , 画面 中 央 に SETTING PCG 
と 文字 を 表示 する サン プル ・ プ ログ ラム (リス ト 2 ) を 挙 
ーー ニニ ーー 


ІМІТ & PRINT 
.280 
・PHASE 0р000Н 
INTCRT EQU 14ВЕН 
WITH80 EQU 1220H 
SCRNSB EQU 10DFH 
БЕРЕТ EQU 1754H 
; 
COLORF EQU 0F8DOH 
CURX EQU OFADFH 
CURY EQU ОҒАЕОН 
; 
LD B,1DH 
OUT (C),B 
CALL INTCRT 
CALL WITH80 
LD A,00 
CALL SCRNSB 
LD A,30 
LD (CURX),A 
LD А,10 
LD (CURY),A 


D019 ЗЕ 05 LD А,5 
р01В 32 F8D0 LD (COLORF),A 
DO1E 11 DO2E LD DE,MSDT 
D021 CD 1754 CALL DEPRT 
D024 3E 07 LD А,7 
2026 32 F8D0 LD (COLORF ) , A 
D029 06 1E LD B,1EH 
р02В Ер 41 OUT (C),B 
D02D c9 RET 
DO2E 53 45 54 54 MSDT: DB 'SETTING PCG',00 
D032 49 4E 47 20 
D036 50 43 47 00 

END 


げ て お きま す . 

Ш2-3 РООТ — 7 )Е УМЕ Ј—К 

さて 画面 へ の 文字 表示 は うま くい っ た で し ょ うか . せっ 
か く SETTING PCG と 表示 し た の で すか ら 今 度 は 実際 に 
それ を や っ て み ま し ょ う . これ も BIOS 内 に 用 意 き れ て い 
ます . 初心 者 の 方 は 後 で 述べ る 手順 どおり 実験 し て みて く 
だ さい . いか に 簡単 か 理解 で きる と 思い ます . 
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表 3 CGREAD 
ВОМ 8 +ВАМ (B・R・G) 24……32 バ イト 
ROM8 . — ^e 8 バイ ト 
ВАМ (B・R・G) 24 | …… 24 バ イト 
ROMI6 (82549 Х 2) | --- 16 バ イト 
RAM (B・R・G) 16X3 ess 48 バ イト 
ROM16 (62477) . --> 16 バ イト 
漠 字 ROM ee 32 バ イト 


0000H—00FEH 
0100H—01FFH 
0200H—02FFH 
0300H—03FF H 
0400H~04FFH 
0500H~05FFH 
2121H~7E7EH 


асык ТАБИ 7621H—7660H | 外字 RAM(32x3) --- 96 バ イト 
処理 PCG に キャ ラク タ : ペ ター ン ・ デ ー タ を セッ ト し 好み の キャ ラク タ を 描い て くだ さい . モッ ト が 終わ っ た ら 
ます . BASIC に 戻り モニ タ を 呼び 出し て サン プル ・ プ ログ ラム 


入力 : DE= ASCII コー ド (0000H —00FFH) また は 外字 
JIS 漢字 コー ド (7621Н--7660Н) 
HL=PCG に セッ ト す る デー タ の 格納 先頭 アド レ 
ス 
出力 CY = 1 …DE ОЛД НУ С ЗА С & 
破壊 АЕ, ВС, DE, HL 
説明 : BASIC の DEFCHR$S に 相当 し ます . 


CGREAD 330DH 
処理 : PCG に セッ ト さ れ て いる パパ ターン ・ デ ー タ , また 
は ССКОМ, 漢字 КОМ の パタ ー ン ・ デ ー タ を 読 
み メ イン RAM 上 に 格納 し ます . 
入力 : DE= ASCII — F (0000H —05FFH), # また は JIS 
漢字 コー ド (2121H —7E7EH) 
HL= デ ー タ 格納 アド レス (メイン RAM) 
出力 :CY テ 0…HL= 決 の デー タ 格納 アド レス 
СУ = 1…DE の 値 が 範囲 外 で 実行 で き な い と き 
破壊 АЕ, BC, DE 
説明 : 使用 時 に は DE の 値 に 注意 し て くだ さい . た と え 
(¥ PCG の 場合 CGSET の と き の ASCI コ ー ド 
と CGREAD の と き の ASCII コー ド は 目的 に 応 
じ て 変 わっ て きま す . 表 3 を 参考 に し て くだ さい . 
それ で は サン プル ・ プ ログ ラム (リス ト 3) を 使っ て テ 
スト を し ます が , その 前 に ユー ティ リティ ・ プ ログ ラム 内 
の DEFCHR-TOOL を 使っ て ASCII 2 — F10H —13H に 


РОР DE 
INC DE 
.280 LD A,14H 
„PHASE 0р000Н СР Е 
; JR NZ,RDLP 
330D CGREAD EQU 330DH LD B,1EH 
D100 CGDATA EQU 0D100H OUT (C),B 
; RET 
D000 11 0210 LD DE,0210H ; 
D003 21 D100 LD HL ,CGDATA ; 
D006 06 1D LD B, 1DH END 
D008 ED 41 OUT (C), B 
D00A D5 RDLP: PUSH DE 


を 入力 し て くだ さい . この と き 電 源 ス イッ チ は 切ら な いよ 
うに し て くだ さい . РСС が 破壊 され ます . 

プロ グラ ム 入 力 が 終わ っ た ら , GD000 еек 
さい . D100H か ら PCG デー タ が 格納 され て いる は ず で す 
か ら D コ マン ド で 確認 し て くだ さい . ディ スク な ど に セー 
プ す る と PCG デー タ と し て いつ で も 利用 で きま す . 次 に 
CGSET の テス ト を 行ない ます , サン プル ・ プ ログ ラム CU 
スト 4) を 入力 し て くだ さい . 

入力 が 終わ っ た ら , GD000 で 実行 し て くだ さい . 
BASIC に 戻り 再び DEFCHR-TOOL を 起動 し て くだ さい . 
ASCII 2 — F20H —23H に 10H~13H と 同じ キャ ラク タ 
が セッ ト さ れ て いる は ず で す . 

以上 で CG の リー ド と セッ ト に 関す る 解説 は 終わ り ま す 
», せっ か く こ こま で 来 だ た の で すか ら PCG キ ャ ラク タ を 
画面 に 表示 する 方 法 を 説明 し まし ょ う . 

X1 turbo は 6 KK バイ ト の テキ スト 関係 VRAM を 持っ 
て いま す , 内 訳 は 次 の と お り で す . 


テキ スト УКАМ. (2К) 
漢字 テキ スト VRAM СК) 
アト リピ ビュート VRAM (2K) 


この うち PCG は テキ スト VRAM を 使っ て 画面 に 表示 
きれ ます . 画面 の 左上 端 に 対応 する テキ スト VRAM アド 
レス は 3000H C, ア トリビュー ト VRAM アド レス は それ 
より ーー1000H (2000H) で 対応 し て いま す . カー ソル 1 個 分 


リス | 3 E ag اخ حح ت‎ 


; CG READ 


CALL CGREAD 


D010 р1 РОР РЕ 
CG SET DO11 01 0018 LD ВС, 24 
0014 09 ADD HL,BC 
.280 2015 13 ІМС DE 
„PHASE 0р000Н D016 3E 24 LD A,24H 
; D018 BB СР Е 
CGSET EQU 32ADH 2019 20 ЕЕ JR NZ,STLP 
CGDATA EQU 00100Н DO1B 06 1E LD B,1EH 
; ро1р Ер 41 ойт (C),B 
11 0020 LD DE,0020H DO1F C9 ВЕТ 
21 0100 LD HL,CGDATA р 
06 1D LD B,1DH END 
ED 41 OUT (C),B 
D5 STLP: PUSH DE 
Е5 PUSH HL 
CD 32AD CALL CGSET 
Е1 РОР HL 
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LO 


{с АО VRAM アド レス は 3001H (2001H) で 
01H だ け 加 算 き れ た こと に な り ま す . こ うし て 01H ずつ 加 
算 さ れ 合 端 ま で 行く と 決 の 行 端 と いう よう に 最終 行 の 右 
端 ま で 連続 し て 対応 し て いる わけ で す . よく 理解 で き な い 
方 は 先 に 紹介 し た ADRCA2 を 利用 し て いろ いろ だ た めし て 
くだ さい . 

サン プル ・ プ ログ ラム (リス ト 5) を 実行 し て くだ さい . 

あな た が セッ ト し た PCG キネ キャラクタ が 画面 だ 上 に 表示 
され た と 思い ます . PCG は 先 に 説明 し た ACCPRT を 使っ 
て も 表示 で きま す が , ゲー ム な を な どの プロ グラ ム で は この 方 
法 を 使用 する 方 が 一 般 的 で す . 

アト リピ ュー ト と は 出力 表示 する 文字 (ASCI コー ド ) 
を どの よう な 型 で 画面 に 表示 する か と いう 情報 を 1 バイ 
ト ・ デ ー タ と し て 与え る も の で す . た と えば リス ト 5 の プ 
ログ ラム の D013H の 値 27H を 07H と 書き 換え て 実行 し て 
みて くだ さい . ASCII コー ド に 対応 する 文字 が 画面 に 表示 
edd C, WE 4 に アド リゼ ュ ー ト ・ デ ー ダ の ゼット 
内 容 を し ます の で テス ト し て みて くだ さい . 

Ура де Ат У ОВП СТ С 
turbo に は せっ か くさく 漢字 ROM が 付い て いる わけ で すし , 
アド ベン チャ ー ゲ ー ム な ど で は これ を 使い た いも の で す . 
決 の サブ プル ー チ ン を 利用 すれ ば PCG キャラ クタ を 表示 す 
る の と 同じ 方 法 で 画面 に 漢字 を 表示 する こと が で きま す . 


[JISVRM 2FB6H] 

処理 : JIS 漢字 コー ド を , 画面 表示 に 必要 な VRAM > 
ー タ に 変換 し ます . 

入力 : DE=JIS 漢字 コー ド (BASIC の マニ ュ ア ル 参 照 ) 

出力 : A ニ アト リピ ュー ト VRAM デー タ (ビッ ト 5 の 


та アト リピ ュー ト *・ デ ー タ 


カラ ーBLUE の 状態 01010101 
1 カラ ーRED の 状態 010110011 
2 カラ ーGREEN の 状態 00001111 
(PCG を 標準 状態 で 表示 する | RW B: йн 

場合 は 白 の 状態 に する ) = 7 

2 = 


0 一 標準 
1 一 反転 


指定 し た カラ ー の 反転 


4 キャ ラク タ の 点 減 表示 0 一 標準 
1 っ 点滅 
ROM と RAM の 選択 Q0 —ROM 
1 —PCGRAM 
6 キャ ラク タ の 大 き さ 0 339 ] 
7 0011 
ЕЖЕ 
| 直 平 直 
マ 2 2 水 
шыр 
倍 
E セ ニー テキ スト VRAM デー タ 
D= 漢 字 テ チキ スト VRAM デー タ 
СУ = 1 -JIS 漢字 コー ド で は な い 
破壊 : FLG 
説明 : 漢字 を 画面 に 表示 する に は テキ スト 用 VRAM + 


べ て に デー タ を 与え て や ら な けれ ば な り ま せん . 
それ ら の デー タ を そる だ た だめ の サブ ルー チン で す . 
各 VRAM の アド レス は 決 の よう に な っ て いま す . 


み ) 
ーー ニー デー ニー デー 
; PCG > DISPLAY D007 06 1E LD В,1ЕН 
; D009 ED 41 OUT (C),B 
.280 DOOB 3E 10 LD A,10H 
.PHASE 0р000Н D00D 01 3000 LD BC,3000H 
; D010 ED 79 OUT (C),A 
1377 STCLST EQU 1377H D012 3E 27 LD A,27H 
; D014 01 2000 LD BC,2000H 
; D017 ED 79 OUT (С),А 
р000 06 ID LD B, 1DH D019 c9 RET 
D002 ED 41 OUT (C),B 
D004 CD 1377 CALL STCLST END 
ا‎ HAE =. ~ 1) | с=т ЕТК ИНЕТЕ OR TR Ұлы шы URDU шн 
š KANJI ] 
.280 
„PHASE 00000Н 
10DF SCRNSB EQU 10DFH 
1778 CR1 EQU 1778H 
2FB6 JISVRM EQU 2FB6H 
F87F WIDTHO EQU ОЕВТЕН 
рооо 06 1р LD B,1DH 
D002 ED 41 OUT (C) ,B 
D004 3E 50 LD А, 50H 
р006 32 F87F LD (WIDTHO),A 
D009 ЗЕ 01 LD A,01H 
роов CD 10рЕ САШ, SCRNSB ;WIDTH80,12,0,0 
DOOE 11 3021 LD DE,3021H 
D011 CD 2FB6 CALL JISVRM 
D014 01 2000 LD BC,2000H 
D017 F6 07 OR 7 
D019 ED 79 OUT (C),A 
D018 03 INC BC 
D01C ED 79 OUT (C),A 
DO1E 01 3000 LD BC,3000H 
D021 ED 59 OUT (C),E 
D023 03 INC BC 
D024 ED 59 OUT (C),E 
D026 01 3800 LD BC,3800H 
D029 ED 51 ・ OUT (C),D 
D02B 03 TNC BC 
D02C CB F2 SET 6,D 
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LO 


リス ト 6 
ED 51 OUT (C),D 
CD 1778 CALL CR1 
06 1E LD В,1ЕН 
Ер 41 OUT (C),B 
c9 RET 
қ END 


アト リピ ビュ ー ト (20008 —27ЕЕН) 

テキ スト (3000H —37FFH) 

ПУТ БА F (3800H —3FFFH) 
好 応 する アド レス へ それ ぞ れ の デー タ を 出力 する 
こと で 表示 が 可能 で す . 


サン プル ・ プ ログ ラム (リス ト 6) を テス ト し て みて く 
だ さい . 画面 左上 に 「 亜 」 と いう 文字 が 表示 され る は ず で 
+. プロ グラ ム 中 の SET 6, D は 漢 子 の 合 半 分 を 表示 せよ 
と いう ビッ ト 操 作 で す . 

計 2-4 グ ラフ ィ ッ ク ・ サ ブル ーー チン 

turbo BIOS に は 強力 な グラフィック ・ サ プ ブルー チン が 
数 多く 用 意 き れ て いま す . 従来 の Xl1 シ リー ズ で は 才 え ら 
れ な いこ と で , だ た と えば アド ベン チャ ー ゲ ー ム を オー ル ・ 
マシ ン 語 で 作成 する 場合 な ど , 今 ま で の よう に わざ わざ グ 
ラフ ィ ッ ク ・ ル ー チ ン を 作る 必要 が な く な っ た わけ で す . 
グラ フィ ッ ク ・ ル ー チ ン の 作成 に 1 度 で も 挑戦 され た 方 な 
b. それ が どん な に 大 変 な こと か お わか り で し ょ うし , 
turbo の BIOS が いか に 強力 な も の で ある か お わか り に な 
る は ず で す . それ で は 順 を 追っ て 解説 し て いき まし ょ う . 
[PSETSB 57F1H] 

処理 : BASIC の PSET (x, у, c). 

入力 : PSETX (FC17H) …x 座標 

PSETY (FC19H) …y ヶ 座標 
GCOLOR (FC16H) … パ レッ ト ・ コ ー ド 

出力 : な し 

破壊 АЕ, ВС, DE, HL 

説明 : 座標 値 は 16 進 2 バイ ト 数 値 . 
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[RESETS 
処理 : BASIC の PRESET (x, y, c). 
入力 : PSETX (ЕСН) …x 座標 
PSETY (FC19H) -y 座標 
GCOLOR (FC16H) … パ レッ ト ・ コ ー ド 
出力 : な し 
破壊 АЕ, ВС, DE, HL 


LINESB 569ЕН] 
処理 : 画面 上 に 直線 を 描き ます . 
入力 : LINEXS (FC17H) … 始 点 ェ 座標 
LINEYS (FC19H) … 始 点 了 座標 
LINEXE (FC1BH) … 終 点 * 座 標 
LINEYE (FC1DH) … 終 点 y 座標 
PSMODE (FE53H ) 
0… テ キス ト ・ キ ャ ラク タ で 描く 
-1--РЗЕТ 
= 2 …PRESET 
GCOLOR (FC16H) … パ レッ ト ・ コ ー ド 
LINPAT (FE54H) … ラ イン ・ バ ターン 
(ff) FFFEFH… 実 線 
CCCCH… 点 線 
FFCCH… 一 点 鎖線 


出力 : な し 

破壊 АЕ, ВС, DE, HL, ВС, DE, HL, IX, IY 

& BB: BASIC О LINE @ 4 £ ЫН C +. も し 
PSMODE=0 の 場合 この サブ ルー チン は 
CHRCOD, COLORF, KSENEG, LINPAT の 各 
ワー ク を 参照 し ます . 
注 : ワー ク SCRNM 3 の 値 が 6 以上 の 場合 , 実行 
され ませ ん (BOXSUB, BOXFUL БН). 

[BOXSUB 5604H] 

処理 : 画面 上 に 四角 形 を 描き ます . 

АЛ: LINEXS… 始 点 x № 
LINEYS… 始 点 ヶ 座標 
LINEXE--- A45 We Ll Ap ft d Ze Aux Ep 
LINEYE--- A15 ЕВЕ k Ap ft dm Ze e y WERE 
PSMODE…LINESB を 参照 し て くだ さい 
GCOLOR… パ レッ ト ・ コ ー ド 
LINPAT…LINESB を 参照 し て くだ さい 

出力 : な し 

破壊 АЕ, ВС, DE, HL, ВС, ОЕ’, HE, IX, IY 

説明 : LINE (ы, X)— (ж, је), Ж-Е, с, В, 6 


[ВОХЕШ шц. ЕБЕ ТЕА 
処理 : 画面 に 皿 角形 を 描き 内 部 を 湊 り つぶ し ます . 
入力 : LINEXS 

LINEYS 

LINEYE 

PSMODE  …LINESB を 参照 し て くだ さい 

GCOLOR  … ペ パレット ・ コ ー ド 
00Hー07H… ノ フー マル ・ カ ラー 
08Hー7FH… タ イリ ング 
80Н------- TILBUF 内 デー タ 

出力 : な し 


НЕ: АЕ, BC, DE, HL, ВС, DE, НІ», IX, IY 
説明 : GCOLOR 2:80H 2 5 š (š 7 — 2 A TILBUF 
(FE20H) に パタ ー ン を 設定 し な けれ ば な り ま せん . 


[РОЕУЗВ = : 7 gp d ug du ДА RR RT 
処理 : 多角 形 , Ч, НР, 孤 を 描き ます . 
入力 : SINSX (FE59H) … 中 心 x 座標 
SINSY (FE5BH) … 中 心 了 座標 
SINRX (FE5DH) … 水 平方 向 半 径 
SINRY (FE5FH) … 水 直方 向 半径 
GCOLOR (FC16H) … パ パレット ・ コ ー ド 
SIND (FE61H) … ス テッ プ 角 
SINSTA (FE63H) … 初 期 角 
SINEND (FE65H) … 終 了 角 
出力 お な し 
破壊 : な し 
説明 : BASIC の POLY, CIRCLE の 処理 と 同様 で す . 


[HPAINT 
処理 : BASIC の PAINT と 同様 で す . 
入力 : PAINTX (FE59H) … ペ イン ト 開 始 * 座 標 


БЕЛІН) 
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PAINTY (FESBH)--^4 У КВ y 座標 
GCOLOR (ЕСІН) … 塗 りつ ぶす 色 の パレ ッ ト ・ 


コー > 

BKCLLN (FE50H) … 境 界 色 の 数 (デー タ ・ バ イ 
F 数 ) 

BKCOLR (FE48H) … 境 界 色 ( ヾ レッ ト ・ コ ー 
F, 8 個 ま で ) 

TMPEND (F8DCH) … ペ イン ト 用 ワー ク ・ エ リ 
ア 先 頭 ア ドレ ス 


出力 : な し 
破壊 АЕ, ВС, DE, НІ, ВС, DE, НИ 
説明 : た と え は 境界 色 が パレ ッ ト ・ コ ー ド 1, 3, 7 の 
場合 , 
BKCLLN 03H 
BKCOLR 01H, 03H, 07Н 
と 指定 し ます . 
£7, ペイ ント 用 ワー ク ・ エ リア は TMPEND C 
示さ れ た アド レス より 現在 の スタ ッ ク ・ ポ イン ト 
へ 向かっ て 使用 きれ ます の で , メイ ン ・ プ ログ ラ 
ム や デー タ と 重 な ら な いよ う TMPEND を 設定 
する 必要 が あり ます . 


ELHPUT 578DH 
4438: グラ フィ ッ ク VRAM の 指定 アド レス に B, R, G 
の 各 ビ ッ ト ・ パ ター ン ・ デ ー タ を 出力 し ます . 
入力 : BC じ ニ グラ フィ ッ ク VRAM アド レス 
E-BLUE デー タ 
L=RED デー タ 
Н-СКЕЕМ デー タ 
出力 : 入力 値 を その まま 返す 
破壊 AF 
説明 : グラ フィ ッ ク ・ ア ドレ ス に つい て は 後 で 説明 し ます . 


[ELHeET 57AAH] 

処理 : ELHPUT と まっ た く 逆 で , グラフィック VRAM 
の 指定 アド レス か ら В, R, G の 各 ビ ッ ト ・ パ ター 
ン ・ デ ー タ を 取り 出し ます . 

入力 : BC= グラフィック VRAM アド レス 

出力 : BC ニ グ ラフ ィ ッ ク VRAM アド レス 
E=BLUE デー タ 
L=RED デー タ 
Н=СВЕЕМ デー タ 

破壊 АЕ, E HL 

説明 : グラ フィ ッ ク VRAM アド レス を 図 2 に 示し ます 
が , 上 記 2 つの サブ ルー チン で は 0000H 一 3FFFH 
図 2 グラ フィ ッ ク VRAM ア ドレ ス 


BLUE 


バン 20 Куй 


同時 アク セス ・ モ ー ド 


シン グル ・ ア クセ ス ・ モ ー ド 
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を グラ フィ ッ ク * ア ドレン レス と し て 指定 する に と で 
E, L, H 各 デー タ を 1 度 に РОТ, СЕТ する こと 
が 可能 で す (た だ し 同時 アク セス ・ モ ー ド で は あ 
り ま せん ). 


この よう に グラ フィ ッ ク VRAM に は 2 つの アク セス ・ 
モー ド が あり , アク セス ・ モ ー ド に より VRAM アド レス の 
持つ 意味 は 一 変 し ます . X1 シリ ー ズ に お いて は 通常 シン 
グル ・ ア クセ モ セス ・ モ ー ド を 使用 し て , 画面 消去 な ど で は 同 
時 アク セス ・ モ ー ド を 使用 し て いま す . また , turbo で は 400 
ライ ン 表 示 の た め グ ラフ ィ ッ ク VRAM が 従来 の X1 の 2 
倍 に な り , ちょ うど BIOS-ROM と メイ ン RAM の 関係 の 
よう に バン ク を 切り 換え て 使用 し て いま す . まず アク セ 
ス ・ モ ー ド の 切り 換え で す が , これ は シス テム IO ポー ト 
内 の アド レス 1A03H の ビッ ト 5 が 担っ て いま す . そこ で 
次 の よう に 操作 する と 同時 アク セス ・ モ ー ド と な り ま す . 


LD ВС, 1A03H 
IN A, (О 
SET 5, А 

OUT (С), А 
RES 5, A 

OUT (O, A 


同時 アク セス ・ モ ー ド で 何ら か の 処理 を し た 後 , シン グ 
ル ・ ア クセ ス *・ モ ー ド に 戻る に は 。 


IN А, (С) 


と 1 度 だ け ダ ミー リー ド す れ ば 可能 で す . 同時 アク セス ・ 
モー ド を 使用 後 は 必ず 行なわ な けれ ば な り ま せん . 

次 に グラ フィ ッ ク VRAM の バン ク 切 り 換え で す が , こ 
れ は シス テム МО ポー ト 内 アド レス 1FD* 是 の ビッ ト 3 
と ビッ ト 4 が 担っ て いま す (* は 任意 の 値 ). 

ビッ ト 3… 画 面 に 出力 表示 する バン ク の 選択 

0 = バンク 0 
1 ニ バ ング 1 
ビット 4… メ イン RAM が アク セス する バン ク 選 択 
РАЈ 
1 デバ バシ タユ 

よっ て 決 の よう な 方 法 で バン ク を 切り 換え る こと が で き 
ます . た と えば バン ク 1 を 画面 表示 に 使用 し , バン ク 0 を 
メイ ン КАМ か ら ア クセ ス し た い め 場 合 。 


LD BC, 1ЕрОН 
LD A, жжж 01 жжж В 
OUT (O, A 


と な り ま す . ここ で 注意 し て ほし い の は ※* で 書い て ある 
ビッ ト の 状態 で す . シス テム ИО ボー ト 1FD0H の 各 ビ ッ 
ト に は 現在 の 画面 状況 に 関す る 各 デ ー タ が は いっ て いま す . 
で すか ら 特 定 の ビッ ト を 操作 する 場合 , 1 度 こ の デー タ を 
読む 必要 が あり ます . し か し 残念 な が ら こ の ポー ト は 書 込 
み 専 用 で , IN 命令 で 直接 その 値 を 読む こと が で きま せん . 
それ で は どう する の か と いえ ば ,X1 turbo で は シス テム И 
O ポート 1FDO0H と 同じ 内 容 を つね に 示し て いる ワー ク 
WKI1FD0 が メイ ン КАМ 上 の F8D6H に ある の で す . Ç+ 
か ら ポ ボー ト 1FDOH の ビッ ト を 直接 操作 する 場合 に は , 1 
ЖЕ WK1FD0 の 内 容 を 読み ビッ ト 操 作 を し た 後 で シス テム 
I/O ポー ト IFDOH に デー タ を 出力 し , 同時 に その デー タ 
を ワー ク WKIFDO (F8D6H) に 格納 し な けれ ば な り ま せ 
A. WK1FD0 に つい て は 4 章 「 ワ ー ク ス 」 を 参照 し て くだ 


さい . 
GRAADR 5907H] 
処理 : 指定 し た グラ フィ ッ ク 座 標 よ り ,。 グラ フィ ッ ク 


VRAM ア ドレ ス を 算出 し ます (指定 座標 の 
WINDOW チェ ッ ク も 行なう ). 


破壊 ・ 
説明 : 


LO 


CY = 1 … 指 定 座標 が 範囲 外 で 計算 で き な い 

АЕ, ВС, DE, HL 

ビ ピット 位置 に つい て 説明 し ます が , グラ フィ ッ ク 
画面 上 の 1 点 1 点 は それ ぞ れ に 対応 し な た グラ フィ 
ッ ク VRAM アド レス を 持っ て いる の で は な く , 
8 つ を 1 つの 固まり と し て いま す . た と えば x 座 


АЛ: HL ニ グ ラフ ィ ッ クル ヶ ァ 座標 標 が 2, ッ 座標 が 0 の 点 を 示す VRAM アド レス 
DE= ニ グラ フィ ッ ク y 了 座標 と 座標 5, ッ 座 標 0 の 点 を 示す アド レス と は ま 
SCRNM2(FBF6H) ……… AU Ч + ЕЁ っ た く 同 じ も の な の で す . BLUE 画面 を 例 に と る 

= 0*… み カラ ー + 
= 1 …BLUE 4000H (2, 0) 4000H (5, 0) 
= 2 …RED ДГ ТТТ] Bs sp se m АСТ 
= 3 -GREEN b7 b6 b5b4b3b2b1 b0 b7 b6 b5b4b3b2b1b0 
出力 : HL -7>74 77 VRAM アド レス D=20H D=04H 
スク リー ジ ・ モ ー ド だ より と いう よう に 同一 アドレス 上 の ビッ ト 位 置 が 違う 
0 —0000H —3FFFH わけ で す . で すか ら こ の サブ プ ル ー チ ン の 出力 D レ 
—4000H —7FFFH ジス タ に は 指定 され た 座標 に 対応 する VRAM 7 
2 =8000Н — ВЕЕЕН ドレ ス 上 の 1 点 (ビッ ト ) を 示す 値 が は いる わけ 
3 —C000H —FFFFH TF. グラ フィ ッ ク 画 面 上 に な に か を 表示 する 場 
D= テ ビ ピット 位置 を 示し ます 合 や その 状態 を 読む 場合 に は つね に グラ フィ ッ ク 
E= ニ グラ フィ ッ ク ッ 座標 VRAM アデ ドレ ス と その ビッ ト 状 態 を ペア に し て 
C= テキ スト x ヶ x 座標 考え な く て は な ら な いと いう こと で す . 
リト -<------ II ーー UE d Lar ÉD NC REC 
£= — 
; LINE & PAINT D044 ор 66 08 LD H,(IX+8) 
; 0047 22 ЕСІР LD (LINEYE),HL 
.280 РОЗА 01 0009 LD BC,9 
.PHASE 00000Н DO4D рр 09 ADD IX,BC 
$ DO4F DD E5 PUSH IX 

1220 WITH80 EQU 1220H 2051 CD 569F CALL LINESB 

569F LINESB EQU 569FH D054 DD El POP IX 

БЕА1 HPAINT EQU БЕЛІН 0056 18 C4 JR LINLP 

FC16 GCOLOR EQU OFC16H CE E Pm АТ ANC rx) 

ROIT PINEXS EQU DFCITH 0050 32 FC16 LD (GCOLOR),A 

FC19 LINEYS EQU OFC19H D060 DD 6E 01 LD L (IX+1) 

FC1B LINEXE EQU ОЕС1ВН Pots. О OZ ЕВ nd 

FOID EINEYE EaU DECADH 2066 22 FE59 LD (PAINTX),HL 

FE53 PSMODE EQU OFE53H Dies". DD EE US 15 D xij" 

FE54 LINPAT EQU OFE54H GEG DD E DE Yn a xxi) 

ЕКЕН БАРА ROU OKESSH DO6F 22 FE5B LD (PAINTY) , HL 

FE5B PAINTY EQU ОЕЕ5ВН поо D ERES Ub M SD! 

FESO BKCLLN EQU OFESOH 0075 32 FE50 LD (BKCLLN),A 

FF48 BKCOLR EQU OFE48H 0078 рр 7Е 06 LD A,(IX+6) 

F8DC ТИРЕНО ЖӘН OFBDOH DO7B 32 FE48 LD (BKCOLR) , A 

; DO7E С 5EA1 CALL НРАІМТ 

р000 06 1D LD B,1DH паат 25H E [s 

0002 ED 41 OUT (C),B c бр E , 

0004 Ср 1220 CALL WITH8O , 

D007 3E 01 LD А,1 | š 

0009 32 FE53 LD (PSMODE ) ‚А а: жекте DATAS DE „ңе 

DOC 21 D100 LD HL,0D100H Boss DE 0000 10,698; 

DOOF 22 F8DC LD ( TMPEND) , HL РОВЕ 05 DB 05 

0012 21 FFFF LD HL, OFFFFH 

D015 22 FE54 LD (LINPAT),HL 0090 2ТЕ 0000 De 63905639275 

0018 рр 21 0086 LD IX,LDATA 2058: 05 - ок 

2046. Dp TE 00 LINBPS DD ВТ) 0099 0272 ООАҒ DW 639,175,0,175 

DO1F FE FF СР ОВЕН родр 0000 00AF w в 

2021 28 35 JR Z,PAINT DOA 05 59 4% 

2023 32 FC16 LD (GCOLOR),A А РЕЙ = ИН 

2026 Ор 6E 01 LD L, (IX+1) роке 0000, 5060 ДЫ 

D029 рр 66 02 1р H, (IX+2) RA E - ГЕНЕ 

DO2C 22 ЕСІ? LD (LINEXS),HL > 

DO2F DD 6E 03 LD L, (IX+3) : š 

D32 рр 66 04 LD H,(IX+4) Don 000A бру ДАТАН = А 

у 

2035 22 FCI9 LD (LINEYS),HL 5050. Di Os DB 3 0B 

D038 DD 6E 05 LD L, (1X+5 ) f 

розв DD 66 06 LD H, (IX+6) ; a 

РОЗЕ 22 ЕСІВ LD (LINEXE),HL 

2041 рр 6Е 07 LD L, (IX+7 ) L 

| =p — 
リス = Ü í < a= ита“ E аА түте ncc т) 
- 
š G-PATTERN MOVE 
.280 
.PHASE 0р000Н 

10рЕ SCRNSB EQU 10DFH 

1092 STICKS EQU 1D92H 

578D ELHPUT EQU 578DH 

F87F WIDTHO EQU ОЕВТЕН 

ЕАЕС СІЛСКЕ FQU ОҒАЕСН 
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リス ト 8 

D000 06 1D LD В, 1DH 

D002 ED 41 OUT (C),B 

D004 3E 50 LD A,50H 

D006 32 F87F LD (WIDTHO),A 

D009 ЗЕ 00 LD A,00 

роов CD 10DF CALL SCRNSB ;WIDTH80,25,0,0 

DOOE ЗЕ 01 LD А,1 

2010 32 РАЕС LD (CLICKF),A  ;CLICK OFF 

р013 01 0027 LD BC,0027H 

D016 STMOVE : 

D016 DD 21 р086 LD 1X,GDATA 

DO1A C5 PUSH BC 

ро1в CD DOSE CALI PTSET 

DOIE OE 50 LD C,50H 

D020 06 FF DLAY: LD B,OFFH 

D022 10 FE DLAY1: DJNZ DLAY1 

D024 0D DEC C 

D025 20 F9 JR NZ,DLAY 

D027 C1 POP BC 

D028 C5 KEYIN: PUSH BC 

0029 КЕҮІМІ: 

D029 3E 00 LD А, 00 

D02B CD 1D92 CALL STICKS 

DOZE FE 34 ер зан 

D030 28 1А JR Z,MOVEL 

D032 FE 35 cp 35H 

D034 28 45 JR Z,MVEND 

D036 FE 36 CP 36H 

D038 20 EF JR NZ,KEYINI 
; MOVER 

D03A C1 POP BC 

розв 79 LD A, C 

D03C FE 4F CP 4FH 

DO03E 28 E8 JR Z,KEYIN 

D040 DD 21 DOSE LD IX,CDATA 

D044 C5 PUSH BC 

0045 CD DOSE CALL PTSET 

D048 CI POP BC 

р049 03 ІМС BC 

DO4A 18 CA JR STNMOVE 

р04С で 1 MOVEL: POP BC 

2040 19 LD A,C 

DOIE FE 00 cP 0 

0050 28 16 JR Z,KEYIN 

D052 DD 21 DO9E 1.D IX, CDATA 

D056 c5 PUSH BC 

D057 CD DOSE CALL PTSET 

D05A G1 POP BC 

р05В ов DEC BC 

D05C 18 B8 JR STMOVE 

DOSE 16 08 PYSET: LD D,8 

р060 Әр 5E 00 LPSET: ED Е, (IN) 

D063 DD 6E 01 LD L,CIX*1) 

р066 DD 56 02 LD H,(1N+2) 

D069 CD 578D CALI ELHPUT 

DO06C 21 0800 LD HL,800H 

DO6F 09 ADD HL, ВС 

рото 01 0003 гр BC,3 

D073 DD 09 ADD IX,BC 

D075 44 LD B, H 

D076 4D LD C,L 

р077 15 DEC D 

D078 20 F6 ЈЕ NZ,LPSET 

DO7A C9 RET 

р07В C1 MVEND: РОР BC 

DO07C 06 ТЕ LD В, 1ЕН 

DO7E ED 41 OUT (C),B 

D080 3E 00 LD 1,00 

0082 32 FAEC LD (CLICKF),A ;CLICK ON 

D085 сз КЕТ 

2086 ЕЕ 00 FF GDATA: .DB OFFH,00,0FFH 

D089 81 00 81 DB 81H,00,81H 

D08C 81 00 81 DB 81H,00,81H 

DO8F 81 00 81 DB 81H,00,81H 

0092 81 00 81 DB 81H,00,81H 

D095 81 00 81 DB 81H,00,81H 

0098 81 00 81 DB 81H,00,81H 

родв FF 00 FF DB OFFH,00,0FFH 

DO9E 00 00 00 CDATA: DB 00,00,00 

DOA1 00 00 00 DB 00,00,00 

DO0A4 00 00 00 DB 00,00,00 

DOA7 00 00 00 DB 00,00,00 

РОАА 00 00 00 DB 00,00,00 

DOAD 00 00 00 DB 00,00,00 

DOBO 00 00 00 DB 00,00,00 

ровз 00 00 00 DB 00,00,00 

END 
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以上 で グラ フィ ッ ク 関 係 の 解説 を 終わ り ま す が , サン プ 
ル ・ プ ログ ラム を 2 例 (リス ト 7, リス ト 8) 示し ます の 
で 参考 に し て くだ さい 。 1 つ は グラ フィ ッ ク ・ キ ャ ラク タ 


LO 


押さ きれ て いる . 
A20H… 押 きれ て いな い 
破壊 АЕ, ВС, HL 


の 移動 で すか ら ぜ ひ テ スト し て みて くだ さい . テン キー の 

4| で 圧 移 動 、[@| で 生 移 動 、[5]| で モニ タ へ 戻れ ます . STICKS 1092) 
処理 : ジョ イス ティ ッ ク の 方 向 . また だ は テン キー の 値 を 

Ш2-5 = А7, Беса ZR 読み 取り ます . | 

機種 に か ぎら ず , コン ピュ ー タ を 自由 に 使用 する 上 で 最 入力 : 


も 基本 的 な 部 分 は キー 入力 に つい て の 知識 で し ょ う . これ 
を 理解 し な けれ ば どん な プロ グラ ム も 作る こと は で き な い 
と 語っ て も 過言 で は あり ませ ん が 。 turbo BIOS に は キー 
入力 関係 の サブ プ ル ー チ ン が 数 多く 用 意 き され, 特別 な 知識 も 
必要 な く 簡 単に キー 入力 を 行なう こと が で きま す . 


[STRIGS 1D89H] 
処理 : ジョ イス ティ ッ ク の トリ が, また は キー ボー ド の 
スペ ー ス ・ キ ー の 状態 を 読み 取り ます . 


A = 入力 モー ド , 0 … キ ー 入 力 
1 スティック 1 入力 
2 … ス ティ ッ ク 2 入力 


H J: A-31H—39H (テン キー1 一 9 に 対応 する 
ASCII コー ド ) 

破壊 : AF, ВС, HL 

説明 : た と えば 入力 モー ド 1 で この サブ ルー チン を コー 


ル し た と き ジ ョ イス ティ ッ ク 1 が 真 上 の 方 向 に 倒 
され て いれ ば A レジ スタ に 38H (テン キー の 8) 
が 入り ます . 


АЛ: A= 入 力 モ ー ド 。 0--%-АЛ 
| 1… ス ティ ッ ク 1 AKA 
2 … ス ティ ッ ク 2 入力 


出力 : A= ニ 20H… ト リガ が ・ ス イッ チ か スペ ー ス ・ キ ー が 
ロト Û = っ = 


さて STRIGS サブ ルー チン で は 2 トリ が の ジョ イス テ 
ィ ッ ク の 場合 . トリ ガ が 個別 の 状態 を 読み 取る こと が で きま 
せん . ジョ イス ティ ッ ク の 入出 力 は シス テム 1/O ポ ボート の 
1C00H な ら び に 1B00H が 担っ て いま す . 具体 的 に は 述べ 


; JOYSTICK 

.280 

„PHASE Ор000Н 
1754 DEPRT EQU 1754H 
D000 01 1COO Joy: LD BC, 1COOH 
D003 3E OE LD А,14 ;JOY1 
0005 ЕР 79 OUT (С),А 
роот 05 DEC B 
D008 ED 78 IN А, (С) 
DOOA CB 47 BIT 0,A 
роос 28 16 JR Z,UP 
DOOE CB 4F BIT 1,А 
р010 28 17 JR Z, DOWN 
2012 CB 57 BIT 2,A 
D014 28 18 JR Z,LEFT 
2016 СВ 5F BIT 3,A 
2018 28 19 JR Z,RIGHT 
DOIA СВ 6F BIT 5,A 
DIC 28 1А JR Z,TRG1 
DOIE CB 77 BIT BA 
D020 28 1B JR Z,TRG2 
D022 18 DC JR JOY 
D024 11 DO4B UP LD DE, MSU 
D027 18 15 JR PRINT 
D029 11 DO4E DOWN: LD DE, MSD 
D2C 1810 JR PRINT 
DO2E 11 D053 LEFT: LD DE, MSL 
D031 18 0B JR PRINT 
D033 11 D058 RIGHT: LD DE, MSR 
D036 18 06 JR PRINT 
D038 11 DO5E TRGI: 1р DE,MST1 
D3B 1801 JR PRINT 
розр сэ TRG2: RET 
DO3E 06 1D PRINT: LD B, 1DH 
0040 Ер 41 OUT (C),B 
D042 CD 1754 CALL DEPRT 
D045 06 ЈЕ LD B, 1ЕН 
D047 ED 41 OUT (C),B 
D049 18 B5 JR JOY 
DO4B 55 50 00 MSU DB 'UP',00 
DO4E 44 4F 57 4E MSD DB ' DOWN’ , 00 
D052 00 
D053 4С 45 46 54 MSL: DB 'LEFT' ,00 
р057 00 
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リス ト 9 

D058 52 49 47 48 MSR DB ’RIGHT’ ,00 

D05C 54 00 

DOSE 54 52 47 31 MST1: DB %ТЕС1”,00 

D062 00 

d END 

ませ ん が , サン プル ・ プ ログ ラム (リス ト 9) ОСУ 出力 : DE 入力 デー タ 格 納 ア ドレ ス 

ョ イス ティ ッ ク の トリ が ガ な ら び に 各 方 向 の 状態 を 知る こと CY = BINPUT の 場合 と 同様 
が で きま す 。 2 下 リ が ・ ジ ョ イス ティ ッ ク を ステ ィ ッ ク 端 破壊 : AF 

子 1 に 接続 し て この プロ グラ ム を 実行 し て くだ さい . ステ 説明 : BINPUT と の 違い は , メッ セー ジ な ども 含め て 
ィ ッ ク が 倒さ れ な た 方向 が 画面 に 表示 され ます . トリ ガ 2 ボ 入力 され た 文字 列 す べ て の 格納 先頭 アド レス を 


タン を 押す と モニ タ へ 戻れ ます . 
次 は アド ベン チャ ー ゲ ー ム な ど で は 必ず 使用 きれ る キー 
ボー ド か ら の 文字 列 入 力 に つい て の サブ ルー チン で す . 


[BINPUT 
処理 : 現在 の カー ソル 位置 か ら , 
RAM 上 に 格納 し ます . 


1DC2H 
1 行 入力 し メイ ン 


DE が 示す と いう こと で す (DE 一 入力 = 出力 ). 


次 の サン プル ・ プ ログ ラム (リス ト 10) を 入力 し て テス 
ト し て くだ さい . この プロ グラ ム は DE レジ スタ の 値 を 確 
認 す る た め , リ スト 1 の ВСА. を 利用 し ます の で E000H 
か ら ВСА が 配置 され て いな けれ ば な り ま せん . 707 
ラム 実行 後 , 好き な 文字 を 入力 し 回 する と , 各 レ ジス タ の 
値 を 表示 し て モニ タ へ 戻り ます の で DE レジ スタ の 値 を 確 
認 し て くだ さい 。 次 に モニ タ の D コマ ンド で D100H か ら 
文字 列 の 格納 状態 を 確認 し て くだ さい . BINPUT の テス 
ト が 終わ っ た ら コ ー ル ・ ア ドレ ス を INPUTF と し て 再度 
テス ト し て くだ さい . DE レジ スタ の 値 が 違う こと が わか 
る と 思い ます 。 


処理 : キー ボー ド よ り 1 文字 入力 し ます . 
入力 : A 三 入力 モー ド 
FFH…BASIC の INKEY$ 
00H…BASIC の INKEY$ (0) 
01H…BASIC の INKEYS$ (1) 
02H…BASIC の INKEYS (2) 


出力 : A= 入 力 し た 文字 の ASCII コー ド 

破壊 FLG 

説明 : BASIC マニ ュ ア ル の INKEY$ を 参照 し て くだ さ 
v, 


ーー ニー ーー ニニ ニー ニニ ニー ニー ニン ーー ニー ニー 


OBCH , OC3H , OB8H , OCOH , ODEH 


i 


рог INPUTF 


OBBH,0B2H, 20H, 3EH,00 


入力 : DE ニー 入力 デー タ 格納 アド レス 
出力 : DE= ニ 入力 デー タ 格 納 ア ドレ ス 
СУ = 0 [AE 72 (31 СТЕК |+[』| で 正常 な 入力 が 
な され た とき. 
CV == 1 <= SHIFT |+| BREAK |, また は 
[ CTRL |С] C A 7] X x УБ 
な われ だ とき (А =03Н) 
| сте. ]-[D] C A 7] X e z € v DfT 
われ だ た と き (А=04Н) 
破壊 AF 
説明 : あら か じ め メ ッ セ ー ジ な ど を 画面 に 出力 し て いる 
場合 , 実行 後 そ の メッ セー ジ も 含め て 1 行 分 メモ 
リ に 格納 され ます が , DE の 値 は 実際 に キー ボー 
ド か ら 入 力 し た デー タ の 先頭 文字 の 格納 アド レス 
を きま Fa 
INPUTF 1DE4H 
処理 : 行 の 先頭 か ら 1 行 入 力 し ます . 
入力 : DE= ニ 入力 デー タ 格 納 ア ドレ ス 
; INPUT 
А .280 
.PHASE 0р000Н 
1754 DEPRT EQU 1754H 
1DC2 BINPUT EQU 1DC2H 
1DE4 ІМРИТЕ EQU 1DE4H 
Е000 BCALL EQU 0E000H 
Е02Е BSADR EQU ОЕО2ЕН 
D000 11 1DC2 i LD DE,BINPUT 
D003 ED 53 E02F LD ( BSADR ) , DE 
р007 11 DO1C LD DE,MSINP 
D00A 06 1D LD B,1DH 
D00C ED 41 OUT (C) ,B 
DOOE CD 1764 CALL DEPRT 
D011 06 1E LD B,1EH 
D013 ED 41 OUT (C),B 
D015 11 D100 LD DE, OD100H 
р018 ср Е000 CALL BCALL 
D01B c9 RET 
D01C 4B 45 59 49 MSTNP: DB 'KEYIN' ,20Н 
р020 4Е 20 
D022 BC C3 B8 CO DB 
D026 DE 
р027 ВВ В2 20 ЗЕ DB 
D02B 00 
! END 
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ВЕКСК5 20D5H 


処理 


入力 : 
出力 : 


破壊 : 


: | SHIFT |+| BREAK | また は |[ CTRL |С) 


押さ きれ て いる か を チェ ッ ク し ます . 
な し 

ZF= 0… 押 きれ て いな い 

2Е= 1 … 押 され て いる . 

AF 


文字 入力 用 サブ ルー チン で 入力 され た デー タ は すべ て 対 
応 す る 文字 の ASCII コー ド で すか ら , 数 値 デ ー タ と し て 文 
字 を 入力 し て も 実際 の 数 値 と は 異な り ま す . た と えば 3 と 
いう 数 字 を 入力 し て も 33H と し て 入力 され る わけ で す . し 
か し BIOS に は これ ら の 入力 デー タ を 実際 の 数 値 に 変換 
する サ プ ブル ー チ ン が 用 意 さ きれ て いま す . 


[ACSET 
処理 : 


3616H] 


・ メ モリ 上 に 格納 され て いる デー タ の 先頭 か ら 連 続 


し た 2 文字 (ASCII コー ド ) が 両方 と も 16 進 数 を 
表わす 文字 な ら ば , それ を 16 進 数 値 化 し て A レジ 
スタ に 返し ます . それ 以外 の 文字 の 場合 は その ま 
ま の 値 を 人 レジ スタ に 返し ます . スペ ー ス ・ コ ー 
ド (20H) は 読み と ば され ます . 


入力 : DE ニ デ ー タ 格納 先頭 アド レス 

出力 : A テ 16 進 数 値 デ ー タ また は ASCII コー ド 
DE= 変 換 さ れ た 2 文字 の 次 の デー タ 格 納 先頭 ア 

ドレ ス 
破壊 FLG 
説明 : た と えば DE で 示さ れる アド レス か ら 
20 31 46 
と 格納 さき され て いる 場合 , ACSET を コー ル す る と 
A レジ スタ の 値 は 1FH と な り ま す . DE の 値 は こ 
の と き 46 の 次 の アド レス を 示し ます . 
ANDBOH 4494Н 

処理 : 次 の 型式 で 格納 され た ASCI 文字 列 を 整数 型 デ 
ー タ に 変換 し て , 結果 を HL レジ スタ に 返し ま 
+. 型式 は &H, “В, &O, &J, &К 

入力 : DE=ASCII XFIIDHDE&EDKDT F L Z 

出力 : НІ = 整数 型 ヤ デー タ 
DE= ASCII 文字 列 終 了 ア ドレ ス 二 1 
CY= 1… オ ー バ ー フ ロー 

破壊 АЕ, BC 

説明 : た と えば 次 の よう な デー タ が 格納 され て いた だ たら, 


46AE 


Е000 
ЕО2Е 


r 


46B8 


Е000 
ЕО2Е 


[CHCKHX 


LO 


35 41 43 
& H 2 5 A С; 

し コール 前 の DE に 入れ る アド レス 
HL の 値 は 25ACH と な り ま す . 


44E7H] 


処理 : 


A レジ スタ の 値 が 16 進 数 を 表わす ASCII コー ド 
(30H —39H, 41H —46H, 61H —66H) で ある か 

どう か を チェ ッ ク し , 範囲 内 で あれ ば その 文字 を 

数 値 に 変換 し A レジ スタ に 返し ます . 


入力 : A ニ ASCII ラコ ラード 

出力 : A=00H—0FH 
CY = 0… 範 囲 内 
СҮ-1-- ІН 

破壊 : AF 

[HEXCUL — АҒАН] 

処理 : メモ リ 上 に 格納 され て いる 10 進 数 値 デ ー タ を 表 わ 
す 文 字 列 を 16 進 数 値 デ ー タ に 変換 し ます . 

入力 : DE= ASCII 文字 列 格納 先頭 アド レス 

出力 : HL16 進 数 値 デ ー タ 
DE= 決 の デー タ 先 頭 ア ドレ ス 
CY テ 1… オ ー バ ー ワ ロー 

破壊 AF, BC 

説明 : た と えば DE で 示す アド レス に 853 を 表わす 
ASCII 2 — F38H, 35H, 33H が 格納 され て いる 
BHA, この サブ ルー チン 実行 後 HL=0355H と な 
NEF. 次 に 紹介 する 2 つの サ プ ブル ー チ ン と 併用 
する こと で ,。 ゲー ム の 京 数 表示 や デモ セン ブラ な ど 
の LIST 処理 な ど に 利用 で きる と 思い ます . 

[CVASIN_ 46AEH] 

処理 XE) БАНА dU CO 516. Bo T — У 
号 な し の 10 進 数 ASCII 文字 列 に 交換 し ます . 

АЛ: HL=16 進 デー タ 格納 先頭 アド レス 

出力 : DE= 変 換 し た ASCII 文字 列 格納 先頭 アド レス 

破壊 АЕ, DE 

説明 : ASCII 文字 列 の 格納 エリ ア は ワー クス 内 に あり 


ます か ら , 指定 する 必要 は あり ませ ん . 変換 デー 
タ の 最後 に は 00H が 格納 され ます . HL の 値 は 変 
化し ませ ん. 


サジ プレ * ャ デ ロ グ ラム (ПАК) を デスト し て くだ き 
v. 実行 後 DE レジ スタ の 値 は FDDFH と な っ て いる は ず 
ーー) 


CVASIN TEST 


.280 
PHASE 00000Нн 
; 
CVASIN EQU 46AEH 
BCALL EQU OEO00H 
EQU OEO2FH 


BSADR 


р000 
D003 
D007 
D00A 
роор 


DOOE 


11 46AE LD DE,CVASIN 
ED 53 EO2F LD ( BSADR ) , DE 
21 DOOE LD HL,HEXDT 
CD Е000 CALL BCALL 
c9 RET 
; 

0355 HEXDT: DW 0355H 

END 


CVASII TEST 

. 280 

.PHASE 00000Н 
CVASII EQU 46B8H 
BCALL EQU OEOOOH 
BSADR EQU 0Е02ЕН 


рооо 
рооз 
роот 
D00A 
роор 


11 
Ер 
21 
ср 
с9 


ーー 


46B8 LD DE,CVASII 
53 E02F LD (BSADR ) , DE 
0355 LD HL,0355H 
Е000 CALL BCALL 

RET 

END 
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НЕХНІ, TEST 11 4770 LD DE ,HEXHL 
ED 53 EO2F LD (BSADR),DE 
.280 21 1234 LD HL,1234H 
.PHASE 00000Н 11 0011 LD DE,ASCBF 
; CD Е000 CALL BCALL 
477D HEXHL EQU 477DH c9 RET 
E000 BCALL EQU OEO00H ASCBF: DS 5 
ЕО2Е BSADR EQU OEO2FH Ў 
; END 
で す . モニ タ の D コマ ンド で 実際 に 格納 され て いる か 人 確認 MUL 3E01H 
し て くだ さい . 853 を 表わす ASCI 文字 列 が 格納 され て い 処理 : それ ぞ れ が 2 バイ ト で 表わさ れる 数 値 デ ー タ を 乗 
る は ず で す . な お FDDDH か ら の 2 バイ ト に は 0 を 表わす 算 し ます . 


ASCII コー ド (30H) が 格納 され て いま す . 
[CVASII 3 46B8H| 
処理 : CVASIN と 似 て いま す が , = t p O ); (+ fils d 
た デー タ を 変換 する の で は な く , HL レジ スタ の 
値 を 変換 し ます . 
A21: HL=16 進 整数 型 デ ー タ 
出力 : DE=ASCII ХУН” F vA 
破壊 : AF, DE 
説明 : 結果 は CVASIN と 同様 で す . HL し レジ スタ の 使 
い 方 が 培う だ け で す . サン プル ・ プ ログ ラム (у 
スト 12) で 遅い を 確認 し て くだ さい . 


[HEXHL 411DH] 

処理 : HL し レジ スタ の 値 を 4 バイ ト の 16 進 数 を 表わす 
ASCII 文字 列 に 変換 し ます . 

АЛ: HL 整数 型 デ ー タ 
DE= ASCII 文字 列 属 納 先 更 アド レス 

出力 : 入力 と 同様 

破壊 : ЛЕ, HL 

説明 : 前 述 の サブルーチン と は 異な り , 文字 列 の 格納 ア 
ドレ ス を 指定 する こと が で きま す . サン プル ・ プ 
ログ ラム (リス ト 13) を テス ト し て くだ さい . роп 
Н か ら 1234 を 表わす ASCII 文字 列 が 格納 きれ て 
いる は ず で す . また , 文字 列 の 最後 に 次 いで エン 
ド ・ コ ー ド (00H) が 格納 され ます . 


HEXA 478AH 

処理 : HEXHL と 似 て いま す が , こち ら は A レジ スタ 
の 1 バイ ト 16 進 デー タ を ASCII ХМС |. 
まず 。 

АЛ: A 三 16 進 数 値 デ ー タ 
DE= ASCII 文字 列 格納 先 加 アド レス 

出力 : DE- ASCII 文字 列 格納 先頭 アド レス 十 2 

破壊 : AF 

説明 : HEXHL と 違い DE レジ スタ の 値 が 変化 し ます 
の で 注意 が 必要 で す . また , HEXHL で は 変換 さ 
れ た 文字 列 の 最後 に 0OH が 格納 され ます が , 
HEXA で は 行なわ れ ま せん . こ の 2 つの サブ ルー 
チン は リス ト 1 で 使用 し て いま す の で 参考 に し て 
くだ さい . 


居 2- КЕЙИ 


BIOS 内 に は さま ざま な 演算 用 サブ ルー チン が 用 意 さ れ 
て いま す が , ゲー ム ・ プ ログ ラム で は スピ ー ド 上 上, 加減 算 
(+, =) に 関す る サブ ルーチン の 利用 価値 は な いも の と 思 
われ ます . ここ で は 乗算 (X), 除算 (+) に つい て の サブ 
ルー チン を 紹介 し て いき ます . 
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入力 : HL ユー データ 1 の 格納 先頭 アド レス 
DE= ニ デー タ 2 の 格納 先頭 アド レス 
PRCSON (ЕВРАН) … デ ー タ ・ タ イプ 


2… 整 数 型 
5 … 単 精度 弄 
8 … 倍 精度 型 


出力 : HL= 結 果 デ ー タ 格納 アド レス (АЛШ 7 1 
の 格納 アド レス と 同じ ) 

DE= ニ デー タ 2 の 格納 アド レス 
PRCSON… 結果 の タイ プ 

破壊 AF, ВС, AF, ВС, DE, HL’, IX, IY 

説明 : (HL で 示さ れる アド レス に ある デー タ )※ ぶ (DE で 
示さ れる アド レス に ある デー タ ) = (HL で 示さ きれ 
る アド レス に 返さ れ た デー タ ) 
入力 も 出力 も 直接 レジ スタ に 数 値 デ ー タ を 人 入れ る 
わけ で は あり ませ ん か ら 注 意 し て くだ さき さい. 


除算 ( テ ) に つい て は , 余り も 必要 な 場合 が 多い で すか ら , 
次 の 3 つの サブ ルー チン を 理解 し て お け ば 充分 で し ょ う . 
MUL と は 異な り 直 接 レ ジス タ に 数 値 デ ー タ を 人 人 れ て コー 
ル し ます . 


[INTDVS 40E3H] 
処理 : 符号 付き 整数 の 除算 を 行ない ます . 
入力 : DE ニ デ ー タ 1 
HL ニ デ ー タ 2 
出力 : рЕ= й 
HL= 余 り 
破壊 АЕ, BC 
説明 : DE—HL-DE:-HL, 結果 も 直接 レジ スタ に 返さ 
iux. 
[INTBVN' а а xo = mh ue de de ИОН 
処理 : 符号 な し 整数 の 除算 を 行ない ます . 
入力 : DE ニ デ ー タ 1 
HL= ニ デー タ 2 
出力 : DE = tg 
HL= 余 り 
破壊 AF, BC 
説明 : ゲー ム な ど で は この サブ ルー チン を 利用 する の が 
普通 で し ょ う . 
INTDVV 4122H] 
処理 : 4 バイ ト で 表わさ れる 符号 な し 整数 の 除算 を 行 な 
いま す . 


入力 : HL= ニ デー タ 1 の 上 位 
DE= デ ー タ 1 の 下位 


Ес ласы ака ن‎ Ver ج‎ ИА 


LO 


PLAY MUSIC 
.280 
. PHASE 0р000Н 
1754 DEPRT EQU 1754H 
656Е TEMPSB  EQU 656EH 
65AC MUSICS EQU 65ACH 
D000 06 1D LD В, 1DH 
D002 ED 41 OUT (C),B 
D004 11 00Е0 LD DE,240 
D007 CD 656E CALL TEMPSB 
D00A 11 розв LD DE,MUSDT 
D00D 21 0065 LD HL,INTBF 
D010 3E 01 LD A,01H 
D012 CD 65AC CALL MUSICS 
D015 26 1E LD H,30 
D017 11 DO2E PRINT: LD DE,MESDT 
DO1A CD 1754 CALL DEPRT 
ро1р ОЕ 90 LD C,90H 
DO1F 06 FF DLAY: LD B, OFFH 
2021 10 РЕ DLAY1:  DJNZ DLAY1 
D023 ор DEC C 
D024 20 F9 JR NZ,DLAY 
D026 25 DEC H 
D027 20 EE JR NZ,PRINT 
0029 06 1E LD В,1ЕН 
рогв Ер 41 ойт (C),B 
рогр c9 RET 
D02E 4D 55 53 49 MESDT: DB 'MUSIC TEST ”,00 
D032 43 20 54 45 
D036 53 54 20 20 
DO3A 00 
розв 56 31 30 4F MUSDT: DB 'V1004C3EGO5CO4GE" 
D03F 34 43 33 45 
D043 47 4F 35 43 
D047 4F 34 47 45 
D04B 43 45 47 4F DB ' CEGO5CO4GE' 
D04F 35 43 4F 34 
D053 47 45 
2055 43 45 47 4Е DB 'CEGO5CO4GE” 
0059 35 43 4F 34 
роѕр 47 45 
DO5F 43 45 47 43 DB 'CEGC6' ,00 
D063 36 00 
D065 00 INTBF: DB 00 
END 
J 
BC=7=7 2 出力 : な し 
出力 : DE= 商 破壊 АЕ, ВС, DE, HL 
HL= 余 り 説明 : BASIC 起動 時 は 120 に 設定 され て いま す . 
破壊 АЕ, BC 
説明 : 16 進 8 桁 ま で の 数 値 を 除算 で きま す . MUSICS 85ACH 


以上 で 数 値 演算 に 関す る サブ ルー チン の 解説 を 終わ り ま 
す が , その 他 に も 数 多く の 演算 用 サ プ ブルー チン が BIOS 内 
に は 用 意 き され て いま す . 3 章 で 取り あげ て いま す の で 参考 
に し そく だ きい 。 

Ш2-7 ミュ ー ジ ッ ク 

これ まで に 紹介 し た サブ ルー チン を 利用 すれ ば , も う ゲ 
ー ム ・ プ ログ ラム ぐら い は 作成 で きま す が , ゲー ム に は や 
は り 音楽 が 欠か せま せん . これ まで マシ ン 語 で 音楽 演奏 を 
行なう に は PSG に 関す る 知識 や 面倒 な 周波 数 計算 な ど が 
必要 で し た が , turbo BIOS を 利用 すれ ば 非常 に 簡単 に 音 
楽 演奏 を させ る こと が で きま す . 


TEMPSB 656EH 
処理 : 演奏 テン ポ を 設定 し ます . 
入力 : D セ ニテ ン ポ (30—7500) 


処理 : 音楽 を 演奏 し ます . 
入力 : DE= 音 楽 デ ー タ 格納 先頭 アド レス 
HL ニー ニ イ ン タラ プ ト ・ バ ッ フ ァ 先 頭 ア ドレ ス 
AA デミ ュー ジッ ク ・ モ ー ド 
0 … 音 楽 演奏 が 終了 する まで CPU は 他 の 作 
業 に 移り ませ ん . こ の 場合 HL= ニ DE と な 
り , 音楽 デー タ 格 納 ア ドレ ス に イン タラ 
プ ト ・ デ ー タ が 格納 され ます の で , 最初 
に 入れ た 音楽 デー タ は 破壊 され ます . 
1 … 演 奏 開始 と 同時 に 次 の プロ グラ ム を 実行 
し ます の で ゲー ム ・ プ ログ ラム な ど で は 
非常 に 便利 な モー ド で す . 
НЯ: な し 
破壊 АЕ, ВС, DE, HL 
説明 : 音楽 デー タ は BASIC の MUSIC, PLAY 文 と 同 
様 で す が , すべ て ASCII コー ド で 格納 し な けれ ば 
な り ま せん し , デー タ の 最後 に は 必ず 00H を 格納 
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O 


LT SU, 


例 
“М 1 0 [9] 4 С E ” 
56H 31H 30H 4FH 34H 43H 45H 00H 


また , ミュ ー ジ ッ ク ・ モ ー ド 1 で 使用 する 場合 は 音楽 デ 
ー タ と イン タラ プ ト ・ デ ー タ が 重 な ら な いよ うに DE, 
HL を 指定 し て くだ さい . 


次 の サン プル ・ プ ログ ラム (リス ト 14) を テス ト し て く 
だ さき さい. 音楽 を バッ ク に MUSIC TEST と いう 文字 が 30 回 
表示 きれ ます . 

さて ゲー ム で は 音楽 だ け で な くさ ま ざ ま な 効果 音 を 使い 
Ed. し か し 残念 な が ら BIOS 内 に は この よう な サ プ ブ プルー 
チン は 用 意 き れ て いま せん . BIOS の 解説 か ら は 少し は ず 
れ ま す が , PSG の 制御 は シス テム ЛО ポー ト の アド レス 1 
B00H と 1C00H が 担っ て いま す . た と えば 


SOUND 7, &H38 


な ら そ の 第 1 パラ メー タ (07Н) を 1C00H に , 第 2 パラ メ 
ー タ (38H) を 1B00H に それ ぞ れ 出力 すれ ば よい こと に な 
り ま す . すなわち 


LD A, 07Н 
LD BC, 1C00H 
OUT (O), A 
DEC B 

LD A, 38H 
OUT (O), А 


と な り ま す が , 実際 に は いく つも の デー タ を 出力 し な けれ 
ば な り ま せん か ら ル ー プ 処理 が 必要 に な り ま す . サン プ 
ル ・ プ ログ ラム (リス ト 15) を 参考 に し て くだ さい . サン 
プル で も わか る よう に パラ メー タ は すべ て 16 進 数 値 で 入力 
し な けれ ば な り ま せん . 実行 する と 波 の 音 が 始ま る は ず で 
す (入力 マラ メー タ に つい て は BASIC マ ニュ アル の 
SOUND を 参照 し て くだ さい ). 


Ш2-5 カセ ッ 人 , ディ スク 

ここ で は デー タ の 保存 , 再生 に 不可 欠 な カセ モット お よび 
ディ スク 関係 の サブ ルー チン を 紹介 し ます が , 特に ディ ス 
ク に つい て は 従来 の X1 シリ ー ズ の IOCS で は サポ ー ト さき さ 
れ て いな いも の で し た の で , これ に より マシ ン 語 で の ディ 


スク ・ ア クセ ス が 簡単 に 行 な を る よう に な っ て いま す . 

本 題 に は いる 前 に FCB (ファ イル ・ コ ント ロー ル ・ プ ブロ 
ッ ク ) に つい て 説明 し ます . た と えば テー ププ から 何ら か の 
デー タ を ロー ド す る 場合 , CPU は この デー タ を いっ た い メ 
モリ の どこ か ら ど こま で に 格納 する の か , また この デー タ 
は BASIC で 書か れ た も の な の か マシ ン 語 で 書か れ た も の 
な の か と いう よう な 情報 を 与え を て も ら わ な けれ ば どう する 
こと も で きま せん . 

で すか ら あ る プロ グラ ム を セー プ ブ す る 場合 ., あら か じ め 
これ ら の デー タ を その プロ グラ ム の 前 に セー ブ プ し て お くわ 
け で す . FCB と は これ ら フ ァイル に 関す る デー タ 群 を 指し 
ます . 実際 に は 図 3 で 示す よう な 型 で デー タ を メモ リ 上 の 
任意 の アド レス に 格納 し て サ プ ブルー チン を コー ル し ます . 
ディ スク に つい て は IPL 起動 の プロ グラ ム 以 外 は 意味 を 
な し ませ ん が , テー ダダ に つい て は 頻繁 に 使用 きれ ます . 
BASIC で は 1 回 の 作業 で ロー ド , モー プ が 行なわ れ て い 
る よう に 見 そえ ます が , 後 で 示す よう に 実際 に は 3 回 の サブ 
ルー チン ・ コ ー ル を 一 連 の 作業 と し て 行なっ て いる わけ で 
す . 

ちな み に X1turbo の シス テム ・ デ ィ ス ク の FCB を 見 て 
み ま し ょ う 。 ジ シズ テム ・ デ ィ ス ググ を ドラ イブ 0 に 入れ で , 
モニ タ か ら YD0 : 0000 1 E000 [AT х = ) Ко E000H か 
ら 格 納 さ れ て いる FCB を D コ マン ド で 見 て くだ さい . 


Е000 ・01 42 41 53 49 43 20 43 
Е008 :5A 38 46 42 30 32 53 79 
Е010 :73 20 00 А0 00 00 00 00 
Е018 185 A2 15 12 00 00 20 00 


と な っ て いる は ず で す . 図 3 に あて は め て 見 て くだ さい . 

また , FCB の 構造 は ディ レク トリ の 構造 と ほとん ど 同 じ 
で すか ら ユ ー ザ ー ズ ・ マ ニュ アル の ディ レク トリ を 参考 に 
し て くだ さい . も し シス テム ・ デ ィ ス ク の ディ レク トリ を 
見 た いな ら 上 の 方 法 で YD0 : 0010 3 E000 と すれ ば 見 
る こと が で きま す . それ で は 各 サ ブル ー チ ン の 紹介 を 始め 
まし まう 。 


処理 FCB を カセ モッ ト テ ー プ へ 出力 し ます . 
АЛ: HL-FCB 格納 先頭 アド レス 
DE=FCB の サイ ズ (20H) 
出力 : A ニ エラ ー コ ー ド 
0 =OK 


ーー ニー 


; SOUND TEST 
280 
.PHASE 0р000Н 

р000 DD 21 DO1C LD TX ,SDDT 
D004 16 06 LD D,6 
D006 DD 7E 00 SDSET: LD A, (IX) 
D009 01 1C00 LD BC,1C00H 
D00C ED 79 OUT (C),A 
DOOE 05 DEC B 
DOOF DD ТЕ 01 LD А, (1Х+1) 
D012 ED 79 OUT (C),A 
D014 15 DEC D 
D015 c8 RET 2 
9016 рр 23 INC IX 
D018 DD 23 INC IX 
DO1A 18 EA JR SDSET 
DO1C 06 14 07 37 SDDT: DB 
D020 08 10 
D022 ОВ 00 0C 5А DB 
D026 OD OE 


6,20,7,37Н,8,16 


11,0,12,90,13,14 
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3 FCB デ ー タ 格納 型式 


01 ニ マシ ン 語 ファ イル (Bin) IPLZn > кезнде 5 
02—BASIC7 7 4 Jv (Bas) u 
04=ASCII ファ イル (е). 


| | ファ イル ・ モ ー ド (1 バイ ト ) |-> 


ファ イル ・ ネ ー ム (13 バ イト ) 


- フ ロッ ピ ー デ ィ ス ク の 場合 Sys の 3 文字 
カセ ッ ト ト の 場合 すべ て 20H 


通常 は 20H a 

| これ か ら セ ー フ , ロー ド し よう と する デー タ の 長 さ 
ロー ド 時 に 格納 する メモ リ 上 の 先頭 アド レス 
-FENAID IILORTMI7 F レス 


拡張 子 (3 バイ ト ) 


パス ワー ド (1 バイ ト ) f 
デー タ の 長き (2 バイ ト ) |- 
デー タ 先 頭 ア ド ых 
my tg 
ت‎ |> 


(таяян (5548) 


| シス テム 格納 アド レス 
* (3 バイト ) m4 


通常 は 20H 


年 (1 バイ ト ), ECER ト ), в, в, 分 ( 各 1 バイ pt 


ー フ ロッ ピー ディ スク の 場合 , ファ イル 本 体 が 外部 デバ イス . 
アド レス か ら 格 納 さ れ て いる か を 示し ます (し コード) 
カセ ッ ト の 場合 は 全て 00H. 


DE= デ ー タ ・ サ イズ 


1 …BREAK 
3 …SET ТАРЕ 出力 : A ニ エラ ー コ ー ド (LOAD1 と 同様 ) 
4 …WRITE PROTECT 破壊 АЕ, BC 
5 …TAPE END 説明 : 通常 は LOAD1 で 読み 込ん を だ デー タ を HL, DE に 
破壊 АЕ, BC セッ ト し て この サブ ルー チン を コー ル し ます . Ж 
説明 : 処理 後 も カセ モット は 回 り 続 け ま すか ら , 次 の サブ 理 後 も カセ ッ ト は 回 り 続 け ま す の で , 後 で 述べ る 
ルー チン で メイ ン ・ デ ー タ を セー プ し ます 。 サブ ルー チン CMTCOM で 停止 きせ な けれ ば な 
り ま せん . 
処理 : デー タ を カセ モッ ト テ ー ブ プ へ 出力 し ます . 
入力 : HL ニセ ー プ し よう と する デー タ の 格納 先頭 アド 処理 : カセ モッ ト テ ー プ の 内 容 と メイ ン ・ メ モリ 上 の デー 
レス タ を 比較 し ます . 
DE= ニ デー タ の サイ ズ ( 最 終 ア ドレ スー 先頭 アド レ 入力 : HL ニ メ イ ン ・ メ モリ 上 の デー タ 先 頭 ア ドレ ス 
Z+ 1) DE= ニ デー タ ・ サ イズ 
出力 : A ニ エラ ー コ ー ド (SAVEL と 同様 ) 出力 : A= ェ ラー コー ド (LOAD1 と 同様 ) 
破壊 : AF, BC 破壊 : AF, BC 
説明 : 処理 後 も や も カ セット は 回 り 続 け ま す の で , 後 で 述べ 説明 : BASIC の VERIFY に 相当 し ます . 
る サブ ルー チン で 停止 きせ な けれ ば な り ま せん . 
処理 : カセ ッ ト デ ー タ レコ ー ダ を 制御 し ます . 
処理 : カセ ッ ト テ ー プ か ら メ イン ・ メ モリ に FCB を 読 АЛ: A= ニ CMT 制御 コマ ンド 
み 込 み ま す . 0 …EJECT 
АЛ: HL-FCB 格納 アド レス (メイ ン КАМ Е) 1 …STOP 
РЕ=ЕСВ の サイ ズ (20Н) 2 …PLAY 
出力 :A ニ エラ テラー コー ド 3 …FAST 
0 OK 4 …REW 
1 -BREAK 5 …APSS 1 
2 …CHECK SUM 6 …APSS 一 1 
3 …SET TAPE 10…REC 
5 …TAPE END 出力 : A= A Jui 
破壊 AF, BC 破壊 : な し 
説明 : SAVE1 の 逆 で す . 説明 : SAVE, LOAD の 後に この サブルーチン を 利用 し 
て カセ ッ ト を 停止 させ ます . 
[LOAD2 704B ロ 


処理 : カセ ッ ト テ ー プ か ら メ イン ・ メ モリ に デー タ を 読 


み 込 み ま す . 


入力 : HL エニ デ ー タ 格納 先頭 アド レス (メイ ン КАМ) 


SAVE 2 LOAD 2, , だ け で も デー タ の 保存 , 再生 は 可 


能 で す が , 
記録 し て お か な けれ ば な り ま せん . また , 


その 場合 は ユー ザー 自身 が アド レス や サイ ズ を 
サ デ プル ー チ シャ 


"74 


リス ト 1 6 pu E -- ж-е е) 


——: 


3 FDC TEST D016 CD 739D CALL FDCRED 
; D019 18 19 JR OKEND 
. 280 4 
・PHASE 0р000Н DO1B 06 1D WRITE: LD B,1DH 
Н ро1р ED 41 OUT (C),B 
FDCRED EQU 739DH DO1F 3E 07 LD А,07 
FDCWRT EQU 73AAH D021 32 FADD LD (FDCNO ) ,A 
Н р024 ЗЕ 01 LD A,01 
FDCNO EQU OFADDH D026 32 FADE LD (UNITNO),A 
UNITNO EQU OFADEH D029 21 E000 LD HL, OEOOOH 
4 D02C 11 0000 LD DE,0000H 
; D02F 3E 03 LD A,03H 
06 1D READ: LD B,1DH D031 CD 73AA CALL FDCWRT 
ED 41 OUT (С),В , ; 
ЗЕ 07 LD А,07 2034 06 1Е OKEND: LD В, 1ЕН 
32 FADD LD (FDCNO),A D036 ED 41 OUT (C),B 
3E 00 LD A,00 D038 c9 RET 
32 FADE LD (UNITNO),A $ 
21 Е000 LD HL,OEOO00H Н 
11 0010 LD DE,0010H END 
3E 03 LD A,03H 
ュー ル の 際 。 バン ク は ROM 側 を の で 同一 アド レス 上 の FDCWRT 73AAH 
КАМ デー タ は セー ブ で き な い と 思わ れる 方 も いる と 思い 処理 : メイ ン ・ メ モリ の デー タ を 指定 デバ イス へ 出力 し 
ます か 心配 は 無用 で す . これ ら の サブ ルー チン が すべ て う ます . 
まく や っ て くれ ます . ディ スク に 関し て も 同様 で す . 入力 : HL ニ メ イ ン ・ メ モリ 上 の デー タ 先 頭 ア ドレ ス 
РЕНЕА.) #47 4 Дру пл — Ето 
FDCRED 739DH A= 使 用 する レコ ー ド 数 
処理 : 指定 の デバ イス か ら メ イン ・ メ モリ に デー タ を 読 FDCNO…FDCRED と 同様 
み 込 み ま す . UNITNO:--FDCRED と 同様 
入力 : HL エニ データ 格納 先頭 アド レス 出力 : な し 
DE ニレ コー ド 番 号 破壊 АЕ, BC, DE, НІ, АЕ 
A ニ レコ ー ド 数 説明 : この 2 つの サブ ルー チン は ちょ うど モニ タ の W, 


FDCNO (FADDH) 
UNITNO (FADEH) 


… 指 定 ア バイ ス 番 人 
… 指 定 ド ライ ブ 番 号 


НА な し 
破壊 AF, ВС, DE HL, АҒ 
説明 : ディ スク の レコ ー ド 番号 と は , ЗУКО, © 


リン ダ (トラ ッ ク ) 番号 0 に お ける セク タ 1 を レ 
コー ド 番 号 0000H と し て 1 セク タ (256 バ イト ) 単 
位 で 土 1 され て 行く 番号 で , 同一 シリ ンダ 内 で 両 
面 と も 1 周 し た ら 1 つ 内 側 の シリ ンダ の セク タ 1 
か ら と いう よう に ディ スク 1 枚 の 各 セ モク タタ を 外側 
か ら 順 次 通し 番号 と し て 考え る も の で す . 

FDCNO に 与え る デー タ は 次 の よう に な っ て いま 


3 
5 = МЕМ 0 : - MEM 1: 
6 =ЕММ 1: ~ЕММ 9: 
Tap i =g I 04. JU 04wmT AT) 
USP 0: ~ Е 3: (8 イン チ ・ デ ィ ス ク ) 
9 =HD 0 += HD 3 + ( ふ バード ディ スク ) 


UNITNO に 与え る デー タ は 標準 仕様 の ディ ス 
・ ド ライ プ ブ の 場合 0 また は 1 C+. 
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マコ マン ド と 同様 な を データ 型 式 で す . 


この 


ディ スク 関係 の サ プ ブル ー チ ン は 他 に も あり ます が , 
2 つ だ け 知 っ て お け ば 充分 で し ょ う 。 サン プル ・ プ ログ ラ 
A (リス ト 16) を 入力 し た ら , ドラ イブ 0 に シス テム ・ デ 
442%, ドラ イブ 1 ほ テ スト 用 の ディ スク を 入れ て < だ 
さい (フォ ー マ ッ ト 済 み で 使用 し て いな い デ ィ ス ク ). 
GD000 必 で シス テム ・ デ ィ ス ク の ファ イル が E000H か 
ら 格 納 さ れ ま す の で モニ タ の D コマ ンド で 確認 し て みて 
くだ さい . Kl GDO1B 以 で この デー タ を ドラ イブ 1 の デ 
ィ ス ク 上 の レコ ー ド 番号 0000H か ら 書 き 込 ん で 行き ます . 
これ で ドラ イブ 0 の レコ ー ド 番号 0010Hー0012H の 内 容 
が ドラ イブ 1 の レコ ー ド 番号 0000H 一 0002H に 転送 され 
た わけ で す . た めし に モニ タ か ら ҮЙІ: 0000 3 B000 [2] Z 
実行 し て D コ マン ド で B000H 一 を 見 て くだ さい . シス テ 
ム ・ デ ィ ス ク の ファ イル が 格納 され て いる は ず で す . 

以上 で BIOS 内 サブ ルー チン の 詳し い 解 説 は 終わ り ま 
+. 少し も の た りな いと 思わ れる 方 に は 次 章 で 他 の サブ ル 
ー チ ン の 紹介 を し ます の で 参考 に し て くだ さい . 初心 者 の 
方 は これ まで 述べ て きた サ プ ブルー チ ン だ け で も 市 販 の ゲー 
ム ・ ソ フト ぐら い は 作れ る の で すか ら , マシ ン 庄 の 習得 を 
あき ら め ず に 頑張 っ て くだ さい . 


838 BIOS 内 サブ プ ル ー チ ン 一 覧 


ラベ ル 名 


アド レス u 理 内 容 


IPLBOT IPL コ ー ル ド ・ ス ター ト 
$021А 0 2 1 | IPL デ ィ ス ク 読 み 込み HL ニ = メモリ ・ ア ドレ ス HL = 次 の アド レス АЕ, ВС, DE 
DE= ニ レコード ・ ナ ン バ АҒ” 
А ニレ コー ド 数 
$038A 038A |IPL KEY 入力 $0FF85= ニ KEY デー タ A= ニ KEY コー ド FLG 
$03CB 0 3CB | IPL メ ッ セ ー ジ 表示 DE ニ メ ッ セー ジ 格 納 DE=END マ ー ク (00H) AF 
アド レス (END=00H) アド レス 
$0FF86= カ ラー $0FF80—NEXT 
$0FF80—CURX $0FF81-NEXT* 
ЗОРЕ = СОВУ 
DAYBUF | 0Е88 | 曜日 メッ セー ジ ・ テ ー プ ル 
Т 
WORKBS |106C|BIOS 用 ワー クス (OF800H~0FEFFH) の 初期 設定 вс, DE, HL | 
BIOSIN 1085 1|BIOS 用 ワー クス &l/O の 初期 化 AF, BC, DE, 
HL, АҒ, ВС 
DE', HL’ 
ー ト — š 
BIOSRS 1099 | BIOS !/O の 初期 化 CORORF, CLSCHR АҒ, ВС, DE 
SCRMOD, WKIFD0 HL, АҒ, BC' 
DE', HL' 
PSGINT 1084 | PSG の 初期 化 ( 7 &H38/8, 0/9, 0/10, 0) АҒ, BC, HL 
SCRNSB | 10DF| 2 章 て 解説 (p.62) 
CR400S 1 1 D 8 | CRTC を 400 ラ イン に セッ ト AF, BC, DE, HL 
ROMASK | | 1 E 7 | BASICOASK 3v FA COLORF, CLSCHR АЕ, ВС, DE 
SCRMOD, WK1FD0 HL, АҒ, ВС 
ОЕ’, HL' 
|мтню 1220 | 2 章 て 解説 (p.62) 
WITH40 1 2 2 7 | 2 章 て 解説 (p.62) 
CTRLD2 12B9 | 2 章 て 解説 (p.62) 
SCRNOT | 12DB| 2 章 て 解説 (p.63) 
| SCRNIN 1307 | 2 章 で 解説 (p.63) 
1 
PALETI 134C | 23 CHIC (p.63) 
STPRIO |1359 2 章 て 解説 (p.63) 
| PALETE 136С | 2 章 て 解説 (p.63) 
zi 
STCLST 1377 | 2 章 て 解説 (p.62) ] 
STCLSG 139A | 2 章 て 解説 (p.62) 
S49RES 1 3 E 5 | サ プ CPU8049 コ ミュ ニケ ーション 用 バッ ファ ・ ク リア АЕ, ВС, DE 
T 
IN49SB 1 4 0 8 | サ プ CPU8049 か ら デ ー タ を 受け 取る A 王 入力 デー タ FLG 
OT49SB 1 4 1 3 | デー タ を サブ CPU8049 へ 送る A = 出力 デー タ E FLG 
COMOUT |1432 | サ プ CPU8049 へ コマ ンド ・ デ ー タ を 送る A ニ コマ ンド ・ デ ー タ AF 
TAK49S 1 4 3 B | サ プ CPU8049 と Z80 間 の デー タ 受 け 渡し A ニ コマンド АҒ, В, DE 
DE テニ デー タ ・ バ ッ フ ァ 
PALSET | 1480 | ВАБСОРА ЕТ D= バ レッ ドコ ー ド (0-7) AF, DE 
E ニ = ニカ ラー コー ド (0-7) 
BPRIOF, RPRIOF 
GPRIOF LN 
ІМТСЕТ | 14BF | 2 章 て 解説 (p.62) 
| SEFER! 1 6C5 | CSIZE CRI CSIZEF, CURX, CURY AF 
CRTACC | 1603 | CSIZE ACCPRT A 三 出力 文字 コー ド 
CSIZEF, CURX 
СОВУ, COLORF 
DEPRT 1754 | 2 章 て 解説 (p.63) 
CR2 1 7 7 0 | 2 章 て 解説 (p.64) 
CR1 1 7 7 8 | 2 章 て 解説 (p.64) 
TABPRT 1 7 8 0 | 2 章 で 解説 (p.64) 
SPPRT 178F | 2 章 て 解説 (p.64) 
ACCPRT | 1 7 9 1 | 2 章 て 解説 (p.64) 
ACCDIS 179D| 2 章 て 解説 (p.64) 
ADRCA2 1 8BC | 2 章 て 解説 (p.64) 
CURADR | 1 8C5 | テキ スト VRAM アド レス の オフ セッ ト 値 の 算出 (0000Hー | CURX, СОВУ 1 HL ニオ フ セ ッ ト ・ ア ドレ ス AF, BC 
07FFH) 
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BIOS 内 サ プ ブルー チン 一 覧 


KEYSNS 


キー 入力 チェ ッ ク 


CTRLJB 1 8E 1 | CTRL + DALE A ニ コン トロ ー ル ・ コ ー ド АҒ, ВС, DE, 
(00H— 1 ЕН) HL 
BEEP 1B41 | BEEP 音 を 出す АҒ, ВС, DE 
HL 
STRIGS 1089 | 2 章 て 解説 (p.71) 
STICKS 1092 | 2 章 て 解説 (p.71) 
BINPUT 1DC2 | 2 章 て 解説 (p.72) 
INPUTF 1DE4 | 2 章 て 解説 (p.72) 
SCRGET 1F8F | テキ スト 画面 上 の 文字 列 を 読み 込む A 三 読 み 込む 文字 数 AF, BC, DE 
E =CURX HL, AF’ 
D =CURY 
HL= デ データ 格納 アド レス ІШЕ 
ІМКЕҮ5 ІЕЕ0| 2 章 て 解説 (p.72) 
BRKCKS |2005 ESET (p.73) 


ZFLG- 0 …OK 


CY= 0…READY 


X1HPDS XFER モ ー ド 表示 D=INKEYŞ(2) 
KEYDAT+ 1 HL 
X1HELP, WIDTHO 
X1MODE 
FKYDSI 2A1B| ファ ンク ショ ン ・ キ ー 表 示 ス イッ チ ON АҒ, ВС, DE 
HL 
FKYDSS | 2 A 2 2 | ファ ンク ショ ン ・ キ ー モ ー ト 家 示 D =INKEY $(2) AF, BC, DE 
HL 
EDLNDS | 2А6В | XFER ま た は ファ ンク ショ ン ・ モ ー ド 表示 XIMODE, FKYDSF AF, BC, DE 
WIDTHO HL 
[see 2F07 | シフ ト JIS コ ー ド つつ 区 点 コ ー ド DE= シ フト JIS コ ー ド DE 区 点 コ ー ド AF 
KTNSFT | 2F2C| 区 点 コ ー ド ッ シ フ ト JIS コ ー ド DE= 区 点 コ ー ド DE= シ フト JIS コ ー ド AF 
JISSFT |225 2 | JIS 漠 字 コ ー ド ー シ フ ト JIS コ ー ド DE=JIS 漢 字 コ ー ド DE= シ フト JIS コ ー ド AF 
SFTJIS | 2F81| シフ ト JIS コ ー ド …JIS 漠 字 コ ー ド DE= シ フト JIS コ ー ド DE=JIS 漠 字 コ ー ド AF 
JISVRM 2FB6 | 2 章 て 解説 (p.66) 
VRMJIS 3 0 3 7 | VRAM デー ターJIS 漢 字 コ ー ド A ニア トリ ピュ ー ト VRAM DE=JIS 漢 字 コ ー ド FLG 
; デー タ ( ビ ピッ ト 5) CY= 1 … 漢 字 以 外 
E= テ キス ト VRAM 
デー タ 
D =#% VRAM デー タ 
SFTCHK | 3 0 9 9 | シフ ト JIS コ ー ド の 第 1 コー ド ・ チ ェ ッ ク A ニ シフ ト JIS コ ー ド 第 1 デー タ | CY= 0…OK FLG 
KANDAK | 30A3 | JIS 漢 字 コ ー ド ー 濁 点 付き コー ド DE=JIS 漢 字 コ ー ド DE=JIS 漢 字 コ ー ド AF 
CY= 1 …DE=212BH(") 
KANHAN | 30F 2 | JIS 漢 字 コ ー ド … 半 濁点 付き コー ド DE=JIS 漢 字 コ ー ド DE=JIS 漢 字 コ ー ド AF 
CY= 1 …DE=212CH( °) 
ASCKAN |3119 | ASCII コ ー ド (20H-7EH)(AIH-DFH) А =ASCII3— F DE=JIS 漠 字 コー ド AF 
ー つ JIS 漠 字 コ ー ド 範囲 色 の と き …DE ニ =2228H 
KANASC | 31A6 | JIS 漢 字 コ ー ド ASCII コ ー ド DE=JIS 漢 字 コ ー ド CY= 1 …DE=JIS 漢 字 コ ー ド | АҒ, DE 
CY= 0 …D ニ ASCII コ ー ド 
E =DEH,DFH,00H 
CGSET 3 2 AD | 2 章 て 解説 (p.65) 
CGREAD | 330D| 2 章 て 解説 (p.65) 
MONOP 3 3C5 | モニ タ ・ サ ブ プルー チン HL ニダ ンプ ・ ア ドレ ス АЕ, ВС, DE 
АҒ, ВС, DE' 
HL', IX, м 
ACSET 3616 | 2 章 て 解説 (p.73) 
CRIPRP | 37 AB | FILOUT(0FB74H) = 0 …CR1 
キ 0…CR1LPL 
CR1LPL | 37B2 | プリ ンタ CR+LF 処理 
CRILPT | 38 0F | プリ ンタ へ CR+LF Hj 
トミ ャ ーー | 
ACCPRP | 3 8 3 1 | FILOUT= 0--ACCPRT A 三 出力 コー ド 
キ 0…ACCLPL 
ACCLPL | 3 8 3 9 | プリ ンタ へ 1 文字 出力 A 三 出 カコ ー ド 
HLLPRT |3927 | 文字 列 を プリ ンタ へ 出力 HL 三 出 力 デー タ 先 頭 HL = 最終 デー タ ・ ア ドレ ス 
アド レス 
E 
ACCLPT 3983 | プリ ンタ へ 1 文字 出力 A 三 出力 コー ド 
LPTSNS | 3 9 A1 | プリ ンタ の 状態 を 調べ る PRTDLY CY= 1…TIME OUT 


TABPRP 3 9 BA | FILOUT = 0---ТАВРАТ 
= 0 …TABLPL 
TABLPL | 39C1 | プリ ンタ へ 水平 タブ 出力 | 
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FMPRHL | 3906 | LOAD, SAVE 時 の Found “ファ イル ネー ム .", DE ニ メ ッ セー ジ 先 頭 AF, DE 
Writing “ファ イル ネー ム ." の 画面 出力 アド レス 
FNMTCH | 3A 0 3 | LOAD 時 の ファ イル ネー ム な どの チェ ッ ク . (FCB の 先頭 か | HL=LOAD FCB ZFLG= 1 …OK АҒ, 日 
ら 18 バ イト を DIRIMG の 内 容 と 比較 する ) 格納 アド レス ZFLG= 0 … 不 一 致 
SETDIR 3 A 4 3 | メモ リ 上 に 格納 され た FCB の 内 容 を DIRIMG へ 転送 HL=FCB 格 納 先頭 АҒ, В, DE 
| アド レス HL 
WRTMES | 3AD2 | Writing メッ セー ジ ・ テ ー プ ル 
T 
FINMES ЗАРА | Found メッ セー ジ ・ テ ー プ ブル 
SKPMES | 3AE2 | Skip "メッ セー ジ ・ テ ー プ ブル 
SUB 3AF 8 | [HL]=[HL] [DE] | HL ニテ ー タ 1 格納 アド レス HL 人 = 答え の 格納 アド レス АЕ, ВС, АЕ’ 
デー タ ・ タ イプ = 2 一 整数 型 DE= ニ デー タ 2 格納 アド レス DE ニ デ ー タ 2 格納 アド レス вс, ОЕ’, HU 
5 一 単 精度 型 PRCSON= タ イプ 2, 5, 8 | PRCSON 一 答え の タイ プ 
8 一 倍 精度 型 | 
ADD ЗАЕВ | [HL]=[HL]+[DE] 上 に 同じ 上 に 同じ 上 に 同じ 
CMP ЗОВА | FLG=[HL] 一 [DE] 上 に 同じ ZF= | …[HL]=[DE] АҒ, В 
CY= 1 …|HL] キ [DE] 
MUL ЗЕОТ | 2 章 て 解説 (p.74) 
DIV 4 0 3E| [HL]=[HL]/[DE] SUB と 同じ SUB と 同じ SUB と 同じ 
INTDVS 4 0E3 | 2 章 て 解説 (p.74) 
INTDVN 4110 | 2 章 て 解説 (p.74) 
Т 
INTDVV 4122 | 2 章 て 解説 (p.74) 
ANDBOH |4494 2 章 て 解説 (p.73) 
CHCKHX | 44E7 | 2 章 て 解説 (p.73) 
CVHLAS | 44F5 | 指定 の タイ プ で 格納 され た 文字 列 を 数 値 変換 DE=ASCII 文 字 列 格納 HL = 結果 AF, BC 
アド レス DE=NEXT ア ドレ ス 
A= ニ タイ プ …D, В, O CY= 1 … オ ー バ フロ ー 
H, J, K 
HEXCUL | 4 4FA| 2 章 で 解説 (p.73) 
+ 
TOGLE 4526 |[HL]=ー[HL] (符号 反転 ) HL= ニ デー タ 格 納 ア ドレ ス HL = 結果 の 格納 アド レス AF 
PRCSON= タ イプ 2, 5, 8 | PRCSON ニ 結果 の タイ プ 
MULTEN |4565 | [HL]=[HL]x10 HL= ニ MUL データ 格納 アド レス | HL ニ = 結果 の 格納 アド レス АҒ, ВС, DE' 
PRCSON= タ イプ 5, 8 PRCSON= 結 果 の タイ プ HL', IX, IY 
DIVTEN 4572 | [HL]=[HL]/10 HL=DIV デ ー タ 格納 アド レス | 上 に 同じ АҒ, ВС’, ОЕ’ 
| PRCSON- 2475, 8 HL' 
+ 
MULDEC |457Е | [HL]=[HL」+A HL=ADD デ ー タ 1 格納 アド レス | 上 に 同じ AF, АҒ, ВС’ 
A=ADD デ ー タ 2 ОЕ’, HL' 
PRCSON= タ イプ 5, 8 
FLTHEX 45A6 | 整数 型 デ ー タ ー 浮 動 小数 点 型 デ ー タ DE= 整 数 型 デ ー タ HL = 結果 デ ー タ 格納 アド レス | АҒ, В, DE 
HL = 結果 デー タ 格 納 
バッ ファ アド レス 
CVNMFL | 4502 | 浮動 小数 点 型 デー ターASCI 文 字 列 (符号 付き ) HL ニ デ ー タ 格納 アド レス DE=ASCII 廊 字 列 格納 АҒ, ВС, DE 
PRCSON- # í Z アド レス (END=00H) |AF' ВС, DE' 
Ні, IX, IY 
1 
CVASFL 45F3 | 浮動 小数 点 型 デー ターASCII 文 字 列 (符号 な し ) 上 に 同じ 上 に 同じ 上 に 同じ 
CVASIN 4 6AE | 2 章 て 解説 (p.73) 
CVASII 46B8 | 2 章 て 解説 (p.74) 
CVASSN | 46CA| 整数 型 デ ー タ ーASCII 文 字 列 (符号 付き ) HL 整数 型 デ ー タ 格納 DE=ASCI 文 字 列 格納 AF, DE 
| アド レス アド レス (END= 0 ) 
ASCFIV 46E7 | 整数 型 デ ー タ ーASCI 文 字 列 (符号 な し ) HL = 整数 型 デ ー タ DE=ASCII 文 字 列 格納 АҒ, В, DE 
アド レス (END= 0) 
HEXHLÜ | 46F1 | 整数 型 デ ー タ ー16 進 数 を 表わす ASCII 文 字 列 HL = 整数 型 デ ー タ DE=ASCII 文 字 列 格納 АҒ, В, DE 
アド レス (END= 0) 
BINHL0 46FB | 整数 型 デ ー タ ー 2 進数 を 表わす ASCI 文 字 列 HL = 整数 型 デ ー タ DE=ASCI 文 字 列 格納 АҒ, В, DE 
アド レス (END= 0) 
OCTHL0 4705 | 整数 型 デ ー タ ー> 8 進数 を 表わす ASCII 文 字 列 HL 三 整 数 型 デ ー タ DE=ASCI 文 字 列 格納 АЕ, В, DE 
アド レス (END= 0 ) 
ASCHL 4715 | 整数 型 デ ー タ ー10 進 数 を 表わす ASCI 文 字 列 HL 三 整 数 型 デ ー タ DE=ASCII 文 字 列 格納 АҒ, DE 
( 5 バイ ト ) DE=ASCI 文 字 列 格納 アド レス アド レス (END= 0) 
(ゼロ スキ ッ プ な し ) | 
BINHL 4747 | 整数 型 デ ー タ ー 2 進数 を 表わす ASCI 文 字 列 上 に 同じ 上 に 同じ 上 に 同じ 
(16 バ イト ) 
(ゼロ スキ ッ プ な し ) 
OCTHL 4756 | 整数 型 デ ー タ ー 8 進数 を 表わす ASCI 文字 列 上 に 同じ 上 に 同じ 上 に 同じ 
(6 バイト) 
(ゼロ スキ ッ プ な し ) 
KTNHL 476F | シフ ト JIS コ ー ド 区 点 コ ー ド を 表わす ASCII 文 字 列 HL ニシ フト JIS コ ー ド 上 に 同じ 上 に 同じ 
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HL= シ フト JIS コ ー ド 


JISHL 4775 | シフ ト JIS コ ー ド 一 JIS 漢 字 コ ー ド を 表わす ASCI 文字 列 ASCHL に 同じ ASCHL に 同じ 
HEXHLB | 4779 | 整数 型 デ ー タ ー16 進 数 を 表わす ASCII 文 字 列 DE = 整数 型 デ ー タ ASCHL に 同じ AF, DE, HL 
(符号 な し 4 バイ ト )( ゼ ロス キッ プ な し ) 
HEXHL | 477D| 2 章 で 解説 (p74) | 
HEXA 4 7 8A| 2 章 で 解説 (p.74) | 
POWERS | 4AD9 | [HL]=[HL] [DE] HL ニ デ ー タ 1 格納 アド レス HL = 結果 の 格納 アド レス АҒ, ВС, DE 
DE ニ デ ー タ 2 格納 アド レス PRCSON= 結 果 の タイ プ АҒ, ВС, ОЕ’ 
PRCSON= デ ー タ ・ タ イプ HL', IX, IY 
POWERF ニ デー タ 2 タイ プ 
MEMMAX ニ デー タ ・ バ ッ フ ァ 
上 限 ア ドレ ス 
ABS 4882 | [HL]=ABS[HL] HL ニ = デー タ 格 納 ア ドレ ス 上 に 同じ AF 
PRCSON 
INTOPR АВВА | [HL]=INT[HL] 上 に 同じ 上 に 同じ АЕ, ВС, DE 
IP вс’, ОЕ’ 
HL' 
- 
SQR 4BAE | [HL] - SQRÍHL]) HL= ニ デー タ 格 納 アド レス 上 に 同じ AF, BC, DE 
PRCSON АҒ, ВС, ОЕ’ 
| МЕММАХ HL, IX, м 
SUM 4BC3 | [HL]- SUMIHL] HL ニ デ ー タ 格納 アド レス HL ニ 結 果 格納 アド レス АЕ, ВС, DE 
PRCSON PRCSON= 結 果 の タイ プ АҒ, ВС, DE' 
МЕММАХ НІГ, IX, № 
FACG 4BF 1 |[HL]=FAC[HL 上 に 同じ 上 に 同じ 上 に 同じ 
=ATN[HL 上 に 同じ 上 に 同じ 上 に 同じ 
ーー 
COS 4007 | [HL I=COS[HL 上 に 同じ 上 に 同じ 上 に 同じ 
SIN 4020 | [HL]=SIN[HL] 上 に 同じ 上 に 同じ 上 に 同じ 
TAN 4E 2 5 | [HL]=TAN[HL] 上 に 同じ 上 に 同じ 上 に 同じ 
SGN 4E5C | [HL]=SGN[HL 上 に 同じ 上 に 同じ АЕ, DE 
RAD 4E 8 4 | [HL]=RAD[HL HL ニ デ ー タ 格納 アド レス 上 に 同じ АҒ, ВС, DE 
PRCSON АҒ, ВС, DE' 
HL', IX, IY 
PAT 4ЕЗО | [HL] -PAI[HL] 上 に 同じ 上 に 同じ 上 に 同じ 
RND 4E9 6 | [HL]=RND[HL 上 に 同じ 上 に 同じ АҒ, ВС, DE 
АҒ, ВС, ОЕ’ 
HL 
EXP 4 EC 5 | [HL]=EXP[HL HL ニ = データ 格納 アド レス 上 に 同じ АҒ, ВС, DE 
PRCSON AF', BC', DE' 
MEMMAX HL', IX, IY 
LOG 4FD8 |[HL]=LOG[HL 上 に 同じ 上 に 同じ 上 に 同じ 
CSNGP 50B0 | [HL]=CNSG[HL] HL= ニ デー タ 格 納 ア ドレ ス HL = 結果 格納 アド レス AF 
(PRCSON= 2 に 限る ) PRCSON= タ イプ 2, 5, PRCSON= 結 果 タ イプ 5, 8 
HL] =CDBL [HL] 上 に 同じ HL = 結果 格納 アド レス AF 


PRCSON= 結 果 タ イプ 8 


HL]=CSNG[ HL] 


上 に 同じ 


HL = 結果 格納 アド レス 
PRCSON= 結 果 タ イプ 5 


| 変換 (9 バイト) 


DE= 結 果 の 格納 アド レス 
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HL]=CINT[HL] HL= ニ デー タ 格 納 ア ドレ ス HL = 結果 格納 アド レス AF 
た だ し 一 32768<=[HL]< ニ =65535 PRCSON= タ イプ 2, 5, 8 | PRCSON= 結 果 タ イプ 2 
CINT HL]=CINT[HL] 上 に 同じ 上 に 同じ 上 に 同じ 
た だ し 一 32768<=[HL] < =32767 
FIX 5 1BE | [HL]=FIX[HL] 上 に 同じ HL = 結果 格納 アド レス АҒ, ВС, ОЕ’ 
PRCSON= 結 果 タ イプ 2, 5,8 | HL 
に 
FIXFLT 5 1C4 | [HL]=FIX[HL] HL ニ = デー タ 格 納 アド レス HL = 結果 格納 アド レス 上 に 同じ 
PRCSON= タ イプ 5, 8 PRCSON= 結 果 タ イプ 5, 8 
FRAC 5258 | [HL]=FRAC[HL] HL= ニ デー タ 格 納 アド レス HL= 結 果 格納 アド レス AF, АҒ, ВС" 
PRCSON= タ イプ 2, 5, 8 | PRCSON= 結 果 タ イプ 2, 5,8 DE’, HL 
CVDATS 5 2 9 6 | カレ ンダ ー 年 ・ 月 ・ 日 読み 込み DE= 年 ・ 月 ・ 日 ASCII デ ー タ | АҒ, BC, HL 
格納 アド レス (END=0) 
CVDATE | 5299 | 年 ・ 月 ・ 日 を 表わす 3 バイ ト 16 進 数 デー タ を ASCII HL ニ = デー タ 格 納 アド レス 上 に 同じ AF, BC 
文字 列 に 変換 (9 バイ ト ) DE= 結 果 の 格納 アド レス 
CVDAYS | 5 20Ғ | 2027—89 読み 込み БЕ-ШНА5СІ%-2? АЕ, ВС, HL 
格納 アド レス (END=0) 
CVDAY 52E2 | 年 ・ 月 ・ 日 を 表わす 3 バイ ト 16 進 数 デー タ を HL テニ デ ー タ 格納 アド レス 上 に 同じ АЕ, ВС 
曜日 を 表わす ASCII 文 字 列 に 変換 DE= 結 果 の 格納 アド レス 
CVTI$S 内 蔵 時 計 ・ 時 間 読 み 込み DE ニ = 時間 ASCII デ ー タ АЕ, ВС, HL 
格納 アド レス (END=0) 
CVTIME 5300 | 時 間 を 表わす 3 バイ ト 16 進 数 ジー タ を ASCII 文 字 列 に HL ニ デ ー タ 格納 アド レス 上 に 同じ АҒ, ВС 
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CVTIMS 5 3 1 6 | 内 蔵 時 計 ・ ス トッ プ ウ ォ ッ チ 読 み 込み DE= タイ ム ・ デ ー タ 格納 DE= ニ タイ ム ・ デ ー タ 格納 AF, BC, HL 
アド レス アド レス | АЕ", ВС’, ОЕ’ 
TIMBUF = (TIME = 0) PRCSON= 5 не, IX 
DATSTS 5 3 2B | 内 蔵 カ レン ダー・ 年 月 日 セッ ト РАУМЕЗ = 34 + Я * A ASCII АЕ, ВС, DE, HL 
デー タ 
DAYSTS | 53A8 | 内 蔵 カ レン ダー・ 曜 日 セッ ト DAYMES ニ 曜日 ASCII デ ー タ AF, BC, DE, HL 
TI$STS 5307 | 内 蔵 時 計 ・ 時 刻 セ ッ ト DAYMES= 時 刻 の ASCII デ ー タ 上 に 同じ 
ТІ5Т5 5418 | 内 蔵 スト ッ プ ・ ウ ォ ッ チ 秒 数 セッ ト DAYMES- タイ ム ・ デ ー タ АҒ, ВС, DE 
PRCSON HL, АҒ, ВС" 
に DE', HL' 
BOXFUL | 5507 | 2 章 て 解説 (p.67) 
a 
BOXSUB | 5604 | 2 章 て 解説 (p.67) 
m 569F | 2 章 て 解説 (p.67) | 
ELHPUT | 5780 | 2 章 で 解説 (p.68) 
ELHGET | 57АА | 2 章 で 解説 (p.68) 
PSETSB | 57F1 | 2 章 て 解説 (p.67) 
RESETS | 580C| 2 章 で 解説 (p.67) 
POINTS 5 8 BD | 指定 座標 (画面 上 ) の パレ ッ ト ・ コ ー ド を 返す HL= X ER A ニ 結果 デー タ (0 一 7 ) АҒ, ВС, DE 
DE = Y 座 標 CY= 1 … ウ イン ドウ 範囲 外 HL 
SCRNM2 ニ モー ド 0 … カ ラー 
1.2.3… モ ノ 
GRAADR 2 章 て 解説 (p.69) | 
GRAAD2 GRAADR と 同様 , た だ し WINDOW チ ェ ッ ク な し 
UPADR 5 9 A 8 | 1 ライ ン 上 の グラ フィ ッ ク ・ ア ドレ ス BC= グラ フィ ッ ク ・ ア ドレ ス BC= 1 ライ ン 上 の アド レス AF 
WK1FD0, WIDTH0 
SCRNM3 
ОМАОВ 5 9ЕС | 1 ライ ン 下 の グラ フィ ッ ク ・ ア ドレ ス 上 に 同じ BC= 1 ライ ン 下 の アド レス AF 
CLSGRA | 5 A4D | グラ フィ ッ ク 画 面 消 法 CLSMOD= 0 … 全 て АЕ, ВС, DE, 
1… 青 HL 
WINDOI 5AD8 | WINDOW 最大 セッ ト АЕ, ВС, DE 
HL 
WINDST 5 AEA | WINDOW セッ ト HL = X вуча AF, BC, DE 
DE =Y ği 
HL'=X 最 大 値 
DE'= Y 最大 値 
TILCOL 5B99 | タイ ル ・ バ ッ フ ァ へ カラ ー バ ター ン ・ セ ッ ト GCOLOR, TILBUF TILBUF 
] も し GCOLOR>ー80H な ら リ ター ン 
ーー トー 
HPAINT 5EA1 | 2 章 て 解説 (p.67) 
TILSET 6 1 A 5 | タイ ル ・ バ ッ フ ァ ヘ タイ ル バ パター ン ・ セ ッ ト A ニ バッ ファ 番号 (0 一 7 ) TILBUF АҒ, HL 
TILBUF = タ イル ・ パ ター ン 
PATSUB |623 o| グラ フィ ッ ク ・ バ ターン を 描く GCURX, GCURY AF, BC, DE 
PATUDD HL, BC', DE' 
DE ニ バ ター ン ・ デ ー タ 格納 
アド レス 
A ニ デー タ 長 
POLYSB | 630B | 2 章 て 解説 (p.67) 
TEMPSB | 6 5 6E | 2 章 て 解説 (p.75) 
ニー 
MUSICS 6 SAC | 2 章 て 解説 (p.75) 
MUBFST | 6 5F 2 | ミュ ー ジ ッ ク ・ デ ー タ ー イ ンタ ラプ ト ・ ジ ョ プ ブ ・ デ ー タ DE= ミュージック ・ デ ー タ 格納 | DE ニーNEXT ア ドレ ス АҒ, С 
アド レス HL=NEXT7 FL X 
HL = ニ イ ン タラ ブ プ ト ・ デ ー タ 格納 | A=END コ ー ド 
アド レス 
MUSICI イン タラ プ ト ・ ミ ュー ジッ ク 出 力 CHAADR, CHBADR АЕ, HL 
CHCADR 
HCOPSS 画面 ハー ドコ ピー A 三 0 … グ ラフ ィ ッ ク 全 て АҒ, ВС, DE 
1… グ ラフ ィ ッ ク 1 HL 
2… グ ラフ ィ ッ ク 2 
3 … グ ラフ ィ ッ ク 3 
4 … グ ラフ ィ ッ ク & テキ スト 
FFH テキスト 
SCRNM3, HCYMIN 
НСХМІМ, НСҮМАХ 
НСХМАХ, LPCRCD 
CURYMX, SCRN00 
INIADR 
BITDEP | 6 AD6 | プリ ンタ へ LPTBUF の 内 容 を ビッ トイ メー ジ ・ プ ブリ ント | LPTBUF AF 
LPOSB ニ デー タ 長 
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10 


BIOS 内 サブ ルー チン 一 覧 


SYMBSB 6 BD 3 | 画面 へ の 文字 列表 示 SINSX, SINSY АҒ, ВС, DE 


GETADR, OLX, OLA HL, АҒ, ВС” 
GCOLOR, SIND ОЕ’, HL', IX 
PSMODE ІҮ 

SIOCTC 6 D 3 F | CTC と SIO の 初期 化 АЕ, ВС, DE 

HL 
(М 

RSINIT 6 DA 5 | SIO チ ャ ネル A モ ー ド ・ セ ッ ト H ロ =CTC1 デ ー タ 上 に 同じ 
L=R4 
D=R5 
E=R3 

RXINP 6E 5 9 | RS-232C よ り デ ー タ 入力 A 王 入力 デー タ AF 

(あら が じ め RXSNS で 入力 チェ ッ ク ) 
RXSNS 6E 8 3 | RS-232C 入力 セン ス ZF= 1 … デ ー タ な し АЕ, HL 
ZF= 0… 入 力 OK 
тхоџт | 6EgsAlRs-232C ヘ デー タ 出 カ A = 出力 デー タ FLG | 
TXSNS 6EA7 | RS-232C 出力 セン ス ZF = 1 … 出 力 不可 能 АҒ, BC 
(TXOUT す る 前 に コー ル ) ZF = 0… 出 力 OK 
1 

MOUSE0 | 6 EA F | マウ ス 割 込み モー トド 解除 ] АҒ, ВС 

MOUSE1 |6ECO | マウ ス 割 込み モー ド ・ セ ッ ト | HL = マウ ス ・ ポ ボ ジ シ ョ ン X AF, BC, DE 
DE ニ マ ウス ・ ボ ポジション Y HL 

SAVE1 7020 | 2 章 て 解説 (p.76) 

SAVE2 7 0 2 4 | 2 章 て 解説 (p.77) 

T 
LOAD1 7047 | 2 章 て 解説 (p.77) 
LOAD2 7048 | 2 章 て 解説 (p.77) 


VERFY2 7 0 5C | 2 章 て 解説 (p.77) 
CMTCOM | 72C3 | 2 章 て 解説 (p.77) 
CMTSNS | 7 2 CD | カセ ッ ト の 状態 セン ス A ニ デ ー タ . ЕуМ-ж-? AF 


FDCRED | 7390 | 2 章 て 解説 (p.78) 
FDCWRT | 7 3AA | 2 章 て 解 設 (p.78) 


FDCVFY | 7 3B7 | デバ イス ・ ベ リフ ァ イ HL= デ ー タ 先頭 アド レス AF, BC, DE 
(NON DMA) DE= レ コー ド 番 号 HL, АЕ" 

A = レコ ー ド 数 
FDCNO, UNITNO 


DSKRED |76СА | ディ スク リー ド (NON ОМА) HL ニテ デ ー タ 格納 アド レス HL=NEXT7 F L ZX 上 に 同じ 
( 3 また は 5 イン チ ) D ニトラ ッ ク X 2 二 サ イド D =NEXT ト ラッ ク 
E ニセ クタ 番号 Е =NEXT セ クタ 番号 
А ニセ クタ 数 
UNITNO 
DSKWRT |7605 | ディ スク ・ ラ イト (МОМ DMA) 上 に 同じ 上 に 同じ 上 に 同じ 
( 3 また は 5 イン チ ) 
DSKVFY |76Е0 | ディ スク ・ ベ リフ ァ イ (МОМ ОМА) 上 に 同じ ] 上 に 同じ 上 に 同じ 
( 3 また は 5 イン チ ) | 
T | 
MOTOF8 | 7 7 9 2 | ディ スク ・ モ ー タ OFF MTOFIO=0FCH AF, BC 
(3,55 また は 8 イン チ ) ( 3 また は 5 イン チ ) 
=0ЕСН 
( 8 イン チ ) 
UNITNO ニ ドラ イブ 番号 
МОТОРЕ | 7 7 9 | ディ スク ・ モ ー タ OFF ( 3 また は 5 インチ) UNITNO 上 に 同じ 
JPBCNE | 7D 6C | ROM 内 アド レス へ ジ ャ ンプ BC=ROM ジ ャ ンプ ・ ア ドレ ス | CY= 1…A ニ エラ ー コ ー ド FLG 
(エラ ー 処 理 な し ) CY= 0 … エ ラー な し 
BA ワー クス 
この 章 で は 2 章 , 3 章 で 取り 上 げた BIOS-ROM 内 サブ 関係 の ワー クス は 必要 と 思わ れ ま す の て で 解説 を 加え て いま 
ルー チン が 参照 する ワー ク に つい て 解説 し ます が , マウ ス 5%; 


GRAXMX グラ フィ ッ ク X 座 標 最大 値 (319, 639) 

GRAYMX グラ フィ ッ ク Y 座 標 最 大 値 (191, 199, 383, 399) 

WIDTH0 F 8 7 | テキ スト X 座 標 最 大 値 + (40, 80) | 
CURYMX | F 8 8 0 | テキ スト Y 座 標 最大 値 (9, 11, 19, 24) 


LPCRCD |F8 8 3 | プリ ンタ CR 十 LF 出 力 モー ド (82H) 
*1H-0DH, *2H=0AH , ж 3Н=0ОН+0АН 
ビッ ト 7 ニ 1 の と き HCOPY の CR 二 LF は OFF 
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PRTDLY 
COLORF F8D0 


CLSCHR |F8D1 | 通常 は 20H 


通常 は 0DH 


アト リピ ュー ト ・ バ バッファ (CSIZECGEN,CFLASH,CREV,COLOR) 

ピッ ト 7,6 -CSIZE 00=CSIZE 0, 01=CSIZE 1. 10=CSIZE 2. 11=CSIZE 3 
ピット 5 =CGEN……0=CGEN0, 1=CGEN 1 

ビット 4 =CFLASH::0=CFLASH0, 1 =CFLASH 1 


ビ ピット 3 -CREV--- 0=CREV 0, 1 =СКЕМ 1 
ピット 2、1、0= ニ COLOR 
000=0, 001=1, 010=2, 011=3, 100=4, 101=5, 110=6, 111=7 


BPRIOF F8D2 
RPRIOF F8D3 


に ーー ー 上 


IO アド レス 1000H に 出力 する た め の バ レッ ト ・ ブ ルー デー タ ・ バ ッ フ ァ . 通常 は OAAH 
じ O ア ドレ ス 1100H に 出力 する た め の パ レッ ト ・ レ ッ ド デー タ ・ バ ッ フ ァ . 通常 は 0OCCH 


GPRIOF F8D4 


= айы کک‎ 


В, R, G PRIOF の 関係 は 次 の よう に な っ て いま す . 
BPRIOF RPRIOF GPRIOF 


EFF? 1 1 1 223-—7 
ビッ ト 6 0 1 1 カラ ー6 
ビ ピット 5 1 0 1 カラ ー5 
ビッ ト 4 0 0 1 カラ ー4 
ビッ ト 3 1 1 0 カラ ー3 
ビッ ト 2 0 1 0 カラ ー2 
EYÊ 1 0 0 27-1 
ビッ ト 0 0 0 0 カラ ー0 


0AAH 0CCH OFOH 
通常 は 上 の よう に 設定 され て いま す の で 各 デ ー タ の ビッ ト を 操作 する こと に より パレット を 設定 する こと が 可能 で す . 


TPRIOF F8D5 


WK1FDO |F8D6 


SCRMOD |F8D7 


г 


し 0 アド レス 1300H に 出力 する た め の プ ライ オリ ティ ・ デ ー タ ・ バ ッ フ ァ . 通常 は 00H 


ビッ ト 7 ニ 1… グ ラフ ィ ッ ク カ ラー 7 は テキ スト 画面 より 優先 
ビッ ト 6 1 … グ ラフ ィ ッ ク カ ラー 6 は テキ スト 画面 より 優先 
ビッ ト 5 三 1… グ ラフ ィ ッ ク カ ラー 5 は テキ スト 画面 より 優先 
ビッ ト 4 三 1… グ ラフ ィ ッ ク カ ラー 4 は テキ スト 画面 より 優先 
ビ ピット 3 三 1… グ ラフ ィ ッ ク カ ラー 3 は テキ スト 画面 より 優先 
ビッ ト 2 三 1… グ ラフ ィ ッ ク カ ラー 2 は テキ スト 画面 より 優先 
ビッ ト 1==1… グ ラフ ィ ッ ク カ ラー 1 は テキ スト 画面 より 優先 
ビッ ト 0 三 1… グ ラフ ィ ッ ク カ ラー 0 は テキ スト 画面 より 優先 
画面 管理 用 /O ア ドレ ス 1FD0H デー タ ・ バ ッ フ ァ 
ビッ ト 7 =1…WIDTH, 20 or WIDTH, 10 
= 0 WIDTH, 25 or WIDTH, 20 
ビッ ト 6=1…CGREAD 1624 У CG 
= 0. …CGREAD 8 ライ ン CG 
ピット 51… ハ イス ピー ド CG アク セス 
=0…X 1 スピード CG アク セス 
ビッ ト 4 =1…CPU が アク セス で きる G-RAM =ВАМК | 
= 0: …CPU が アク セス で きる G-RAM=BANK 0 
ビッ ト 3 =1… 画 面 表示 G-RAM=BANK 1 
= 0 … 画 面 表示 G-RAM= BANK 0 
ビッ ト 2=1…WIDTH, 12 or WIDTH, 10 
=0…WIDTH, 25 or WIDTH, 20 
ビッ ト 1 =1 …G-RAM 1 ライ ン ニ CRT 2 ライ ン 
=0…G-RAM 1 ライ ン =CRT 1 ライ ン 
ビッ ト 0=1…400 ラ イン ・ デ ィ ス プレ イ ・ モ ー ド 
0 …200 ラ イン ・ デ ィ ス プレ イ ・ モ ー ド 
ビッ ト 7 、 2, 1, OMAT WIDTH, , , の モー ド を 表わす . 
オプ ショ ン ・ ス クリ ー ン ・ デ ー タ ] 


0 = ニ バ ンク 0 : グラ フィ ッ ク , バン ク 1 : グラ フィ ッ ク 

1 = ニ バ ンク 0 : グラ フィ ッ ク , バン ク 1 : バリ アプ ブル 

2 テバ ンク 0 : FILE(MEM0 : ),、 バ ンク 1 : バリ アプ ブル 

3 ニ バ ンク 0 : グラ フィ ッ ク , バン ク 1 : FILE(MEM 1 :) 

4 ニ バ ンク 0 : FILE(MEM 0 : ), バ ンク 1 : FILE(MEM 1 :) 


TMPEND |F8DC 


MTOFIO F928 


POWERF 
MEMMAX 
HCXMIN 


FA51 


НСХМАХ 


НСҮМІМ ҒА58 


НСҮМАХ 


PRCSON F8DA 


FA54 | ЦМТ アド レス ・ バ ッ フ ァ (0F800H) 
F A 5 6 | НСОРУ. X- 最 小 値 (00H) 
FA57 | HCOPY. X- 最 大 値 (27H) 


НСОРҮ. Y- 最 小 値 (00H) 
ҒА 5 9 | HCOPY.Y- 最 大 値 (31H—2FH) 


デー タ ・ タ イプ 
2 = 整数 型 デ ー タ , 3 文字 型 デ ー タ , 5 三 単 精度 型 デ ー タ , 8 三 倍 精度 型 デ ー タ 
BASIC ワ ー ク ・ エ ンド (ペイ ント ・ ワ ー ク ・ ス ター ト ) (08000H) 
本 文中 て 解説 
ディ スク ・ モ ー タ OFF. 1/0 アド レス ・ バ ッ フ ァ 
3 また は 5 イン チ … 0 FCH 
8 インチ … 0 ECH 


POWERS 用 デー タ ・ タ イプ ・ バ ッ フ ァ 
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| 
ラ ベル 名 アド レス 


FABC | ファ ンク ショ ン キ ー・ デ ィ ス プレ イ ・ フ ラグ 
0 = 表示 し な い 
1 表示 する 


FADD | デバ イス ・ ナ ン バ 
0 =SCR : , 1 =CRT :, 2-КЕҮ:, 3-LPT:, 4-СА5: 
5 =МЕМО : ~МЕМ 1 : , 6 =ЕММ 0 : ~ЕММ : 9 
7=0:—3: (3 また は 5 イン チ ・ デ ィ ス ク ), 8-F0:—F3: (8 イン チ ・ デ ィ ス ク ) 


9 =HD0 : —НОЗ : (ハー ド デ ィ スク ), 0A-COM: 
ドラ イプ ・ ナ ン バ 


INKEYS( 0) ) デー タ ・ バ ッ フ ァ 


INIADR CRTC デ ィ ス プレ イ ・ オ フ セ ッ ト ア ドレ ス ・ ワ ー ク , FB6AH(HIGH), FB6BH(LOW) 
SCREEN 0 : SCREEN2 …00H、00H 
SCREEN 1 : SCREENS …04H, 00H or 02H, 00H 


CSIZEF CSIZE デー タ (0, 1, 2, 8) 

LPOS (0) 7—2 

CHAADR ミュ ー ジ ッ ク ・ チ ャ ネル A デー タ ・ ス ター ト ・ ア ドレ ス . FB 80(LOW)、FB81(HIGH) 
CHBADR |FB88 | ミュ ー ジ ッ ク ・ チ ャ ネル B デー タ ・ ス ター ト ・ ア ドレ ス . FB88(LOW), FB89(HIGH) 
CHCADR ミュ ー ジ ッ ク ・ チ ャ ネル C デー タ ・ ス ター ト ・ ア ドレ ス . ЕВ 90(LOW)、FB91(HIGH) 
マウ ス X ボ ポイ ント ・ ワ ー ク . FBORLOW) FB99(HIGH) 

MOUSEY マウ ス Y ボ ポイ ント ・ ワ ー ク , FB9A(LOW) FB 9 B(HIGH) Д 
MOUPNT マウ ス デ ー タ ・ イ ンプ ブッ ト ・ フ ラグ 


マウ ス デ ー タ ・ イ ンプ ブッ ト ・ バ ッ フ ァ (3 バイ ト ) 


マウ ス ・ ス イッ チ 10OFF . X ポ イン ト ・ ワ ー ク . ЕВА 1 (LOW), FBA 2 (HIGH) 


MOUDAT 
MSIOFX |ЕВА! 
MS1OFY |ЕВАЗ | マウ ス ・ ス イッ チ 1OFF .Y ポ イン ト ・ ワ ー ク . FBA3(LOW), FBA 4 (HIGH) 
MS1ONX | FBA5 | マウ ス ・ ス イッ チ 1 ON . X ポ イン ト ・ ワ ー ク . FBA 5 (LOW), FBA 6 (HIGH) 
MS1ONY | ЕВА? | マウ ス ・ ス イッ チ 1 ON . Y ポ イン ト ・ ワ ー ク . FBA7 (LOW), FBA 8 (HIGH) 
MS2OFX マウ ス ・ ス イッ チ 2OFF . X ポ イン ト ・ ワ ー ク . FBA 9 (LOW), FBAA(HIGH) 
MS2OFY マウ ス ・ ス イッ チ 2OFF . Y ポ イン ト ・ ワ ー ク . FBAB(LOW), FBAC(HIGH) 
MS2ONX マウ ス ・ ス イッ チ 2 ON . X ボ ポイ ント ・ ワ ー ク . FBAD(LOW), FBAE(HIGH) 
MS2ONY マウ ス ・ ス イッ チ 2 ON . Y ポ イン ト ・ ワ ー ク . FBAF(LOW) FBB 0 (HIGH) 
スク リー ン ・ ア ウト ・ モ ー ド 0 or 1 


! 


SCRN00 


スク リー ン ・ ア クセ ス ・ モ ー ド 0 or 1 


SCRN01 
スク リー ン ・ グ ラフ ィ ッ ク 
カラ ー モ ー ド =0 


SCRNM2 
モノ モー ド BLUE ONLY= 1, RED ONLY= 2, GREEN ONLY = 3 


SCRNM3 | F BF 7 | WIDTH, L, M, D. モ ー ド ・ ワ ー ク 1 
00H=WIDTH 25, 0, 1 01H=WIDTH , 12, 
02H=WIDTH , 25, 0, 2 03H—WIDTH , 12, 
04H=WIDTH , 25, 1, 2 05H—WIDTH , 12, 
06H—WIDTH , 20, 0, 1 07H=WIDTH , 10, 


о-оо 
ー N N = 


08H—WIDTH 20, 0, 2 


KSENFG FBF 9 | アン ダー ライ ン ・ モ ー ド ・ フ ラグ 
KSEN 0 =00Н , KSEN 1 -20Н 
GCOLOR FC 1 6 | グラ フィ ッ ク ・ カ ラー 
00H 一 07H… ノ ー マ ル ・ カ ラー 
08H 一 7 FH… タ イル ・ カ ラー 
80H … タ イル ・ バ ッ フ ァ ・ パ ター ン 


GETXS FC 1 7 | LINE 開 始 X 座 標 . FC17(LOW), FC18(HIGH) 
LINEXS PSET, PRESET XH 

PSETX 

GETYS FC 1 9 | LINE 開 始 Y 座 標 . FC19(LOW) „ЕС 1 A(HIGH) 
LINEYS PSET, PRESET Y 座 標 

PSETY 

GETXE FC1B 

LINEXE LINE 終 点 X 座 標 . FCIB(LOW), FCIC(HIGH) 
GETYE FC1D 

LINEYE LINE 終 点 Y 座 標 . FCID(LOW), FCIE(HIGH) 
GCURX FC1F | ポジション X ワ ー ク . FCIF(LOW), FC20(HIGH) 


GCURY FC 2 1 | ポジ ショ ン Y ワーク. FC21(LOW), FC22(HIGH) 
TIMBUF |ЕС6 8 | ТІМЕ-0. SECDND デー タ (574 F) РЕС5ОМ-5 ( 単 精度 型 ) | 
LPTBUF | FC6D| ビ ピット ・ イ メー ジ LPRINT 1 ライ ン ・ バ ッ フ ァ (140 バ イト ) | 


LO 


ワー クス 
ラベ ル 名 | ァ ド レス | 説 明 
[x1HELP | FD70 カナ 漢字 変換 HELP モ ー ド ・ フ ラグ . 1-HELPE-F, 0 ニノ ー マ ル ・ モ ー ド 
X 1 МОРЕ FD7 2 | XFER モー ド ・ バ ッ フ ァ 
ビッ ト 7 0 … ロ ー マ 字 モー ド OFF 
1 … ロ ー マ 字 モー ド ON 
ビット 6 =0… 全 角 モ ー ド 
= 1 … 半 角 モ ー ド 
ピット 5 =0… 平 仮名 モー ド 
= 1… 片 仮名 モー ド 
ビ ピット 4 = 0… 間 接 変換 モー ド 
= 1 … 直 接 変換 モー ド 
ビ ピット 3 = 0… コ ー ド 入力 
ЖЕР; 
ビッ ト 3= ニ 1 の と き 
кућа. | 
=00… 1 文字 変換 
=01… 音 訓 変換 
10… シ ステ ム 辞 書 変換 
=11… ユ ー ザ ー 辞 書 変換 
ビッ ト 3 ニ 0 の と き 
ビッ ト 0= テ 0…JIS コ ー ド or シフト JS コード 
1… 区 点 コ ー ド 


DAYMES |FD9F | ОАТЕ$, TIMES, DAYS, メッ セー ジ ・ ワ ー ク (8 バイ ト 十 DATEBF の | バイ ト ) 
DATEBF |FDA7 | ОАТЕ$, DAYS. リー ド , ライ ト ・ ワ ー ク (3548) 

| 

TILBUF FE 2 0 | タイ ル ・ パ ター ン ・ バ ッ フ ァ (B, R, 6 24 バ イト ) 
[ксося FE 4 8 | HPAINT 境界 色 (MAX 8 バイ ト ) 22—0—7 


BKCLLN |ҒЕ50 | HPAINT 境界 色 数 (0 一 8) ] 


CHRCOD FE 5 1 | キャ ラク タ LINSB, BOXSUB, BOXFUL に お ける キャ ラク タ ASCII コー ド 


CLSMOD | FE52 | グラ フィ ッ ク CLS モー ド ・ バ パラ メー タ 
00 Н or 04H=ALL CLS 

01H BLUE ONLY 

02H =RED ONLY 


03H =СРЕЕМ ONLY 

PSMODE | F E 5 3 | LINESB, BOXSUB, BOXFUL, SYMBSB モー ド ・ バ ッ フ ァ 
0н=++>227 
01H =PSET 


02H =PRESET 
03H =XOR 
LINPAT FE 5 4 | LINESB, BOXSUB ライ ン ・ パ ター ン ・ デ ー タ (2 バイ ト ) 
PATUDD PATTERN п,” ” に お ける n デ ー タ 
01H~7 FH… デ ー タ UP 
FFH--80H--: デー タ DOWN 


PAINTX ベイ ント X 座 標 バ ッ フ ァ . FE59 (LOW), FE 5 A (HIGH) 
SINSX CIRCLE, POLY. X 座 標 バ ッ フ ァ 
SYMBOL. X 座 標 7 7 7 


上 記 Y 座 標 バ ッ フ ァ . FESB(LOW), FE 5 C(HIGH) 
SINSY 


SINRX FE5D | CIRCLE, POLY. 半径 X バ ッ フ ァ FE5D(LOW), FE 5 E(HIGH) 


CIRCLE, POLY. 半径 Y バ ッ フ ァ FE 5F(LOW) , FE60 (HIGH) 
FE61 | CIRCLE, POLY ステ ッ プ ・ バ ッ フ ァ FE61(LOW), FE62(HIGH) 
SYMBOL 角度 方 向 (0、1, 2, 3) 
GETADR | FE6 3 | SYMBOL デ ー タ ・ ス ター ト ・ ア ドレ ス FE63(LOW), FE64(HIGH) 
SINSTA CIRCLE. POLY 初 期 角 バッ ファ 
| SINEND | FE65 |CIRCLE, POLY 終了 角 バ ッ フ ァ FE65(LOW) FE66(HIGH) 
lolx |ҒғЕТВв | SYMBoL.X 方 向 倍率 FE 7 B(LOW), FE 7 C(HIGH) 


OLX 
OLA FE 7 D | SYMBOL. Y 方 向 倍率 FE 7 D(LOW), FE 7 E(HIGH) 


避 参 考 文献 
1) 本 追 芳夫 他 著 : プロ スペ クト , HUDSON SOFT 
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X1 シ リー ズ 


ン 語 で ゲー ム 作 り し た い 太 に 挫 ぐ 


ズ ク ワ ー ル シュ ー デ ティ ァ ン グ 
2-2 グー の 


= | 


S 


| LAM 


АРС, ゲッ ピ で す . 知る 人 ぞ 知 る , ホバー アタ ッ ク の ン 〕」 は , VRAM の アド レス を 計算 する 命令 で ある (入力 
作者 で す . これ か ら , ゲー ム の 作り 方 , な ん て の を 書い て パラ メー タク や や 出力 アデ ドレ ス に つい て は , 敢えて 上 痢 か な いけ 
みよ うと 思う の で , 興味 あっ た ら 読ん で くだ さい . 私 は 別 E, 作る と き に は よく 考え て くだ さい ) な ど と 考え て し ま 
に ゲー ム 作 成 法 を 習っ た わけ じゃ な い の で , 間違っ た こと う あ な た は , ひょっと し て 天地 か も し れ な い . これ は Pas- 
や 無駄 な こと が ある だ ろう けど , そ ー ゆ ーー 場合 は , バカ な cal や C に 取り 入れ られ て いる 考え 方 で , その 手 の 勉 強 を 
М, と 笑っ て や っ て くだ さい . し て る と , 思わ ぬ 所 で 役に立つ も の で す . 


いま , ゲー ム 作 り で 悩ん で る 人 が これ を 読ん で , する ど 
い ノ と 思っ て くれ た りす る と うれ し いで す . また , Z80 の マ 基本 的 な ブロ グラ ム の バル ター ソ 
シン 語 や , X1 の ハー ド に 関す る こと は ,。 本 が た くさ ん 出 て 


る の で あま り 書 か な いと 思う けど , その つも り で . 
基本 的 な 処理 を マシ ン 語 で 行なう に あたり , 知ら な いと 


プロ グラ ミン グ に つい て 掴 する テク ニッ ク を 、 少 し 書い て みよ うと 思い ます . 
ESE 


大 き を な プロ グラ ム を アセ ンプ ラ で 苦く 場合 。 仕事 を どん AA レジ スタ が 宜 で を けれ ば 繰り 返す 、 k u D fp KZ + 
どん 分 害し な けれ ば いけ ませ ん . KERR ある キャ ラク +. REPEAT 文 は 簡単 (REPEAT も 知ら な いと いう 人 
タ を 動か し た いと し ます . 動か す と いう の は , 元 の キャ ラ は , BASIC MANUAL を も う 1 度 よく 読み まし ょ う ). リ 
クタ を 消し て , 少し 動か し て 購 き 直す , と いう こ eo. スト ド 1 の よう に た な を まず す 、 

СО оо 9 014, VRAM に デー タ を 送り 込 WHILE 文 は , 構造 化 プ ログ ラミ ング 理論 的 (2 )u FC 
め ぼ い い の で す . جي‎ УКАМ の アド レス は , 横 が 40 文 字 の と (つま り 。 すべ て の プロ グラ ム は , 図 1 の 3 つの パタ ー 
В, (ХИ + (Ум) х40+&НС000, で 計算 で き ン で 表わす こと が で きる …… Hee ШІРУ, ме 
297, Ж, а а ir (В ら ご めん な さい ) リス ト 2 の よう に な る けど , 私 は リス ト 
が 旭 の 中 で で きる よう に な れ ば , ほとん ど フ ロー チャ ー ト 3 を お 勧め し ます . 
ЖО, Нее сад ЕАН) リス ト 3 の 方 が 遅い けど プロ グラ ム が 小さ く て すむ , Ж 
ye ん て せこ い 埋 由 か ら で は あり ませ ん . デバ ッ グ する と 

な み に , ホバー アタ ッ ク で ,。 ちゃ ん と フロ ー チ ャ ー ト も し 条件 を 変え を な けれ ば な ら な く な っ た と し ます . УАР 
а ROD, アタ ッ カ ー の 移動 ルー チン ぐら いで す GÀ 3 な ら , CP 文 を 1 筒 所 変え た れ ば すむ けど , リス ト 2 で は , 
雑 な こと を や っ て いな い , と いう 意見 も ある が …… ) & СР が 2 つ あ り ま す . ЕЖЕ СОЗ SE な か な を 
©. 実際 に プロ グラ ム す る と き は ,。 どう すれ ば よい で し ょ か 気付 か ず に 、 どう し て も バグ が 取れ な を ない, ЖЫҚ 
うか . まず , VRAM 計算 ルー チン を 作り ます . 後 は 簡単 惨 な 結果 を 招く 可能 性 も あり ます . 
Флори VRAM 計算 次 に FOR x£2Z2 £3. 5 回 繰り 返し た いな ら , リ スト 
@② の スペ ー ス を 出力 (つま り 消 す と いう こと ) 4 の よう に し ます .D レ ジス タ の 代わ り に B レ ジス タ を 使 
移動 後 の 位置 の VRAM ir 307r 5, DINZ と いう 命令 も ある の で , 知ら な か っ た 
の ⑳ 大 示 キ ャ ラク タ を 出力 b, Z80 の 解説 寺 を 見 て くだ さい . 
к, ма је сос, も う 1 つ 央 切な こ だ を だが あり ま & C, 256 回 以上 繰 り 返 し た か っ た ら ど うす る の で し ょ 
+. いっ た ん VRAM 計算 ルー チン を 作っ て し まえ は ば, 後 は 2, 普通 は リス ト 5 の よう に し ます . À L ZZ ў е7 
その 内 容 を 才 を な く て く て も よい 。 と いう こと で す . -nt&d43 く な けれ ば , リス ト 6 の よう な 方 法 も あり ます . Ez, № 
СОШЕЛ, 構造 化 プ ログ ラミ ング 、 を ん て 言っ た な たり し 列 処理 を 行なう と き は , Ú Z F 7 の よう な 二 算 ルー プ が 効 
ます (本 呈 は もう 少し むず か し い 理 論 と か も ある ん だ け 巣 的 か も し れ ま せん (ST, リス ト 7 は 何 向 ルー プ す る の 
E seny, (Cb S), 

BERS SET, TLD B, А)», B に A を 転送 する 命 も っ と いろ いろ な 方 法 が ある と 思う の で , 一 番 い いと 思 
令 で ある . と する と 同様 に 「CALL (УКАМ 転送 ルー チ う 方 法 を 使 を ば よい で し ょ う . 
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図 1 プロ グラ ム 基 本 パタ ー ン 


連続 分 岐 反復 


NZ, LAB2 
LAB3: |... 


DE,4000H 


ESRI 


ON…GOTO 文 を 表現 する に は どう すれ ば よい で し ょ う 
D. 分 岐 数 が 少な いと き は , リス ト 8 の よう に すれ ば いい 
FE, 分 岐 数 が 多く な っ て くる と , ぞろぞろ と 書い て いく 
の が アホ らし く な っ て きま す . 

そん を な と き は , リス ト 9 の よう に テー ブル を 使っ て 処理 
する の が よい で し ょ う . ちな み に , ON:::GOSUB (3, リス 
ト 10 の よう に し ます . 直接 , 分岐 に は 関係 せい けど ,INSTR 
文 を 表現 する 例 を リス ト 11 に 示し て お きま す (BASIC の 
プロ グラ ム で は , INSTR と ON…GOSUB な ど を 組み 合 
わせ て , キー 入力 処理 な ど を 行なう こと が よく あり ます ). 
ЗАЧ, リス ト 11 と リス ト 10 を くっ つけ る と ,。A レ ジス 
タ が 3 の 場合 は し 1 9 の 場合 は し 2。13 の 場合 は し 3、… 
と いう ふう に サ プ ル ー チ シン ・ コ ー ル し ます 。. 

ちな み に , リス ト 12 で も , 同じ 処理 が で きま す . 2-7 
ル に は いろ ん な 使い 方 が あり , テー ブル の 若き 直し に より 
プロ グラ ム の 変更 も 容易 な の で , マス ター し て お いて 損 は 
な いで し ょ う 。 

ЈА Безје с EGC, 知っ て る 人 も 多い と 思う けど 。, 
一 応 書 きま し た . жы, 例 に が し だ リスト は , エラ ー チ ェ 
ッ グ な ど し て な い の で (720621, А レジ スタ に 20 を 入れ 
て リス ト 9 を 実行 する と, 多分 禁 直 し ます ), 理解 し た ら 。 


То 


リス ト 1 
LAB1: ... 
CP 0 
JR NZ,LAB1 
リス ト 3 


0 
JR NZ, LABS 


LAB4 


DE, 4000H 
LAB7: ... 


DEC DE 
LD A,D 
OR E 


NZ,LAB7 


NZ,LAB10 


DEC D 
JR NZ,LAB9 


ЕС 


リス ト 9 


L,A 
H,0 
HL,HL 
DE,TAB1 


L1,L2,L3,L4,L5 
L6,L7,L8,L9,L10 
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LAB11 


リス ト 11 


HL, TAB2 
D,0 
(HL) 
Z,LAB13 
HL 

HL 

D 

LAB12 
A,D 


3,9,13,25,39,... 


リス ト 13 


WIDTH 80:CIRCLE( 300,100 ) , 50 
LIST:LIST:LIST:INIT 

Xz(X*1) MOD 80 

OUT &H1800,13 

OUT &H1801,X 

GOTO 1020 


02 2 2 ドッ ト ず つ ず らし た 絵 


自分 で プロ グラ ム を 書き まし ょ う (その まま 使っ て も いい 
けど , 何 が あっ て も 責任 と ら な いよ ). この 他 に も , 乗算 や 
10 進 補正 な ど が ゲー ム 作 り に は 必要 で す が , 1/0 の バッ ク 
ナン バ な ど を 見 て 勉強 し まし ょ う . ぬ わ に ぃ /1/O を 買っ 
て で ない だ と ぉ 。 СОЛЬ, БА. Caves 


Rok, ゲッ ピ で す 。 い よい よこ れ か ら が , 初心 者 じゃ 
な いあ な た の ため の ゲー ム 講 座 で す . 


アイ デア に つい て 


よく , ゲー ム の 作り 方 。 な ん て 本 に は 「 プ ログ ラミ ング 
の 前 に よく アイ デア を 練 ら な く て は いけ な い 」 など と 書 
いて ある けど , あれ は まっ か な ウソ で す (こん な こと 言っ 
て いい の だ ろう か ? ). KU, きっ か けさ そえ あれ ば よい の で 
+. デバ ッ グ を 繰り 返し て る うち に , 次 々 と 新しい アイ デ 
ア が 浮か ん で くる こと で し ょ う 。 

ホバー アタ ッ ク は , 見 る 人 が 見 れ ば わか る と 思う けど 「 戦 
MX 〇 ブン グル 」 と いう アニ メ が も と に な っ て ます ( キ 
ャ ラク タ も , 最初 は 「 ギ ャ 〇 ア 」 み た い に 太 っ て まし た). 
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リス ト 12 


HL , TAB3 
LAB14: CP (HL ) 
JR Z,LAB15 


BC, 0C000H 
LD L,0 
LAB16: ІМ н,(с) 
OUT (C), L 
LD L,H 
TNC BC 
LD A,B 
OR C 
JR NZ,LAB16 
RET 
リス ト 15 


BC, 3000H 
L, 

А, 38H 

H, (C) 
(C),L 


L,H 

BC 

B 
NZ,LAB17 


LPL, 私 が 最初 , 作ろ うと し て いた の は 「 ス ラン グル 」 
(と いう 名 前 だ っ た らし い . RIT, マシ ン ガ ン と 爆弾 
を 使い 敵 を 破壊 し な が ら 洞 窟 を 横 ス クロ ー ル し て ゆく ゲー 
ム で す ) だ と いう こと に 気付 いた 人 は , 多分 いな いで し ょ 


2. 


画面 の 割り 当て に つい て 


X1 に は , キャ ラク タ 面 画 が 1 枚 と . グラ フィ ッ ク 面 画 が 
3 枚 あ り ま す (40 字 モー ド な ら 2 倍 ).、 スク ロー ル す る 背景 
к, 移動 する 個々 の キャ ラク タ に , どの 画面 を 使う か , と 
いう の は 非常 に 重要 な 問題 で す . キャ ラク タ 画 面 と いう 名 
に つら れ て ,「 背 景 は グラ フィ ッ ク 画 面 ,。 キ ャ ラク タ は キャ 
ラク タ 画 面 で いい じゃ ん 」 な ん て 言う あな だ は, あま い ( 別 
に それ で も いい ん だ けど ). 高速 性 の 要求 され る 背景 は キャ 
ラク タ 画 面 で 行なう の が , テク ニッ ク の な い ア ホ プ ロ グラ 
マー に 適し た 方 法 で す (ちな み に 私 は アホ プロ グラ マー で 
3). 

СН, キャ ラク タ は , どう する か ? 別に どっ ち で も いい 
ん だ けど , キャ ラク タ 画 面 に 表示 する と , 一 気 に 処理 が 楽 


に な り ま す . ちな み に ホ バー アタ ッ ク で は , OREN 
クタ は , 全部 キャ ラク タ 画 面 に 表示 し て いま す . グラ フィ 
ッ ク 画 面 は 何 に 使っ て いる か と いう と, 緑 は 得点 や ゲー ジ 
の 表示 に , 青 と 赤 は 仮想 画面 に . な ど と , 本 来 の 目的 と は 
全然 違 う 使 い 方 を し て お り ま す . G-RAM ДА, ご めん な 
STOLZ, 


スク ロー ル に つい て 


1. 必 殺 の ハー ド ・ ス クロ ー ル 

まず , リス ト 13 を 実行 し て みて くだ さい . 画面 が 横 に ス 
クロ ー ル し ます . これ が ハー ドウ ェ ア に よる スク ロー ル で 
+. CRTC を いじ くっ て いる の で , 興味 あっ た ら , X1 の ハ 
ー ド に 詳し い 本 で も 見 て くだ さい (当然 、 縦 で も な な めで 
も スク ロー ル で きま す ). しかし, あま りお 勧め で きま せ 
А, を なぜ か と いう と , キャ ラク タ 単 位 で し か スク ロー ル で 
き な い の で , PCG を 使う の と 大 差 な いか ら で す . 

お まけ に , 全 画 面 が 動い て し まう の で , 得点 な ど 止 まっ 
て いる 物 を 書き 直さ き な い と いけ ませ ん . CRTC を 再 設定 し 
て 横 64 文 字 に し て , 縦 ス クロ ー ル させ る , な ん て の は 望み 
が あり ます が …( な ぜ だ か わか る か な ?). な お , BASIC の 
SCROLL 命令 で も , ハー ド ・ ス クロ ー ル を 行なっ て いま す 
が (こち ら は , キャ ラク タ 単 位 な を ど と いう ダサ イ こ と は な 
い 代 わり に , スー パー イン ポー ズ し な けれ ば な ら な い ), 5 
まり 詳し いこ と は 知り ませ ん (つま り , イン ポー ズ し て な 
いと き , どー や っ て スク ロー ル さ せる か , と いう こと ). 


6. 根 性 の グラ フィ ッ ク ・ ス クロ ー ル 


РСС を 持っ て いる XIT, グラ フィ ッ ク 画 面 を わざ さわぎ 

スク ロー ル さ せる の は , は っ きり いっ て 労力 の 無駄 で す が 
「 ど うし て も 」 と いう ひね くれ た だ 方 の た め に , 少し 検討 し 
で み ま し ょ う 3。 

まず , 間違っ て も RGB 全 画 面 を スク ロー ル さ せよ うな 
ど と は 思わ な いこ と で す . スク ロー ル さ せる の は 1 画面 で , 
あと は パレ ッ ト で うま く ご ま か す の が , 一 般 的 の よう で す . 
で は 試し に リス ト 14 を 打ち 込ん で くだ さい (リロ ケー タプ 
ル だ か ら ど こ で も いい で す . CLEAR 文 を 忘れ な いよ う 
с). 打ち 終わ っ た ら , BASIC コマ ンド で 円 な ど 書 いた 
fk, САМ, し て み ま し ょ う . 緑 だ け じ わ っ と 横 ス クロ ー ル 
する は ず で す . 

だ けど これ で は ゲー ム に な り ま せん . この プロ グラ ム が 
悪い の だ ろう っ て ? 確か に , も っ と 速い プロ グラ ム も 書け 
る けど , М, 無駄 な 抵抗 に すぎ ませ ん . で は , 思い つく 
打開 策 を いく つか 書き ます と … 
⑯ ド ッ ト 単 位 の スク ロー ル に する と , あら が 目立た な く な 
り ま す . 

@ や は り , 面倒 くさ く て も , 2 画面 切り 換え に する べき で 
D 2. 

@ 画 面 を 区 切っ て , スク ロー ル 範 囲 を せま くす れ ば , 少し 
は 速く な り ま す . 

@ 1 画面 の 1 ライン お き に 背景 を 書い て . そこ だ け ス クロ 
ー ル 処理 する と , 時 間 が 半分 に な る (ベリ コー サ ), 不 必要 
な 書き か え を し な い (PC-8801 版 ホバー アタ ッ ク ), な ど ア 
ル ゴ リ ズム で 迫る の が 理想 的 で す . 

と まあ , いろ いろ 書い て み ま し た が , @ と @ は 最低 条件 
で し ょ う . 結局 何 が 言い た いか と いう と , あき ら め た 方 が 
いい で す よ , と いう こと で す (特に 初心 者 で 根性 の な い 
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方) 


3. 始 息 な キャ ラク タ ・ ス クロ ー ル 


さっ き と 同 様 に し て リス ト 15 を 打ち 込ん で くだ さい . 
САШ すると, 一瞬 の うち に キャ ラク タ 画 面 が スク ロー ル 
する で し ょ う . これ が 偉大 な キャ ラク タ ・ ス クロ ー ル で す . 

これ で も う あ な た に は 怖い も の な ど あ り ま せん .「 キ ャ ラ 
クタ 単位 で は , 動き が 粗い 」 と いう 方 も 安心 し て くだ さい . 
b L, 2 ドット 単 位 で 動か し た いな ら , 図 2 の よう に , РСС 
に 2 ドッ ト ず つ ず らし た 絵 を あら か じ め 用 意 し て お いて , 
順番 に 表示 すれ ば いい の で す . た だ , この 方 法 の 欠点 は , 
多く の PCG を 使っ て で し まう こと で し ょ う 。 よく 考え て ノ パ 
ター ン を 作ら な いと , あっ と いう 間 に PCG が 足ら な く な 
っ て し まい ます (市 販 の ゲー ム で も , СССР» 
つ は ほとん ど あ り ま せん . 私 の 見 た と ころ , 〇 ビ ウ ス も 〇 
ンダ ー フ ォ ー ス も , 背景 は キャ ラク タ 単 位 の スク ロー ル の 
よう で す . も ちろ ん X1 版 の こと で す が …). 


マッ プ ・ デ ー タ に つい て 


スク ロー ル と 非常 に 関係 の ある , 背景 の ゲー タ 処 理 に つ 
いて 考え て み ま し ょ う . 358, 背景 の デー タ は 圧縮 し て メ 
モリ 上 に 置き , 使う と き に 展開 し ます ЈЕНС С ж!) 
に 入り きら な いと き は , 分 割 ロ ー ド と いう 最後 の 手段 も あ 
り ま す が …). ここ で は , 展開 の タイ ミン グ な ど , マッ プ ・ 
デー タ の 処理 に つい て , 少し 書い て お きま す . 


1. 使 い 捨 て の 強制 スク ロー ル 


1 度 通っ た ら 2 度 と 後ろ へ 戻れ な い 強 制 ス クロ ー ル の 場 
f 仮想 画面 は 必要 な いで し ょ う (ここ で いう 仮想 画面 と 
は , 1 つの ステ ー ジ すべ て の 広 さ を も っ た 物 で す . f$, 
表示 され て な い 所 も 全部 。 と いう 意味 で す . よく , 727 
ィ ッ ク 画 面 を 使っ た 他 機 種 の ゲー ム で , 表示 する と き の 画 
面 の ちら つき を 防ぐ た め や , 弾 の 命中 判定 を 容易 に する た 
DU, 表示 画面 と そっ くり 同じ 物 を メモ リ 上 に 作る こと が 
あり ます が , それ は 除い て 考え て くだ さい . も ちろ ん , Ж 
の 意味 で の 仮想 画面 は , 強制 スク ロー ル で も 利用 価値 は あ 
EG. дот), 画面 が スク ロー ル し て , 表示 に すき ま 
が で きた だ たら, その た びに , そこ の 部 分 だ け , デー タ を 展開 
し て や れ ば いい の で す . また , 画面 か ら は み 出 し た デー タ 
は , その まま 捨て る だ け で す (よく わか ら な けれ ば , БІЗ 
を 見 て くだ さい ). 


аз 画面 スネ スクロール 
画 


1 
B 
у 
| 


ロー ル 


m 
S 
スク 

c 

NN 


し 
m 


展開 
圧縮 され た 
地形 デー タ gd 一 


(圧縮 され た 地形 デー タ は 壊さ れる こと な く 保 存 さ れ ま す ) 


k 
て あたら し く 展 開 さ れ た 地形 
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[0] 4 仮想 画面 


① 処 理 は 仮想 画面 に 対し て 行なう 
( 穴 を あけ る な ど ) 


② 表 示す る 


表示 (VRAM) 
仮想 画面 (メモ リ 上 ) 


図 5 デー タ 方 式 


0 510 20 3540 


石 の デー タ 
16、10、16、20、24、10、24、20……… 
ыша — ы u. 
道 の デ ー タ 


-……、20、10、20、40、36、5、36、35 
و لے ورزر a‏ 


c. よ くば りな 自由 スク ロー ル 


自由 意志 に よる スク ロー ル の 場合 1 度 通っ た 所 へ 戻る 
可能 性 が あり ます . その と き , 以前 開け た は ず の 穴 が なく 
な っ て た り , 破壊 し た は ず の 瑞 が 生き か えっ て いた りす る 
と 困り ます の で , 仮想 画面 を 作る の が 便利 で す . スク ロー 
ル す る た びに 穴 な どの 位置 を 記録 し て も いい けど , 仮想 画 
面 を 使え ば , 何 も 考 えな く て よく な り ま す ( 図 4 参照 ). 


デー タタ 圧縮 に つい て 


デー タ 有 圧縮 っ て 何 ? と いう 人 の た め に 少し 書い て お きま 
し ょ う . ゲー ム を 作る に は , EV BIT 02 つ を 知っ て 
BU ОСЕ ди 
9 数 の 少な い 木 , ДУ, その 座標 を デー タ に し ます . 
道 な ど は , 両端 の 座標 が わか れ ば OK で す . これ は , ED 
ら か と いう と , 仮想 画面 方 式 に 向い て いま す が , 要 は 応用 
し だ いで す ( 図 5). 
@ 向 じ デ ー タ が 並ん で いる 場合 は 、 そ の デー タ と 個数 を デ 
ー タ に し ます . デー タ の 順序 が わか っ て いる の な ら , 個数 
だ け わ か れ ば よい で し ょ う ( 図 6, m7). これ は 最近 グラ 
フィ ッ ク ・ エ ディ タ で , 中 間 色 デー タ の 圧縮 な ど に 使わ れ 
て いる よう で す (新開 発 の な ん た ら 方 式 な ど と 書い て あっ 
た けど , 考え 方 自体 は 普 か ら あ る よう で す ). 

ここ で 。 ホバー アタ ッ ク グ の マッ プ *・ デ ー タ に つい て 説明 
し て お きま す . ホバー アタ ッ ク で は , 前 述 し た よう に , 32 
K バイ ト も の G-RAM #, 仮想 画面 に 使用 し て いま す (1/ 
O アド レス : &Н4000-— &НВЕЕЕ). しかし, 背景 は 石 と 空 
ШС, 生 は つ を が っ て 岩 に な っ て る の で , @ の 方 法 で 
極め て 効率 的 に 圧縮 で きま す . 

カセ ッ ト 市 販 バ バー ジョ ン を 持っ て いる 人 は , モニ タ か 
ら &H5100 以 降 を ダン プ し て みて くだ さい (リスト 16). 最 
初 の 2 バイ ト が デー タ の 大 き さ を 表わし ます (&H0207* 
イト ). 決 か ら 1 バイト ずつ , 【 石 の 個数 】ー 1, 〔 空 間 の 個 
0—1, ED) 1, 【 空 間 の 個数 か 一 1, …… と な っ 
て いる の で , ボー ト &H4000 か ら 順 に , その 個数 だ け 石 や 空 
間 を 書き 込め ば . と りあ そ ず 仮想 画面 の で き あ が り で す . 
石 の 形 が 何 種類 か ある の で は ? っ て 人 も いる と 思う けど , 
石 の 形 は 規則 的 に 決ま る の で (上下 左右 の 石 の 有無 を 調べ 
C, 央 が 滑ら か に つなが る よう に すれ ば よい ), 後 で 考え ま 
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す 。 リ スト 17 に , Fag Rm FEDL E им 
ー プ の お さら いで す . わか る か な 7 (外側 の ルー プ は 256 回 
以上 の FOR x, 内 側 は WHILE 文 の 形 で す . KB, IY v 
ジス タ は 使わ な く て も すむ で し ょ う ) 石 の 形 の 変形 ルー チ 
ン は , 面倒 な だ け で 簡単 だ か ら 略 し ます . 

話 が 前 後 す る けど , ここ で 表示 ルー チン も 説明 し て お き 
ます . その た め に は , 仮想 画面 の 構成 を 知ら な けれ ば な り 
ませ ん . ホバー アタ ッ ク の 1 面 は , X 座標 が 0 —0FFH, 
座標 が 40Hー0BFH の 長方形 で す . 使用 G-RAM ($, 
4000H —0BFFFH C3, 

あれ , な ん て 偶然 だ ろう / 座標 を じ レ ジス タ に 入れ , У 
座標 を B レ ジス タ に 入れ れ ば ちょ うど いい や (な ど と 都合 
よく 思い つい た 訳し じゃ な く て , 4%, GRAM EMT, 
を , 也 座 標 の 範囲 を 決め た の で す よ ). これ だ と 座標 計算 が 
いら な い の で , プロ グラ ム が 非常 に 簡単 に を な り ま す . た と 
えば , (23H, 45H) に A レ ジス タ の 内 容 を 書き 込み た けれ 
id; BC レジ スタ に 4523H を 入れ て , OUT (С), А と す 
れ ば いい し , (67H, 89H) の 内 容 を 知り た けれ ば , BC レジ 
スタ に 8967H “Ало, МА, (C) で いい で し ょ / 

また , 各 キ ャ ラク タ の 処理 ルー チン も 楽に な り ま す . hz 
初 に 処理 し た い キ ャ ラク タ の 位置 を B じ レジ スタ に モッ ト 
し て お きま す . と , た と えば 上 に 何 か あ る か 知り た けれ ば , 
DEC B/IN А, (O Tol, 42 и РУАУ ОВЕ TE 
Zrt, ING СООТ (С), DD で お し まい 。 

BC レジ スタ を 座標 専用 に し て お け ば , まち が えて 破壊 
する こと も な いし , いち いち 座標 計算 ルー チン を 呼ば な く 
て すむ の で , 余計 な レジ スタ を 使わ な く て すむ し (ほとん 
どの 場合 レジ スタ は 余っ て た けど ) な ん て 精神 衛生 に 良 
の だ ろう Z СС ОНЕ И о ВЕБ. 私 ほな ん て 覧 
~ 07255, 思っ た けど , C ib ә» D MST СОА k 
う で す . 他 の マシ ン で は BL レジ スタ を 使い 、 メ モリ 上 で 
行なう の で す .) 

Bot, 話 が それ て し まっ た . リス ト 18 が 表示 ルー チン 
で す . УКАМ, 仮想 画面 。 両 方 と も BC と レジ スタ で し か ア 
クセ ス で き な い の で , 裏 レ ジス タ を 使い ます . EXX Ç, А 
レジ スタ だ け は 裏表 入れ 換 わ ら な い の が ミソ で す . 

Bde 個数 を デー タ に する ① 


=> 13、15、13、12、13、11、12、10、 
11、9、10、9、……… 


:5100-07 
:5108=8А 
:5110-7С 
:5118-7С 
:5120=77 
:5128=72 
:5130=70 
:5138=07 


SC, これ か ら , 各 キ ャ ラク タ の 処理 を 説明 する 訳 だ け 
E, 一 般 的 に 話 を 進め る の は むず か し い の で , ホバー アタ 
ッ ク を 例 に し ます . スク ロー ル ・ ゲ ー ム で や っ か いな の は , 
和 反 み グロ ー ル を どう すず する か 、。 Бејтс キャ ラク タタ 
の 処理 ルー チン な ど は 適当 に 作れ ば いい ん だ けど , 何 か 参 
考 に な る か も し れ な い の で 。 読ん で みて くだ さき さい. 


10 
ミサ イル に つい て 


作る と き は , 先 に 主人 公 メ カ (アタ ッ カ ー) の ルー チン 


リス ト 17 
- 
SPRED: LD А,ОЕЕН 石 の キャ ラク タ ・ デ ー タ 
LD IX, (ИМАР) マッ プ デ ー タ の 先頭 アド レス を IX に セッ ト (1 面 目 な ら 5100H) 
TNC TX 
LD BC,4000H VRAM アド レス 
LD ТУ, (ИМАР) 
LD H,(IY*1) HL に デー タ 数 を セッ ト 
LD і, (IY+0) 
SPRED1 : TNC TX 
LD Е, (IX*0) マッ プ デ ー タ 読み 込み 
SPRED2 : DEC E 
JR Z,SPRED3 
OUT (C), À 
INC BC 
JR SPRED2 
SPRED3 : DEC HL 
EX АЕ, АЕ’ 
LD A,H 
OR L 
RET 2 終了 
EX АЕ, АЕ” 
СРЬ 石 (0FFH) と 空白 (0) を 入れ 換え る 
JR SPRED1 


リス ト 18 


あら か じ め , BC レジ スタ に は 表示 範囲 の 左上 の (仮想 画面 上 で の ) 座 標 が セッ ト さ れ て いま す . $ た | メレ ジス タ は , ワー クエ リア “VRAM” を 指し て いま す . 


BC' レジ スタ に は , 3000H(VRAM 開 始 ア ドレ ス ) が セッ ト さ れ て いま す . 
УТЕНА: LD ( VRAM ) , BC BC レジ スタ の 内 容 を ワー ク ・ エ リア に 退避 
LD Е,25 た て ルー プ ・ カ ウン タ 
LOOP1: LD р,40 よこ ルー プ ・ カ ウン タ 
LD С, (TX+0 ) X 座 標 復帰 
LOOP2: IN A, (C) 仮想 画面 読み 込み 
ІМС с X 座 標 増加 
ЕХХ 
OUT (С),А 表示 
TNC BC 
ЕХХ 
DEC D 
JR NZ , LOOP2 
TNC B Y 座 標 増加 
DEC Е 
JR NZ, LOOP1 
RET 
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リス ト 19 


SMOVS: LD с, (TX+0 ) 
LD В, (TX+1 ) 
ІМ A, (C) @ 
СР 10H © 
JR C,SMOVS00 
CP 30H 
JR C,SMOVSO1 
CALL NC,ATACK 

8МОУ800:10 рА--------б 
LD А, (IX*$2)—— —.Àəee 
BIT 2,А 
JR Z, SMOVSA2 
LD A,11H 
JR SMOVSA1 

SMOVSA2:CP 10H 
JR C,SMOVSA3 
NEG 
ADD A,14H 

SMOVSA3 : ADD A, 20H 

SMOVSA1 : OUT (C) ,A o 
PUSH AF @ 
LD IY,ERAC 
LD DE,4 
LD Н,МЕВАС-1 
LD А,0 
CALL SERCH 
POP AF 
LD (тү+0),с ——ə— 0 
LD (IY+1),B 
LD (IY+2),A 
LD (ІҮ%3),08Н 


SMOVS01 : DEC (I1X*3)————0 
CALL Z,ATACKO 


を 作る の で す が , 複雑 な の で , ミサ イル を 先 に 説明 し ます . 
リス ト 19 を 見 て くだ さい (うわ っ 長い /). あま り 良 い プ ロ 
グラ ム じ ゃ な いけ ど , BASIC し か 使っ た こと の な い 人 は , 
「 ア セン プリ 言語 は 根性 だ /」 と いう の が , 痛感 で きる で 
PE Эч 

この ルー チン は , IX レジ スタ に ミサ イル の ワー クエ エリ 
ア を , 上 レジ スタ に 敵 味方 フラ グ を セッ ト し て , САШ, & 
れ ま す . ワー ク ・ エ リア は 図 8 の よう に な っ て ます 。 少し 
補足 する と , 
@ 敵 ミサ イル と 味方 ミサ イル は 別 の 所 に ワー ク ・ エ リア が 
あり , ワー ク ・ エ リア の 位置 に より 敵 味 方 の 区 別 が され る 
7:5, ワー ク ・ エ リア 中 に 敵 味 方 識別 用 の 情報 は あり ませ 
ん (だ か らし 上 レジ スタ に フラ グ を セッ ト し て 情報 を 与え て 
や り ま す ). 当然 , 同一 シー チン で , 敵 味 方 両方 の ミサ イル 
の 処理 を 行ない ます . 
@ 死亡 フラ グ (ワー ク ・ エ リア 使用 / 未 使用 フラ グ ) も 特別 
な 領域 を 設け ず に , Y 座標 に あり 得 な い 数 字 ( こ こ で は 0 ) 
を セッ ト す る こと に より 処理 し ます . この こと や , ワー ク ・ 
エリ ア の 先頭 は 座標 に 使う . な ど は , すべ て の キャ ラク タ 
の ワー ク ・ エ リア で 統一 され て いま す . 統一 し て お く と 便 
利 を こと が 多い の で す 
@ IX メレ ジス タ を ワー ク ・ エ リア へ の ポイ ンタ に 使う , と い 
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LD A,(IX£2)—— —— ———— (b 

СР 14Н 

ТЕ NZ, SMOVB1 

DEC B 

JR SMOVB4 
SMOVB1 : СР 4 

JR NZ,SMOVB2 

TNC B 

JR SMOVB4 
SMOVB2 : СР 10H 

JR С,5МОУВЗ 

INC c 

INC с 
SMOVB3:DEC C 

AND OFH 

SUB 2 

ADD A,B 

LD B,A 
SMOVB4 : IN A, (C) — © 

CP 10H 

JR C,SMOVSXX 

СР 30H 

JR C, SMOVS2 


CALL NC,ATACK 


SMOVSXX:LD A,(IX*2)— ————— e 
ADD A, 48H 
DEC L 
JR NZ , SMOVS1 
ADD A,40H 
SMOVS1:0UT (€),A — © 


SMOVS2:LD (TX+0 ) ,Cーーーーーーーー € 
LD (TX+1 ) ,B 


RET 


うこ と や , BC レジ スタ を 座標 に 使う , と いう こと も , Е 
ん どの ルー チン で 統一 され て いま す . 
⑩ BC レジ スタ に , 座標 を セッ ト し ます . 
@ 前 述 し た よう に , これ で ミサ イル 位置 の 内 容 を 取り 出す 
こと が で きま す 。 
@ デ ゲー ム で は , 弾 が 敵 に 当たる と 必ず 爆発 する こと に な っ 
て ます (私 は , 弾 が すり ぬけ た り 不 発 だ どっ た り し て も いい 
じゃ な い ? な ん て 思う の で す が …). 普通 は , 何 か キ ャ ラク 
タタ が 動く と き に は 行き 先 の 座標 の 内 容 を 調べ て , 弾 が あれ 
ば 爆発 処理 を 行ない ます が , これ だ と すべ て の キャ ラク タ 
の 移動 ルー チン で 命中 判定 を 行なわ な けれ ば な り ま せん 
(それ で も いい ん で すけ ど ネ ). 

ホバー アタ ッ ク で は その よう な こと は し ませ ん . まず , 
ミサ イル 以外 の キャ ラク タ が 動く 場合 は , ミサ イル が あっ 
て も 空白 と 同じ よう に 処理 し て (つま り 無 祝 し ます ), その 
まま キャ ラク タ を 新しい 位置 に 書き 込み ます . ミサ イル が 
移動 する と き は , まず , ミサ イル の 現在 位置 に 何 が 書か れ 
て いる か 調べ ます . ミサ イル が 書か れん て いれ ば いい けど , 
他 の キャ ラク タ だ っ た ら 爆 発 処 理 を 行ない ます . 

また だ た, ミサ イル の 軌跡 や 爆発 マー ク が 書か れ て いた ら 。 
消さ きず に 移動 し な けれ ば な り ま せん (移動 は 普通 , 消し て 
書く と いう 作業 で 行なう こと は , 前 述 し た と お り で す ). € 


図 8 ワー ク ・ エ リア 


X 座 標 (0 一 0FFH) 

Y 座 標 (40H— 0 BFH)、 未 使用 時 は 0 
方 向 フ ラグ 
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LC, 移動 先 で も 同様 の 処理 を すれ ば , 完全 な ルー チン に 
な り ま す . リス ト 19 の と @ の 問 で や っ て いる の は , ミサ 
イル の 現在 位置 の チェ ッ ク で す . 10 有 HH 未満 は 空白 の キャ ラ 
クタ な の で , その まま 続け て 処理 し ます .10Hー 2 ЕН は 軌 
跡 や 爆発 マー ク な の で , 消す 処理 を せ ず に 次 の 処理 に 移り 
ます 、。 

それ 以外 (ミサ イル が 書か れ て いる と きも ) は, ATACK 
と に いう サブ プルー チン を САШ し ます . これ は , すべ て の 衝 
突 の 処理 を 行なう ルー チン で す . 具体 的 に は , 敵 ど うし の 
衝突 で は 爆発 処理 を 行ない , 味方 どう し の 衝突 で は 何 も せ 
ず に 戻っ て きま す . 
ik) Xii, 以上 の 考え 方 は プロ グラ ミン グ 初 期 の 考え 方 
TLT, 実際 は 異な っ て いま す . すなわち … ほ と ん どの キ 
ャ ラク タ の 移動 ルー チン で は ミサ イル の ある 場所 へ は 動け 
な いよ うに な っ て ます (ミサ イル は 石 と みな し て 処理 し ま 
3). し た が っ て , ⑧@ の 処理 は 不要 だ と 思い ます が , 安全 を 
期し て つけ て あり ます . 
入力 キャ ラク タ を D レジスタ に 退避 させ て お きま す . 
ミサ イル の 軌跡 の マー ク を 計算 し ます . ここ は テー ブル 
を 使え を ば すっ きり する で し ょ う . 面倒 を だけ な の で , 詳し 
い 説 明 は 略し ます . 
の 軌跡 を 表示 し ます . 
@ ミ サイ ル の 軌跡 は , 一 定時 間 後 に 消さ なけ れ ば な り ま せ 
ん . その 処理 を 行なう ルー チン が 別に ある の で す が , その 
た め の ワ ー ク ・ エ リア を セッ ト し な けれ ば な り ま せん . こ 
こ で は , 空き ワー ク ・ エ リア を 探す 処理 を し て いま す ( 深 
く 考 え ず , そ ー ゆ ゅ ゆー も の だ と 思っ て くだ さい ). 
ワー ク ・ エ リア を セッ ト し ます ( そ ー ゆ ー も の だ と 思っ 
て くだ さい ). 
@ 飛 行 距離 を チェ ッ ク し ます . も し これ 以上 飛べ な い の な 
ら , ミサ イル の ワー ク ・ エ リア を クリ ア し て , 爆発 マー ク 
を 書き ます , ATACK 0 と いう の は , その 処理 を 行ない ます . 
人 で 方 向 フラ グ に 従っ て , 移動 後 の 座標 を 計算 し ます . テー 
プ ブル を 使え ば スッ キリ する の で す が …. 
@ 移 動 後 の 座標 の 内 容 を 調べ て , 「 現 在 位置 の チェ ッ ク 」 と 
同じ よう な 処理 を し ます . 
ミサ イル の マー ク を 計算 し ます . 
⑯ 表 示し ます . 
ワー ク ・ エ リア に , 新しい 座標 を モット し ます . 

以上 で す . ホバー アタ ッ ク の ミサ イル は 軌跡 を 残し な が 
ら 飛 び , ある 距離 飛ぶ と 自爆 する の で , 処理 は 比較 的 複雑 
+. 普通 は も っ と 簡単 で し ょ う (これ を 作っ た と き は , 
構造 化 が どー の こ ー の 考え な か っ た の で , いま いち 説明 し 
づら い プ ログ ラム に な っ て し まい まし か た)。 


アタ ッ カ ー に つい て 


アタ ッ カ ー は 放物線 ぽい 動き を し ます . ここ で は 一 般 に , 


LO 


リス ト 20 


CLS4:WIDTH 40 
FOR I=1 TO 30 
LOCATE I,10 


PRINT" #"; 
FOR J=0 TO ІМТ(5000/(1%15)) 
NEXT 

NEXT 


リス ト 21 


10 CLS4:WIDTH 40:X=0 
20 FOR І-0 TO 8 

30 LOCATE X,10 

40 PRINT " "; 

50 X=X+I 


60 LOCATE X,10 

70 PRINT"t"; 

80 FOR 7-0 TO 200 
90 NEXT 

100 NEXT 


9 移動 の 軌跡 


速 さ を 変え る に は どう する か , に つい て 少し 書い て お きま 
ЊЕ. 


1. 時 間 を 変え る 


移動 と いう の が 「 消 し て 書く 」 の 繰り 返し だ と いう の は 
し つこ く 言 いま し た が , 表示 間隔 は 一 定 で , 表示 期間 を 変 
249, と いう の が この 方 法 で す . た めし に , リス ト 20 を 
走ら ちせ て みて くだ きい. 加速 し を が ら ア スタ リス ク が 右 に 
移動 し ます . 

この 方 法 は きめ 細か い 速 度 調整 が で きる の で す が , 多く 
の キャ ラク タ が それ ぞ れ の 速 さ で 動く と な る と 処理 が 大 変 
に な り ま す . 速 さ の 変わ る キャ ラク タ が 1 つの 場合 は 比較 
的 簡単 な の で , 割 と 使わ れ て いる よう で す . 


p. 距離 を 変え る 

表示 期間 は 一 定 で 表示 間隔 を 変え て も , 速 さ を 変え る こ 
と が で きま す . リス ト 21 を 実行 し て みて くだ さい . この 方 
法 で は 徴 妙 な 速度 調整 は で きま せん が (表示 間隔 を 広げ す 
ぎる と , 移動 に 見 そえ なくなる), 多く の キャ ラク タ が 好き 勝 
手 に 動い て も , 処理 が 割 と 楽に で きま す . 

滑ら か な 移動 に 見 せる た め に は , キャ ラク タ の 大 きき さ , 
表示 間隔 , 表示 期間 な ど を よく 考え な けれ ば な り ま せん . 
実際 の キャ ラク タ を 使っ て , BASIC で テス ト ・ プ ログ ラム 
を 組ん で みる の が いい で し ょ う (リス ト 20。 21 は , よく な 
い 例 で す . ホバー アタ ッ ク も , 滑ら か さ で は 今一つ で す , 
と 本 人 は 思っ て ます ). 

ホバー アタ ッ ク で は この 方 法 を 使っ て いま す . アタ ッ カ 
ー の 移動 の 軌跡 は 図 9 の よう に な り ま す . この 程度 の 物 で 
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も けっ こう それ らし く 見 そる も の で す . 

アタ ッ カ ー の 移動 ルー チン は , 大 ま か に 説明 する と 決 の 
よう に な り ま す (どー せ , みん な が 作ろ うと する スク ロー 
ル ・ ゲ ー ム と いそ ば, 〇 ビ ウ ス な を など だ ろ 一 か ら , БА ә 
の ルー チン は 簡単 で し ょ う . むし ろ 面 側 な の は ИХ У С 
яр); 
e 消す. 


@ 現在 の 状態 と ジョ イス ティ ッ ク か ら , 次 の 状態 を 求め る . 


EK. それ ら か ら 速 度 を 求め る . 状態 と いう の は , RAT 
いる の か , 地上 上 に 立っ て いる の か , 座っ て いる の か , Ev 
JEE ЕЗ, 


e 新しい 位置 を 計算 する . 動け な けれ ば , 動け る 所 を 探す . 


ө 大 示 キ ャ ラク タ を 求め る ( 足 や 砲 が どちら を 向い て いる 
の か 。 と いう こと )。 
ө 大 示す る . 

実際 の ルー チン は , ミサ イル ・ ル ー チ ン が 複雑 に な っ た 
よう な を 物 と 思っ て くだ さい (極め て 複雑 な の で , 説明 する 
ха» |) ВА). ワー ク ・ エ リア を 説明 すれ ば , どん な 
プロ グラ ム か 見 当 が つく と 思い ぃ ます. アタ ッ カ ー の ワー 
ク ・ エ リア は ( 敵 ロ ボッ ト も ほぼ 同じ ), 16 バ イト か ら 成 
り , ミ サイ ル の ワー ク ・ エ リア 同様 IK レジ スタ を ポイ ンタ 
と し て アク セス され ます 。 以下 , 士 1 な どの 数 字 は , ワー 
ク ・ エ リア 先頭 か ら の オフ セッ ト を 表わし ます . 
+U : : ア タッ カー の 座標 (アデ アタッカー は 2X2 の キャ ラ 
クタ で す が , 左上 上 の キャ ラク タ の 位置 を 座標 と し ます )、. 
+1 : アタッカー の Y 座標 。 0 な ら 死 亡 と いう の も ミサ 
イル と 同様 . 
+2 : 速 度 そ 成分 . 一 2 一 2 の 値 を と る . EEDA, 
負 な ら 左 に , 1 キャラクタ 移 動 す る (座標 を 上 エ 1 す る と い 
5 5B 3) 
+3 速度 成分 一 8 一 8 の 値 を と る . 1-37СҠІ1 
キャ ギラ グ クタ,。4ー8 で 下 に 2 キャ ラク ダグ ダ 。 一 上 ユーー3 で 上 に 
1 キャラクタ,。ー4 一 一 8 で 上 に 2 キャ ラク タ , 移動 する 
(9 を よっ 〈 く 見 て くだ さい . な ぜ 図 9 の よう に な る の か 
わか り ま すか ?). 

+ 4 : 状態 フラ グ ( 私 が 勝手 に つけ た 名 で す . 以下 も 同様 ) 

0, 1 で 通常 状態 , 2 以上 で し ゃ が む , た だ し 80H は キャ 
リア と 合体 中 , 高い 所 か ら 飛 び 降 り た と き に , 速度 に 応じ 

て セッ ト さ れる (速度 成分 が 5 以上 の と き , 2 を 加え た だ た 

値 が セ モット さ れ ま す ). その 後 , 1 ずつ 減じ し て 行き , 1 に な 

る まで 立ち あがれ な い (た と えば , 速度 8 で 地面 に ぶつ か 

る と , 10 が セッ ト さ れ ま す . その 後 , アタ ッ カ ー の 処理 ル 

ー チ ン を 通る ご と に , 9, 8, 7, 6, と 減っ て 行き , 1 

に な れ ば 立ち 上 が る 訳 で す ). 

T5: ミサ イル の 残 剤 数 . 

+6: 人 力 デー タ (入力 ルー チン が 別に あっ て , そこ で セ 

ッ ト さ れる ). 

+7: 姿 フ ラグ . 直前 の 左上 隅 の キャ ラク タ ・ デ ー タ が 入 

っ て いる の で , これ に より 機種 の 区 別 を 行ない 表示 する . 
また , ミサ イル を 打 た な いと き の 砲 の 向き を , この フラ 

グ を 使っ て 固定 させ る ( 下 に 打っ た あと , 砲 が 下 を 向き 続 

ける の は , これ の お か げ で す ). 

+8 : ホバー の エネ ルギー. 

+ 9 : 耐 被弾 度 . 

+10: —+15 : 7 X. 

た だ し , 負 の デー タ は 当然 2 の 補 数 を 使い ます ( 補 数 な 
ん て 知ら な いと いう 人 は , I/O の バッ ク ナ ン バ で も 見 て く 
だ さい 。 ぬ わ に ぃ /1I/O を 買っ て を な い だ と お ぉ …… k 

移動 ルー チン 自体 は そん な に むず か し く あ り ま せん . 
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テク ニッ ク な ど 知 ら な く て も , 根性 さそ あれ ば 大 区 大 で す . 
問題 は , どう 動か す の か , と いう こと で す . 障害 物 と ぶつ 
か っ た ら ど うす る の か ? 敵 と ぶつ か っ た ら ど うす る の か ? 
味方 の 弾 に 当たっ た ら ど うす る の か 2? 爆発 する の か ? 止ま 
る の か ? す り ぬ ける の か ? …… あら ゆる 場面 を 考え て お か 
な けれ ば , 頭 の 中 が 爆発 し ます (Ж, 爆発 し まし た . アタ 
ッ カ ー と 用 が ぶつ か る 処理 を 考え て いた と き で す ). 

忘れ る と ころ で し た が , ミサ イル の 発射 の 説明 も し て お 
きま す . 簡単 で す 、 ミサ イル の 空き ワー ク ・ エ リア を 探し 
<, 必要 な デー タ を 書き 込む だ け で す Oki, アタ ッ カ 
ー の 座標 か ら 求 め ま す ). li, ミサ イル の 移動 ルー チン が 
や っ て ぐれ ます , 


敵 メ カ に つい て 


ゲー ム を 作る と き , 一 番 悩 む の が 敵 の 思考 ルー チン で し 
ょ う . ここ で は , 私 の 思い つい た 方 法 を 少し 紹介 し て お き 
ます 。 

(1) す べ て の 動き を 上 乱数 で 決め る , と いう 方 法 が まず 才 え 
られ ます . た だ , 毎回 乱数 で 方 向 を 変え た た の で は , 行っ た 
り 来 た り を 繰り 返し て 、 まとも な 動き を し て くれ ませ ん . 
だ か ら 数 回 ご と に 乱数 を 使い 、 それ 以外 の と き は 同じ 動き 
を 繰り 返せ ば いい の で す . その 数 回 と いう の は , 最初 か ら 
向 定 し て お いて も いい し , 乱数 で 決め て も よい で し ょ う . 
リス ト 22 を 使っ て ,. どん な 動き に な る か 確か め て くだ さい . 

さて , マシ ン 語 で 乱数 を 求め る に は どう すれ ば いい で し 
ょ う . 私 は いつ も , リフ レッ シュ ・ カ ウン タ を 利用 し て い 
ます (LD A, R Ç, アキ ュ ム レー タ に 乱数 も どき が セッ ト 
され る ). 思考 ルー チン で 使う 場合 は , 周期 性 が 表面 に 出る 
こと は めった に あり ませ ん . 

出 て し まっ た と き は , МОР を 数 個 、 プ ログ ラム に 入れ る 
だ け で OK, 注意 点 と し て は , 必要 ビッ ト だ け 使 う 、 と いう 
こと で す . iL, 10 分 の 7 の 確率 が ほし い 場 合 。 4 分 の 3 
で も 似 た よう な も の だ か ら (思考 ルー チン の 確率 なんて, 
ど 一 せ 適 当 を ん だ か らち ), 適当 に 2 ビッ トマ スク し て 
(AND 3 と か , AND 48H と か …) 0 に な ら な い 人 確率 が 
4 分 の 3 で す . … と すれ ば いい の で す . 

特に , 続け て 2 種類 の 乱数 が 必要 な と き な ど は , Ed, 
0 一 3 ビット を 使い , 次 に 4 一 6 ビッ ト を 使う , な どの 配 
慮 が 必要 で し ょ う ( 各 ビ ッ ト が 2 分 の 1 の 確率 で , 独立 し 
с, 0 か ら 1 に な る と 思え ば いい の で す ). 

(2) す べ て の 動き を あら か じ め 記 憶 き させ て お く の も , よく 
使わ れる 方 法 で す . 特に , 敵 メ カ が 自由 に 動き ほ きま われ る 場 
Alk, 宙返り させ た り 編 隊 を 組ん だ り と , ハデ な こと が で 
きま す . 障害 物 が ある 場合 は , 自分 で それ に ぶつ か っ て 自 
B3 2, な ど が 生じ な いよ うに , 工夫 が 必要 で す . 

記憶 きせ る と いう の は , 必要 な 情報 (向き , 弾 を 打つ か 
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10 WIDTH 80:ІМІТ 
20 INPUT "クリ カエ シ カイ スウ (0- ラ ンタ * ム )",A 
30 Х-40 

40 IF В<1 ТНЕМ B=A:C=SGN(RND-.5) 
50 IF В<1 ТНЕМ B=RND*5+5 

60 ГОСАТЕ Х,10 

70 PRINT" * "; 

80 PAUSE 1 

90 B=B-1 

100 X=X+C 

110 IF Х<3 OR X>77 THEN С--С 

120 GOTO 40 


リス ト 23 


Е000:41 42 43 05 10 ЕО 44 45 00 


Е010:46 47 48 00 


どう か な ど ) を 記号 化し て , ОН, HHI, な ど 適 当 で 
いい で す ) 順番 に 半 べ て お け ば いい の で す . dk vous 
を 行なう ご と に , 1 つ ず つと り 出 し て , その 通り に 動か せ 
ば いい の だ か ら 簡 単 で す . 

(3) ち ゃ ん と 考え る ルー チン を 作る の も , も ちろ ん 1 つの 
方 法 で す . 思考 パタ ー ン も , 主役 メカ を 追い か ける , 回 り 
£2, 進路 を ふさ ぐ , と りか こむ , な ど , 星 の 数 ほど 考 
АРИЗ. むず か し い の は , どの 程度 手 か げん する を か, 
と いう こと で す . 完 右 の ルー チン を 作っ た ら 敵 が 勝つ に 決 
まっ て ます し 。 か と いっ て , すぐ に パタ ー ン が 読め た の で 


LO 


な る 。 な ん て こと が な いよ うに 注意 し な けれ ば な り ま せん 

GEI, それ を 利用 し て , パズル 的 お も し ろ さ を 狙う こと 
も で きま す ). 

3 つ ほ と 例 を 書い た けど, これ ら を 組み 合わ せる と さま 
ざま な バリ エー ショ ン が 考え られ ます . じっくり 考え て お 
も し ろ い ゲー ム に し まし ょ う . 

ここ で , 例 に よっ て , ホバー アタ ッ ク の 敵 メ カ , Guardian 
の ルー チン に つい て , 少し 説明 し て お きま す . まず 最初 に 
アデ ア タッカー の 位置 を オナ チェ ッ ク し ます . 敵 ロ ボッ ト に は それ 
ぞ れ な わ ば り が あっ て , アタ ッ カ ー が その な わ ば り を 人 荒 
らし た と き に の み , 攻撃 を し か け ま す (こう し な いと , 敵 
ロボ ッ ト が 集まっ て し まい , 1 度 に 殺到 し て 来る の で す . 
ホバー アタ ッ ク で は , 画面 の 外 の 敵 の 動作 も ,. せっ せ と 処 
理 し て いる の で す /). 攻撃 し な いと き は , な わ ば り に 戻っ 
て 待機 し ます . アタ ッ カ ー が な わ ば り に 入っ て 来 た ら 。 ア 
タッ カー と の 位置 関係 を 調べ ます . 図 10 を 見 て くだ さい . 


は 必勝 潜 が すぐ に ば れ て し まい ます . 自分 ожо k) は エリ ア I に いる と き は , ラン ダム に 
また , 障害 物 が ある 場合 。 それ に ひっ か か っ て 動け な く 移動 し ます . 自分 が エリ ア II に いる と き は , 後退 し ます . 
M10 アタ ッ カ ー の 動き リス ト 24 
РЕЗОВ: А, (HL) 
0 .; return 
エリ ア 1 ュ FEY PI RET 2 
DEC A ;beep 
е Z,PRBEP 
=== アデ アタッカー 
DEC A ¿wait 
„== Z,PRWAT 
DEC A ;locate 
Z,PRLOC 
5411 ミサ イル の 動き 
DEC A ;PCG exchange 
Z,PRPCG 
DEC A ;recursive call 
Z,PRADD 
ADD A,5 ;normal print 
CALL PRA 
PRSUB1 : INC HL 
CALL KSTART ;key interrupt check 
PRSUB 
G128456789nBCDEF 
a РЕР “= В || PRwAT è 
1 ofa 1 : 
2 2 PRLOC: А 
3 d ч 
4 4 
= = || PRPCG: . 
Б т 2 Í 6 ・ 
5 Ж ab ја {а да. 5 PRADD: INC HL 
а 5 » а E, (HL) 
E. ^w ` | INC HL 
а за + ЕН D, (HL) 
с $= +; と 
Ф 2 PUSH HL 
=. DE,HL 
E = ђе CALL PRSUB 
F E J POP HL 
81 345 89ABCÞE PRSUB1 
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LO 


Жан, エリ ア を 2 つ に 分 ける の か と いう の は , ミサ イル 
を 打てる 方 向 を 吉 を る と 理解 で きる で し ょ う 。 ミサ イル を 
打つ の は どう する か と いう と 。 や っ ぱり 最初 に 位置 関係 を 
調べ ます . 図 11 を 見 て で ください. アタッカー が ① に いる と 
き は aa へ,、② に いる と き は a か b へ , に いる と き は b か 
c^, (に いる と き は c へ , ミサ イル を 発 敵 し ます (も ちろ 
А, 打ち 続け る 訳 じ し ゃ な い の で , ミサ イル を 打つ か どう か 
も 乱数 で 決め ます ). 

以上 が 思 才 ルー チン で す が , 実際 の 移動 は どう する の で 
し ょ うか ? 以 前 。 ア タッ カー の ワー ク ・ エ リア を 説明 し ま 
し た が , 十 5 の 所 を 見 て くだ さい . ア タッ カー の 入力 デー タ 
[ЖА 力 セ ー チ ジ で も モ 必 よき れ ま す が 。 ここ ご を コジ ンピュータ 
СТАНЕ, を る で し ょ う ? 

Ao, デモ が で きる っ て ? い えい る, б плк 
ルー チン が で きる の で す . PCG の 設定 順 庁 と , 十 7 の 姿 フ 
ラグ を うま い ぐ あ い に 使 うと 。 な ぜ か その まま で , アタ ッ 
カー と 敵 メ カ の 処理 が で き て し まう の で し た . 

だ か ら , 敵 ロ ボッ ト を 動か す と き は , 思考 ルー チン で 移 
動 方 向 を 決め た ら , ジ ョ イス ティ ッ ク の デー タ に 上 直し て , 十 
6 に モット し て お きま す . その 後 で , IX レジ スタ を モット 
し て 移動 ルー チン を 呼べ ば , 敵 ロ ボッ ト が 動く 訳 で す . 

ミサ イル や ロボ ッ ト の 処理 ルー チン を , TBN 
し よう と いう の は , 作成 当初 か ら の 基本 方 針 で し た (た だ 
L, 敵 メ カ の ホバー エネ ルギー の チェ ッ ク は 行ない ませ ん . 
また だ た, エリ ア II の 後 遂 と いう の は , 後ろ ジャ ンプ と 自由 沙 
КЕНТ о %. 後ろ に 歩か せる だ け で は , ちょ っ 
ども し だ 地面 の で こ ぼ ぽこ に ひっ か か っ て し まり いり ます の で 


以上 で ホバー アタ ッ ク の 説明 は 終わ り で す . 敵 メ カ は 他 
に も あり ます が , ホバー アタ ッ ク の 説明 が 日 的 で は な い の 
で 省略 し ます (日 的 は 。 ゲー ム 作 成 法 の 解説 で す ). 最後 
с, ゲー ム と は あま り 関 係 せ な いけ ど , デモ ・ ル ー チ ン の 1 
部 を 紹介 し て お きま す . 

ホバー アタ ッ ク の デモ の 後半 に , 操作 方 法 の 説明 が あり 
ます 。 ア タッ カー が ,。 ピッ ピッ と 計 い な が ら 。 ミサ イル を 
HoT, oT EZ bs BASIC で いう と ころ の 
LOCATE な ん たら, PRINT か ん たら … を 繰り 返せ ば いい 
ん だ けど , BED Е, いち いち プロ グラ ム に する の は 大 
変 で す ( マ シン 語 で や る と , СМА, LD な を なんたら , CALL 
か ん た ら の 繰り 返し に な り ま す ). 

こう いう 場合 は 。 プロ グラ ム を デー タ 化 する こと を 考え 
ます (コン トロ ー ル ・ コ ー ド や 。 エス ケー プ ・ シ ー ケ ンス 
な ど を 思い 浮か べ て くだ さい ). ホ バー アタ ッ ク の 表示 ルー 


ог их 

X12 HuBASIC(IIIBASIC) Со— F, セー ブ す る と き 
ファ イル 名 に :( モ ミコ ロン ) を つけ た 後に パス ワー ド を 入 
сосу. T LTs ペラ アー ド を つけ を た セー 
され た プロ グラ ム は , ファ イル 名 に その パス ワー ド を つけ 

な いと ロー ド で きま せん . 

も し パス ワー ド を 省略 . ある い は 間違え た りす る と "No 
password” と エラ ー が 出 ま す . 

ЖЫ, ロー ド , セー プ 時 の “Found"。 “Writing" の 後に は フ 
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HuBASI ご の パス ワー ド 


チン は , モニ タ の 長 ル ー チ ン に 多少 隆 を 加え た だ け で す 
ж, ずい ぶん と 便利 に な っ て いま す . 
ルー チン 自体 は 、 HL し レジ スタ に デー タ の 先 遇 アド レス 

を セッ ト し て CALL す る と デー タ を 表示 する , と いう よく 

ある パタ ー ン で す が , デー タ 中 に 0 一 5 が ある と 、 特殊 な 

処理 を 行ない ます . 

Ü : デー タ ・ エ ンド を 表わし ます . 

1 : ピッ と いう 上 主 を 出し ます . 

2 : ちょ っ と 止ま り ま す (BASIC の PAUSE C3). 

3 : 決 に 続く 2 つの デー タ を 座標 と みな し , 設定 し ます (た 
と えば デー タ が 3,。 4, 5, だ っ た ら , LOCATE 4, 
ИЗ ceo E33). 

4 : 普通 の 文字 と PCG の 切り 換え を 行ない ます . 

5: ا‎ Cd ož ToU DUDE Z 7 — 
プ ・ シ ー ケ ンス に も あり ます が , これ は ちょ っ と な い 
ОБЕ). EAE. デー きき サー チチ тд 
#3. た と えば , UZ BADE 3 W p tay fe Dy, 
ABCFGHDE と RLT. そこ の 処理 の 所 だ け , 9 
スト 24 に 示し ます 。 これ が ある と , 同じ デー タ を 何 度 
も 書く , な ん て こと を し な く て すみ ます . 

この 手 の ル ー チ ン が ある と , ホバー アタ ッ ク の デモ 後半 み 

た い に , 相当 複雑 な 処理 も ,「CALL PRSUB」 一 発 で す . 

変更 の 場合 は デー タ を 直す だ け だ か ら , プロ グラ ム を 直す 

の に 比べ 簡単 だ し ソース ・ リ スト は すっ きり と し て , Жі 
神 衛生 に 大 変 よ いで し ょ う . 


さて , ゲー ム 作 り に 必要 な こと は 一 通り 説明 し た つも り 
で す . と いっ て も , これ さえ 読め ば ゲー ム が 作れ る よう に 
な る , を ん て 思い ませ ん .。 ゲー ム に 限ら ず , プロ グラ ム が 
組め る よう に な る だ ため に は , 実際 に プロ グラ ム を 組ん で み 
る の が 一 番 で す (あたり 前 で す が ). マシ ン 語 は 初め て で , 
何 を 作れ ば いい か わか ら な い , と いう 人 に は , KEON M 
「 ス ペー スイ ン ペ ベー ダー」 を も を 。 お 勧め し ます (私 が マシ シ 
語 で 最初 に 作っ た プロ グラ ム が イン ベー ダー で し た 。 も っ 
kb, ブロ ッ ク や UFO を 作る 前 に 挫折 し まし た が ). 

私 の 文章 が へ た な せい で 。 意味 が よく わか ら な か っ た と 
いう 人 。 ご めん な さい (特に , MM ç 
2 つの 意味 一 一 「 個 々 の 登場 メカ 」,「 文学 」 
ЦЕ РОС, 気 を 付け て くだ さい ). ホバー アタ ッ ク を 知 

Zl T, 意味 が ど がき さっ ぱり わか ら な か っ た と いう Л, すみ 
ませ ん で し た 。 ど うか,。 みな さん の お 役に立て ます よう に . 
K3 参 考 文献 
ру Е: 


* ホ バー アタ ッ ク ? О, 848 月 9 


ァイル 名 の み が 表 示さ れ , パス ワー ド は 表示 され ませ ん . 
例 
SAVE “GAME; NO1” 
で セー プ ブ き され だ た プロ グラ ム を ロー ド す る に は , 
LOAD “САМЕ ; NO1” 
と し な いと ロー ド で き な v 


AXI Y V-Z EAMA 


IYESI TSEN. 振れ ば 望み の 品 が 出る . 
Заваров 


アプ リグ ーション 


СР/МИ--%-----------------.--.-- 4» 100 
エディ タダ ssa ゲッ ピ 102 
DDED ------------------------.---..- Яш 108 
FDAS EE Ян 122 
ЕЏЕЗРАЕСРКРИ АЛ Ж ---------------------- жан 146 
た リコ ン ム 人 ロー ラー ーーーーーーーー ADET 148 
MB-GAME DOS Ж-------- BUS 157 
SAMME Ww ват» 166 


r - tX ip." FV Su テレ スタ ー 177 


X1 マ ニア ・ タ イプ (!?) に は モニ タ ROM が あり ませ ん . 
だ か ら , マシ ン 語 プロ グラ ム を 作る と き , た いて い BASIC 
の モニ タ 上 で 動く よう に 作る の で す が , アセ ンプ ラ は CP/ 
M の MACRO80 を 使い た いも の で す . C, や っ か いな の は , 
どう や っ て CP/M フ ァイル を BASIC に 転送 する か と いう ニ こ 
ETT: 

X1 の CP/M に は , CMT と いう 恐ろし い コ マン ド が あっ 
て , それ を 使え ば テー プ 経 由 で 転送 で きま す が , いち いち 
テー プ じ ゃ 面倒 くさ い の で , CP/M デ ィ ス ク か ら 直 接 
BASIC の フリ ー エ リア に ファ イル を 転送 する プロ グラ ム 
を 作る ご こと に し まし た 。. 


使い 方 


まず , RUN さ せる と , い CLEAR ADDRESS : ” と 表示 が 
HET. マシ ン 語 を 使う А, CLEAR 文 で 領域 を 確保 し な 
けれ ば な ら な い の で す が , 忘れ を いよ うに , プロ グラ ム 中 
で CLEAR 実行 し て いる の で , 16 進 数 で 入力 し て くだ さい . 
する と , メニ ュー が 表示 され , 1] を 押す と ディ レク トリ を 
表示 し ます . [3] を 押す と CLEAR 文 の 再 定義 が で きま す . 
[2] を 押す と ロー ド す る の で す が , ちょ っ と や や こし い の で 
注意 し て くだ さい . まず , “CLEAR STATEMENT OK?" 
と 出る の で , ちゃ ん と 正しく CLEAR し た の な ら [Y] を 入れ 
ます . "PROGRAM МАМЕ”, "START ADDRESS”, と 出 
る の で , それ ぞ れ 入力 し て くだ さい (アド レス は 16 進 数 ) . 
する と , ディ スク が 回 っ て , ファ イル を 調べ , も し 見 つか 
れ ば , ファ イル の 大 き さ と 最終 アド レス を 表示 する の で , 
一 応 チ ェ ッ ク し て くだ さい . ファ イル が 大 きす ぎ て , 壊し 
て は いけ な いと ころ に ロー ド す る , な ん て こと が な けれ ば, 

"LOAD ОК?” TY] を 入力 すれ ば , めで た く ロ ー ド され た 
は ず で す . 

私 は , CP/M シ ステ ム ・ デ ィ ス ク を ドラ イブ 0 に , 本 プロ 
7 > A £ `Startup. Bas* と いう 名 で セー ブ し て ある BASIC 
の シス テム ・ デ ィ ス ク を ドラ イブ 1 に 入れ っ ぱな し に し て , 


=; 


開発 後 の 転 送 も これ で OK 


жол? : 
CLEAR ADDRESS : 0888 
1NR 209 3QE 4 90:1 


Ье: 
ТИВ 21900 3 QER 4 00:8 


プロ グラ ミン グ し て ます . ディ スク を 途中 で 入れ 換え な く 
て すむ の で 便利 で す . 


о ’— w 
フロ グラ ム に つい て 
この プロ グラ ム は , CP/M デ ィ ス ク を ドラ イブ 0 に 入れ 
て 使う よう に な っ て いま す . 他 の 使い 方 を し た か っ た ら , 
1100, 1250, 1520, 1720 行 の ヾ 0 :" を 変更 する な り , Ж 


略す る な り し て くだ さい 。 た いし た プロ グラ ム じ ゃ な い の 
で 使い や すい よう に どん どん 変更 する よう に ノ 


終わ り に 


マク ロス の バル キリ ー の メカ を 使っ て ゲー ム を 作ろ うと 
思っ て いた だ たら, な ん と 本 家 の マ クロ ス が ゲー ム に な っ て し 
#72. あー あ , も っ と 時 間 が ほし い , と 眠い 目 を こす る 
Zu LAS, 

参考 文献 

1) 河西 朝雄 : "CP/M に よる マシ ン 語 開発 /"* ナツ メ 社 


mas MI ロー タプ ログ TA <l] ト ee 


1030 INIT:WIDTH B の iCLS 4:DEFINT A-Z:DIM A$(1):PR 

INT 

1040 РКІМТ" - 
» 


1050 PRINT" 1 


LOADER from CP/M to Hu-E 


100 


ASIC i^ 

1060 PRINT" [ by т 

»t* ТЕ 

1070 FRINT" ! 
|“ 

1080 PRINT" А 


wa 


1092 PRINT 


85/05/11 


1100 CFLASH 1:COLOR S:PRINT"SET CP/M DISK TO "+C 
НКФ (54) +": "+СНЕ$ (54)+" DRIVE" 


1110 CFLASH Q:PRINT:PRINT:PRINT СНЕФ (50) ; 

1120 CFLASH 1:COLOR 5:4$-"":INPUT"CLEAR ADDRESS 
: ",6% 

1120 IF A$-"" THEN 1150 

1140 CLEAR VAL ("&H"*A$) 

1150 CFLASH Q:COLOR 7:РКІМТ 

1160 FRINT "1 DIR 2 LOAD 2 CLEAR 4 END : 
";:АФ=1МКЕУ$ (1): PRINT A$ 


1170 4" THEN INIT:FRINT:END 

1180 IF A$ " THEN 1110 

1190 IF A$-"1" OR A$-"2" THEN A=VAL (A$) ELSE 116 
о 


1200 ON А GOSUB "DIR", "LOAD" 
1210 GOTO 1160 
1220 LABEL"DIR" 


125 PRINT 

1240 FOR I=64 TO 71 

1250 DEVI$"Q:",I,A$(Q) ,а%(1) 

1260 FOR 2-0 TO 1 

1278 А1%-А% (J) 

1280 FOR К=@ TO 7 

1290 A2$=MID$ (A1$,K*32+1,32) 

1300 IF LEFT$(A2$,1)42CHR$(Q) THEN 1230 
1210 A3$-MIDS(A2$,2,8) +". "«MIDS(A2$,10,3 
) 

1520 PRINT A3$;" : ";НЕХ$ (ASC (MIDS (А2%,1 
6,199», 

1520 NEXT 

1340 NEXT 


1350 NEXT 

1360 FRINT:PRINT 

1270 RETURN 

1280 LAEEL "LOAD" 

1590 PRINT 

1400 A$-"":PRINT"CLEAR STATEMENT OK? (Y/N) : " 
3 :A$=INKEY$ (1) :PRINT АФ 


1410 THEN RETURN ELSE IF A$«»5"Y" THE 
N 1490 

1420 A$-2"":INPUT"PROGRAM NAME : ",АФ:ІҒ Аф="" 
THEN 1420 


1430 ST$-2"":INPUT"START ADDRESS : ",57% 

1440 IF ST$-"" THEN 1430 ELSE ST=VAL ("&H"+ST$) 
1450 A=INSTR(A$,".") 

1460 ТЕ А=@ OR A>? THEN 1500 

1470 А1%6-( ЕҒТ%(А%,А-1) 


LO 


CP/M ロ ー ダ プロ グラ ム ・ リ スト 


1480 A2$-RIGHT$ (A$ ,LEN (A$) -à) 
1490 А$=СЕРТ$ (А1%+" ",В) +LEFTS (42%+" 


"z 
3 

1500 FLAG= の 

1510 FOR 1-64 TO 71 


1520 ПЕУ1%"0:",1,А%(0),А%(1) 

1550 FOR J=Q TO 1 

154@ A1$=A$ (J) 

1550 FOR K=Ø TO 7 

1560 й2$=М10$ (A1$,K*32*1,32) 

1578 IF (ЕҒТ%(42%,1)<>СНК%(0) THEN 1800 
1580 IF МІр%(А2%,2,11)<>А% THEN 1800 
1590 I=71:J=1:K=7;FLAG=1 

1600 й$$=М10$ (А2$,2,8) +". " -MID$(A2$,10,5 
) 

1610 PRINT"FIND : ":А5% 

1620 REC$-MID$(A2$,16,1) : REC-ASC (RECS) 
1650 PRINT"RECORD : ",HEX$(REC) 

1640 ЕМ=57+КЕС+128 

1650 PRINT"END ADDRESS : ",HEX$(EN-1) 
1660 PRINT"LOAD OK? (Y/N) : "j 

1670 AS-INKEY$((1):PRINT A$ 

1680 IF A$-"N" THEN 1800 ELSE IF A$c»"Y" 
THEN 1660 

1690 PRINT:PRINT 

1700 FOR し = の TO REC-1 

1710 IF (L MOD 16)= の THEN HUREC=ASC (МІ 
D$(62$,17*INT(L/16),1)) *B*64 

1720 IF (L MOD 2) =@ THEN DEVI$"Q:",HUR 
ЕС,А$ (Ø) ,A$(1) : НОКЕС=НОКЕС+1 

1738 ADR=ST+Lw128 

1740 PRINT CHR$ (30) ; 

1750 PRINTUSING"No. : &k ",HEX$(L) 
3 

1760 PRINTUSING"ADDRESS : к & " H 
ЕХФ (ADR); 

1770 PRINTUSING"REC : & & ".НЕХФ(Н 
UREC-1) 

1780 MEMS (ADR,128) =А$ (1 MOD 2) 

1790 МЕХТ 

1800 NEXT 

1810 МЕХТ 

1820 МЕХТ 


1852 IF FLAG=@ THEN PRINT:PRINT"NOT FOUND":GOT 
О 1850 

1840 PRINT CHR$(3Q) *"COMPLETE" «SPACES (60) 

1850 РКІМТ 

1860 RETURN 


ホバー アタ ッ ク を ディ スク 起動 に 


IPL 起 動 の プロ グラ ム は , I/O "84 年 11 月 号 の “All Myghty 
Copyer" や p.157 の "MB-GAME DOSE” C7 4 Z 7 |= # k + 
る の で す が , BASIC+ キ マシ ン 語 の プロ グラ ム は 落と せま せん . 

HuBASIC に は SAVEM. LOADM と いう 命令 が ある の で す 
ж, 大 体 の ゲー ム は BASIC を 破壊 し て いる の で , それ も 使え ま 
せん . ЖОС, プロ グラ ム を 少し 改造 し て 。 ディス ク か ら 起 動 
СОЊЕ, 
改造 の し か た 

まず ホバー アタ ッ ク (p.14 一 26) の BASIC 部 を テー プ か ら ロ ー 
FLT, 2520 行 以降 を リス ト 1 に 変更 後 、 フォ ー マ ッ ト ず み の 
新しい ディ スク に セー プ ブ し ます . МЫ, マシ ン 語 部 を テー プ か 
ら デ ィ ャ スク に モー プ し ます (モー プ す る に は “All Myghty Cop- 
yer" な ど を 使う と いい で し ょ う ). これ で で き あ が り で す . 

起動 は , BASIC 部 を ロー ド し て RUN す る だ け で す . 
プロ グラ ム の 説明 

プロ グラ ム 自 体 は 簡単 で 、 ディス ク か ら の ロー ド , VRAM… 
RAM 間 の 転送 し か 行なっ て いま せん . 

具体 的 に いう と, まず マシ ン 語 部 を 2 つ に 分 け , 最初 の 半分 
を ディ スク か ら メ イン ・ メ モリ の 4000 番 地 以 降 に ロー ド し て 
VRAM に 転送 し ます . 続い て 残り の 半分 を 再び A000 番 地 以 降 
に ロー ド し て VRAM に 転送 し て いま す . そし て VRAM 内 で プ 
ログ ラム を 1 つ に つなげ て メイ ン ・ メ モリ に 転送 し , 実行 開始 


アド レス に ジャ ンプ し て いま す . なお, この プロ グラ ム は 旧 
BASIC (CZ-8FB01 V1.0) で し か 動作 し ませ ん . 
最後 に 

私 は この 方 法 を 使っ て , 他 に も ZENON, ゴブ ゴルゴ 13 な ど を デ 
ィ ス ク に 落と し 使用 し て いま す . 原理 は 皆 同 じ な の で , ЖЗА, 
も いろ いろ な ゲー ム を ディ スク に 沙 と し て みて くだ さい (これ 
ох, すぐ ゲー ム が ロー ド で きる た だ ため, つい 遊ん で し まう 
こと で す . く れ ぐ れ も ゲ ー ム の や りす ぎ に は 注意 し まし ょ う 0?)。 
参考 文献 
1) 清水 保弘 : “X1 マ シン 語 活用 百科 "、 産 業 報知 モン ター 
2) 貴志 順司 : “TAPE つ DISK プ ログ ラム ",1/O "84 年 11 H > 
— 。 リス ト 1 ディ スク 起動 用 プロ グラ 1. wm 


2520 ' 

2530 ' MACHINE LOADER 

2540 ' 

2550 KBUF ON:LIMIT &HFBOO 

2560 FOR 1:0 TO 95 

2570 READ АЗ:РОКЕ АНЕВӨО+1, VAL "АН" #8) 

2580 NENT 

2590 AS:CHR$(13):COLOR 0 

2600 KEYO,"MON"*AS*"G FBOO"+AS 

2610 END 

2620 ' 

2630 DATA 11,50,00,3E,50,21,00,A0,CD,D3,75,21,00,50,11,00 
2640 DATA А0,01,00,40,1А,Е0,79,13,03,2В,7С,В5,20,Ғ6,11,А0 
2650 DATA 00,3Е,50,21,00,А0,С0,03,75,21,00,50,11,00,А0,01 
2660 DATA 00,90,1ҮА,Е0,79,13,03,2В,7С,В5,20,Ғ6,21,00,А0,11 
2670 DATA A0,1C,01,00,40, ED, 78,12,13,03,2B, 7C, B5, 20, F6, 3E 
2680 DATA 01,32,87,FF,C3,A0,1C,00,00,00,00,00,00,00,00,00 


101 


XY turbo 


Aat, УЕТ%; 

突然 で す が , ゲ ー ム ・ プ ログ ラマ ー の た め の キ ャ ラク タ ・ 
エディ タ を 作り まし た . ば か で か い プ ログ ラム に な っ た け 
ど , それ な り の 機能 は ある と 思い ます . 


座 プ ログ ラム の 周二 


Ө 1 度 に 20X20 キ ャ ラク タ が エディ ッ ト で きる (そん な に 
た くさ ん エディ ッ ト し て も PCG に 全部 定義 で き な い の 
Cli? と いう 次 見 も あり ます が …). 

@5X5 キ ャ ラク タ (40 字 モー ド 時 ) が リア ル タ イ ム で 拡大 
表示 され る . 

デー タ の ロー ド , セー プ 以 外 は 。 すべ て ジョ イス ティ ッ 
ттд. 92; 

テー タ の 転送 な どの 領域 指定 で は , 直方 月 の 枠 が リア ル 
タイ ム で 移動 し , 領域 を 示す . 


АЛ 


+ 3, “СНЕ-ЕПІТОВ. Bas” (リス ト 1) を 打ち 込み セー 
プ し ます . ХС, CLEAR &HC000 を 行ない モニ タ か ら 
"CHR-EDITOR" (リス ト 2) を 打ち 込み ます . BASIC に 
WoT, SAVEM' CHR-EDITOR', &HC000, &HEIFF 
で セー プ し ます (マシ ン 語 の セー ブ は , 必ず 実行 前 に 行 な 
うこ も を)。 

今度 か ら は , RUN "CHR-EDITOR. Bas” で 起動 し ま 


EE 


まず , WIDTH で 画面 モー ド を 設定 し て くだ さい . 画面 ク 
リア を し た けれ ば , 行なっ て くだ さい . 準備 が で きた ら , 
プロ グラ ム を 走ら せま す . 

画面 の 左 半 分 に 実 す 大 の キャ ラク タ を 表示 し , 右 半 分 に 
拡大 キャ ラク タ を 表示 し ます . 左 半 分 で 点 減 し て いる 白い 
部 分 が , 拡大 きれ て いる 範囲 で す . АПИС КУЖУ ЕНІ 
いも の が 見 えま す が , よく 見 る と 十字 に な っ て いて , 8 ドッ 
ト お き の キ ャ ラク タ の 境界 を 胡 わ し ます . СИЗ 
ー を 押せ ば , 表示 し た り 消 を た り し ます . 右 画 面 中 央 の 小 
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<< 

visa 

€ 
те + уз 
GA HER gus же rex 
22272222224 жұз 
Lo веже 
2 


es Lor JE. 


аж 227 
жаз 


а 
жетеле кке» 
PS 


さき な 線 の 四角 形 が カー ソル で す . 
お も な 操作 は , すべ て テン ・ キ ー と [GRAPH] | キー また は 


2 トリ が ・ ジ ョ イス ティ ッ ク で 行ない ます . トリ ガ 1 が [5 
IZ, トリ ガ 2 が [GRAPH | キー に 対応 し ます . まず , 5 以外 の 
テン ・ キ ー を 押せ ば カー ソル が 動き ます . [GRAPH] キー を 
押し な が ら テ ン ・ キ ー を 押せ ば , カー ソル が 素早 く 移 動 し 
ます ([@RAPH | キー は 加速 キー で す ). 画面 か ら は み 出 す 
k, ガク ン と 後退 する よう に 見 を えま す が ,。 実は 8 ドッ ト 単 
位 そ スク ロー ル し て いる の で す . 

ST, [5] を 押す と , 画面 の ドド の メニ ュー の 下 に 山 型 カー 
ソル が 表示 され ます .[4| = [6] キー で 左右 に 動か し て , 希望 
の と ころ で [5]| を 押せ ば , カー ソル が 三角 形 に な っ て , その 
メニ ュー が 選択 され た こと に な り ま す . 詳し い 説 明 は , 2 
マン ド の 説明 を 見 て くだ さい (381). 

プロ グラ ム を 終わ る と き は [| ESC о n 
v (| SHIFT | + [BREAK | で も 止ま り ま す が … 


説明 が 舌 足 ら ず な の で わか り づ らい 3H, hêê 
練習 すれ ば 、 マニ ュ ア ル な し で 自由 自在 に 使い こなせ る よ 
うに な る で し ょ う . すぐ に , この プロ グラ ム の 偉大 き が わ 


が か る で し まう 。 


AEE TD 


BASIC で は ディ スク 関係 の み を 行ない , 後 は すべ て マシ 
ン 語 で 行ない ます . は っ きり いっ て , BASIC は お まけ で , 
マシ ン 語 だ け で も 完全 に 動作 し ます (当然 ディ スク は 使え 
ませ ん が ). こう し た の に は ちゃ ん と 理由 が あり ます . 


LO 


ЖІ コマ ンド の 説明 (メニ ュー の 左 か ら 順 に 説明 し ます ) 


以下 , 領域 の 設定 は すべ て テン ・ キ ー (| 5 | を 除く ) で カー ソル を 
動か し ,| 5 | で セッ ト し ます (四角形 が リア ル ・ タ イム で 動き , 領域 
を 示し ます ). 

それ 以外 の 設定 は , | 4 | と 
キー は セッ ト ・ キ ー で す ). 


о 


て 選択 し て [5 | で セッ ト し ます (| 5 | 


1.PSET まず 色 を 設定 し て くだ さい . カー ン ソル の 動く と お り に 
点 を 打ち ます . や め る と き は |5| を 押し て くだ さい 
2.PAINT 塗る 色 を 設定 し て くだ さい . 自動 的 に 境界 色 は 塗る 色 


と 同じ に な り ま す (すみ ませ ん ). 

3.TILE 指定 され た 領域 の 指定 され た 色 を 指定 され た 色 (2 色 ) 
で 置き 換え ます . まず 最初 に 領域 を 設定 し ます . 次 に 
変更 前 の 色 , 変更 後 の 色 , 変更 後 の 色 を 設定 し ます . 
iL, 白 を 赤 と 黄 で 置き 換え た いな ら 白 , Ж ЖЕН 
定 し ます . も し , 青 を 縁 に し た いな ら , В, В, ВЕ 
設定 し ます . 

4.—12. 順に , 転送 , 上 下 反 転 , 左右 反転 , 右 回 転 , 左 回 転 , 
横 拡大 , ЖЕЛ, 縦 拡大 , 縦 縮 小 を 行ない ます . 3%, 
転送 前 の 領域 を 設定 し (青い 四角 形 ), 次 に 転送 先 の 領 
域 を 設定 し ます (赤い 四角 形 ).2 つ の 四角 形 が 重なっ て 
も か まい ませ ん . 場所 に よっ て は 青い 四角 形 が セッ ト 
で き な い こと が あり ます が , これ は 赤い 四角 形 が 左 画 
面 か ら は み 出 し て し まう 場合 で す . 場所 を 変え て や り 


@⑩DOS を 作る の が 面 側 だ っ た . 

@ デ ゲー ム を 作ろ うと する 人 が いつ も PCG デ ー タ を 求め て 
いる と は 限ら な い . グラ フィ ッ ク 画 面 に 表示 し た い の な を 
ら ,1 ラ イン ご と の デー タ の 方 が 使い や すい し ,DEFCHER 
$…… な ども いら な を ない. 
コマ ンド 17 で 領域 を 設定 し た と き と コ マン ド 18 を 選ん だ 

と き は , あ る アド レス に 情報 を セ モット し, マシ ン 語 か ら 戻 っ 

て きま す . あと は , G-RAM か ら デ ー タ を 読ん だ り 書い た り 

する だ け だ か ら , BASIC で 自由 自在 で す (ゲー ム ・ プ ロ š 

ラム な ら ば , この 程度 の 変更 は 簡単 で し ょ う . ゲー ム ・ 

プロ グラ マー の た め の キ ャ ラク タ ・ エ ディ タ で す ). 

他 の モニ タ で 使う と き は 2 箇所 ほど 変更 し て くだ さい ( 表 
2 中 の ※). 

内 容 に つい て 少し 書い て お きま す . まず , 最初 に メニ ュ 
ー 用 の PCG 定 養 を 行ない ます が , それ が 終わ る と PCG 定 姜 
ルー チン を 切り 離し ます . CALL を HC000 と し て も , 2 度 日 
か ら は PCG 定 義 を 行ない ませ ん (プロ グラ ム の セ モー プ は 実 
行 前 に 行ない まし ょ う ). 

割 と で き の い い ル ー チ ン は , BOX, 高速 拡大 表示 , 転送 
な どの ルー チン で す が , 説明 は 割愛 させ て いた だ きま す . 


ӘЛЕ 


1000 ОМ ERROR GOTO 1610 
1010 ADR-&HCOOO 

1020 CLEAR ADR 

1050 LOADM"CHR-EDITOR",ADR 
1040 CALL ADR:GOTO 1060 
1050 CALL Арк+5 

1060 WID=FEEK (7) 

1070 Үі-ІМТ(РЕЕК(АрК--9) /8) 
1080 X1=INT (PEEK (ADR*10) /8) 


1090 Y2=INT (PEEK (арк+11)/8) 

1100 XZ=INT (PEEK: (ADR*12) /8) 

1110 ON FEEE(ADR+6) БОТО 1160,1420 
1120 INIT:LOCATE 0,22 

1150 IF ІМКЕУ%<>"" THEN 1130 

1140 CLEAR &HFFOO 


1150 END 

1160 IF ІМКЕҮ%<>"" THEN 1160 
1170 CONSOLE 22,1 

1180 IF Хі>Х2 THEN SWAP X1,X2 


— 


直し て くだ さい . また , 拡大 と 縮小 は 簡易 版 な の で , 

注意 し て 使っ て くだ さい . 
13.SCREEN 412 で 対象 に する 面 (R.G.B) を 設定 し ます . 
14.MODE 4 一 12 を 行なう と き の モ ー ド (PSET, XOR, OR, AND) 

を 設定 し ます (メニ ュー の 絵 は , 小学 校 で 習っ た 集合 

の 絵 で す . 意味 は わか り ま すね ). 
15.MEMORY SAVE メモ リ に デー タ を 落と し ます . 領域 を 設定 し 

て くだ さい . 
デー タ の 形式 

横 の サイ ズ , MEO X, 

青 の デ ー タ (8), 赤 の デー タ (8), 縁 の デー タ (8) 

L | 

1 キャ ラク タ 分 

次 の キャ ラク タ (24), 次 の キャ ラク タ (22), 
16.MEMORY LOAD 15 で 作っ た デー タ を 画面 に 戻し ます . 
17.DISK SAVE ディ スク に デー タ を 落と し ます . 領域 を 設定 し 
て くだ さい . ディ スク に PCG 定 義 プ ログ ラム を 
ASCII セ ー ブ し ます . 
17 で 作っ た デー タ を 画面 に 戻し ます . デー タ の 
大 き さ が 大 きく て 画面 か ら は み 出 す と き は , F 
ェ ッ ク し て な い の で 注意 し て くだ さい (BASIC 
部 分 の 変更 で チェ ッ ク す る こと も で きま す ). 


18.DISK LOAD 


表 2 エン トリ ・ ア ドレ ス 


コー ルド ・ ス ター ト . 
ホッ トメ ター ト 。 
0 な ら | ESC | か [| SHIFT | 十 | BREAK | で リタ ー ン . 
1 な ら コ マン ド 17 で リタ ー ン . 

2 な ら コ マン ド 18 で リタ ー ン . 


C003, А コマ ンド 17 一 第 1 領域 設定 点 (их) 

_ コマ ンド 18 一 カー ソル ・ ア ドレ ス ' 
C00B,C コマ ンド 17 一 第 2 領域 設定 点 ( カ ー ソ ル ・ ア ドレ ス )(YX) 
※C60F, で 010 | WIDTH の 値 が 入っ て いる モニ タ の ワー ク ・ ア ドレ ス 


(初期 値 0007H) . 
リア ル タ イ ム ・ キ ー 入 カカ ルー チン の アド レス (Ни 
BASIC の INKEYS(0) 相 当 ), Areg に キャ ラク タ ・ コ ー 
ド を セッ ト す る こと (初期 値 0C016H) . 
C016 番 地 で LD А, 0 : CALL 1BH : RET 
と し て モニ タ の キー 入力 ルー チン を コー ル し て い 
27. 
PCG 用 デー タ 
ис c ВЫ 
これ より 後 は 壊し て も 大 丈夫 で す . 


私 の 文 症 が へ た で , 意味 が よく わか ら な か っ た と いう 人 , 
ご めん な さい . プロ グラ ム が 長く て 打つ 気 が し な いと いう 
А, すみ ませ ん で し た . どう か , みな さん の お 役に立て ま 
す よ うに … 


※C012, 3 


D89EH 


UAM *CHR-EDITOR.Bas” wr rc I 


1190 IF Ү1>Ү2 THEN SWAP Y1,Y2 
1200 PRINT 

1210 INFUT"FILE NAME : ",F$ 
1220 INFUT"CHR. NUMBER : ",N$ 
1230 N=VAL ("&H"+N$):NX=N MOD 16』NY=N X 16 
1240 L=50000! 

1250 ОРЕМ"О",#1,Е% Я 

1260 PRINT#1,L; "X="; X2-X1:L-L*10 

1270 PRINT41,L;"Y-"; Y2-Yi:L9L*10 

1280 FOR Y-O TO Y2-Y1 

1290 FOR Х-о TO X2-X1 


1300 PRINTS 1,L; "DEFCHR$ (&H" ; НЕХФ ( (У+МУ) MOD16 
) 3 НЕХ$ ( (Х+МХ) MOD16) ; 

1310 FRINT&1,")-HEXCHR$ (" ; СНЕФ C34) ; 

1320 FOR Ј=0 TO 23 

1520 РКІМТЯ1,КІСНТ%( "OO" +HEX$ ( INP (&H4000+X 
1+X+(Y1+Y)*WID+J*%&H800)),2);5 

1540 МЕХТ 

1550 PRINT#1 ,СНКФ (54) з") " 
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LO 


リス ト 1 "CHR-EDITOR.Bas" 


1560 1 +10 1500 FOR Х-о TO SX 

1370 NEXT 1510 IF ІМРОТФ (1,#1) < >СНКФ (34) THEN 1510 
1380 NEXT 1520 FOR Ј=о TO 23 

1590 CLOSE 1550 OUT %*H4000+X1+X+(Y1+Y)*WID+J*L&H80O0O , VA 
1400 CONSOLE L ("#H"+INFUT$(2,#1)) 

1410 GOTO 1050 1540 МЕХТ 

1420 IF ІМКЕҮ%<>"" THEN 1420 1550 INFUT&1,4$ 

1430 CONSOLE 22,1 1560 NEXT 

1440 PRINT 1570 NEXT 

1450 INFUT"FILE NAME : ",F$ 1580 CLOSE 


1460 ОРЕМ"І",%1,Ғ% 
1470 АФ=ІМРОТФ (9,#1) : INFUTR1,SX 
1480 А%= ІМРОТФ (9, #1) : ТМРИТ#1 ‚5У 
p ovem FOR Y=O TO SY 


1590 CONSOLE 
1600 GOTO 1050 
1610 PRINT 

1620 RESUME 1050 
ا‎ 


UAM "CHR-EDITOR" wr n 


Собо 
со7о 
сово 
coso 


C100 
C110 
C120 
C130 
C140 
C150 
C160 
C170 
C180 
C190 ; 
C140 
Сіво 
Сісо 
C1DO 
C1EO 


С200 

210 
C220 14 2D 20 F9 C9 21 17 06 Ср B1 C2 11 07 Е1 CD CF 136 
C230 C2 11 01 EO 2E 07 CD CF C2 ІС 2D 20 F9 C9 За 14 1CO 

C240 CO СВ 3F 67 2E ОО CD Ві C2 ЗА 23 CO 57 1E OS DD 113 Add +O +1 +2 +5 +4 +5 +6 +7 +B +9 +A +B +C +D +E +F :Sum 
C250 ТЕ ОО CD 7F C2 03 ОЗ O3 DD 7E O1 CD 7F C2 さ 14 14D C600 87 SF C9 CD El CS ЗА 2E CO CD D4 CS ЗЕ ОЗ ВА CO :6В 
C260 CO DS SF 16 OO 21 OO OO 19 19 19 O9 D1 44 4D DD :ВЕ C610 CD ЕФ CS За 2F CO CD D4 CS 42 CS ЗА 32 СО CD D4 :DE 
C270 7E O2 CD 7F C2 OB OB OB DD 7E ОЗ CD 7F C2 C9 ES 1C9 C620 C5 Сі 78 B2 FE ОЗ CO 4A DD 21 2E CO FD 21 1C CO :А1 
C280 DS CS FS CS DS ED 79 CB АО 08 ЗЕ 27 ED 79 08 CB 140 C630 DD 7E OO FD 96 00 57 DD SE 02 CD F3 CS DD 72 ОО :56 
C290 ЕО 21 04 OO O9 44 4D 15 20 EB D1 Сі O8 ЗА 14 CO 167 C640 ЗА 77 CO B3 DD 77 02 ЗЕ 05 B8 20 1B DD 7E 01 FD :D7 
СТАО F 26 00 29 29 ОВ 09 44 4р 1D 20 07 Е! Сі рі Е! #01 С650 96 01 57 DD SE ОЗ CD F3 C5 ЗА 14 CO CB ЗЕ 82 DD :28 
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свзо 
свао 
caeso 
свео 
C870 
свво 
св9о 
СВАО 


Своо 
CB10 
CB20 
CB3O 
Св4о 
CBSO 
Свбо 
св7о 
Свво 
свдо 
свао 


LO 


リス ト 2 *CHR-EDITOR” 
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10 


リス ト 2 *CHR-EDITOR” 


11 14 :C8 
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LO 


リス ト 2 *"CHR-EDITOR" 


70 70 
40 50 
02 о? 
75 ТЕ 


+E +F 
00 00 
FF 00 
FE FE 
7Е FE 
21 27 
7С 7С 
7С 7С 
20 ЗЕ 
FC FC 
04 04 
оо оз 


Add 

ЕООО 
E010 
E020 
E030 
E040 
E050 
E060 
E070 
E080 
E090 
ЕОАО 


+E +F 
оо оо 
07 ОҒ 
оо оо 
оо оо 
оз оз 
oo oo 
EO 1F 
ОО 1F 
oo oo 
во во 
оо оо 


171 
196 
CS 
135 


18um 
17C 
15B 
152 
:7C 
186 
:25 
180 
:10 
147 
:80 
:21 
139 
174 
: 8C 
124 
: ВВ 


: BO 


107 


I e мк 4 Ф 
ТТ: 


2 (9112: 
а: (ДЮ Ын Lob Reg 


Ino: N-k 
op 


t 


wasi 


5 CK Сз CE CDO CD CEO САЛ C CARA кы И PR 
Oma Kg SONS. 
ВРЕТ. 


DISK BASIC 付属 の DEVICE DUMP UTILITY を 改造 
し て 使っ て いま し た が , 使い に くい こと , スピ ー ド が 遅い 
こと , この 2 点 の 不満 が DDED 作成 の 原動力 で し た. 

BASIC の 利用 は , IOCS お よび モニ タ の み に と ど め , デ 
バイ ス ・ ド ライ ババ 関係 は , DDED 自身 に 持つ よう に し まし 
Е. この た め , バッ ファ ・ エ リア は 最大 1500H--EE0FFH £ 
で 取る こと が で きる よう に な り ま し た 。 

な お , 今回 発表 の DDED は バー ジョ ン 3.33 の も の で す . 


L^ 入力 方 法 


LIMIT &HE000 を 実行 し た の ち , モニ タ に 入り , Ма 
ти КС, E100H 番地 か ら 入 力 し て いき ます . 入力 が 終わ 


っ だ た だら 。 席 り の を な いこ と を よく 確か め て ,。 モ セーブ し て くだ この た め , DDED 起動 中 は , テン ・ キ ー は 16 進 数 キー に 変 
さい 。 ファ イル 名 は “DDED. 333% と で も 付け て くだ さい . 化し て いま す . 特に 注意 し て くだ さい . 図 1 に 示し ます . 
AF の キー 対応 を 逆 に し た い 方 は ラベ ル HXP0 
| > 使用 方 法 (EEDFH) か ら の 対応 テー ブル に 「 ン ネー エニ. АВС 
4 DEF」 と あり ます の で , А-Е# Е-А に 変更 し て くだ さ 
Va 
まず , LIMIT 文 で ユー ザー エリ ア を 確保 し レ し ます. この と コマ ンド 入力 に は , マル チ ス テー トメ ント 入力 が で きま 
ko テキ スト ・ プ ログ ラム が 何 も な けれ ば &HB000 まで す . コマ ンド と コマ ンド の 間 に “/” (スラ ッシュ ) を 入れ 
取る こと が で きま す . HIKER, &HE000 は 必要 で す . DDED る こと に より , 連 統 実行 を 行ない ます . た だ し , エラ ー が 
本 体 の アド レス は E100HーF301H ま で で す . あっ た 場合 は 以後 を 無効 と し て , コマ ンド 入力 待ち に 復帰 
CALL &НЕ100 に て 起動 し ます . あと は , コマ ンド を 投 „Жж, 
入 す る こと で 動作 し ます . Жет кые КРНЫН чы? 
用 し て くだ さい . ДТ, 各 注 意 点 を 列記 し ます . D コ マン ド 
まず , DDED で は 入力 数 値 は すべ て 16 進 数 に な り ます 。 アク セス ・ デ バイ ス を 指定 し ます が , 最初 の 1 度 だ け , 
ЖІ DDED コ マン ド 表 図 1 16 進 テン ・ キ ー 


アク セス ・ デ バイ ス を 選択 し ます (0 - СОК“, MC'MEM", E0 - ESC"EMM"). 
アク セス ・ レ コー ド を 設定 し ます . BASIC で 使わ れ て いる も の と 同じ で ., 0000H - 04FFH の 値 を 持ち ます . 
トラ ッ ク ・ ナ ン バ 指 定 に より , レコ ー ド ・ ナ ン バ を 変更 させ ます (00H- 27H). 

ディ スケ ッ ト の 表裏 を 指定 し ます (0 or 1 ). 

セク タ ・ ナ ン バ で 直接 指定 し ます (01H- 10H). 

読み 込み バッ ファ ・ ア ドレ ス の 指定 (1500H-E000H). `. "C-100H, ", "C 100H. 

現在 表示 され て いる レコ ー ド の 内 容 を 読み 込み ダン プ し ます . 

現在 表示 され て いる 次 の レコ ー ド を 読み 込み ダン プ し ます . 

現在 表示 され て いる 1 つ 前 の レコ ー ド を 読み 込み ダン プ し ます . 

現在 表示 され て いる レコ ー ド に 対し て , 現在 表示 され て いる ダン プ 内 容 を 書き 込み ます . 
HuBASIC の モニ タ を コー ル し ます . MON コ マン ド と 同じ で す . 

スク リー ン ・ エ ディ ッ ト ・ モ ー ド に 入り ます . 

DDED を 終了 し , CALL 元 へ 戻り ます . 

オプ ショ ン ・ プ ログ ラム を CALL し ます . 


| Next read 


Back read 
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その デバ イス の 確認 を 行ない ます . NOT READY の 場合 
形 の デバ イス の まま と な り ま す . 1 度 確認 され た 後 は , Ж 
条件 に 変更 され ます . 


例 DO …… DISK の 0 ドラ イブ 
БЕЛ: EMM の 1 ドラ イブ 


LO 


16 進 数 文子 (0 一 9. А-Б) に より エディ ッ ト し て くだ 
さい . 1 文字 入力 する た びに バッ ファ ・ メ モリ の 内 容 が 半 
き 換え られ , キャ ラク タ 表 示 お よび チェ ッ ク サ ム も 変更 さき 


れ ま す . 
使用 キー の 説明 
0|-|9|,А|-(Е バッ ファ ・ メ モリ ・ ダ ンプ 内 容 を 穫 き 換 


R・T・H・S コ マン ド 

DDED で は , デバ イス ・ ア クセ ス は 表示 レコ ー ド に 対し 
て 行ない ます . そのため, トラ ッ ク , ヘッ ド 。 セク タ 指 定 
に よる レコ ー ド ・ ナ ン ペ バ 変更 も 可能 に し まし た . これ ら コ 
マン ド は 数 値 指定 の 省略 は で きま せん . 

初期 設定 は ドラ イプ ブ 0, レコ ー ド 0. すなわち トラ ッ 
20, ヘッ ド 0。 セ クタ 1 と な り ま す 、。 


| £j: R10…10H (16) レコ ー ド を 指定 


A コマンド 

読み 込み バッ ファ ・ ア ドレ ス を 指定 し ます . 変更 後 。 新 
アド レス 内 容 を ダン プ し ます . ア ドレ ス 指 定 の 代わ り に *.? 
(ピリ オド ) で 一 100H, 7,” (カン マ ) G+100H の アド レ 
ス 指 定 と な り ま す . リー ド , ライ ト は この アド レス を 基準 
に 行なわ れ ま す . 

初期 設定 で は , E000H か ら の 256 バ イト に 設定 され て い 
ます . バッ ファ と し て , 1500H—E00H まで 設定 する こと 
が 可能 で す が 。 BASIC に 復帰 し た い 場合 は 。 LIMIT Tit 
定 し た 範囲 内 に 収め な けれ ば な り ま せん . BASIC の スタ 
ッ ク を 壊し て * ノ (リターン) コマ ンド を 投入 する と 上 禁 走 
LET. сома 


|: AD000---7» FL X D000H を バッ ファ の 先 貴 
TERAWL. ダン ダル し ます 


J・N・B コ マン ド 

それ ぞ れ , 1 レコ ー ド 読み 込み コマ ンド で す . 

す は 表示 レコ ー ド ,N は 決 の レコ ー ド ,B は 1 つ 前 の レコ 
= У је ЕЛ УУ ЊУ, RELL TOFFEE 
て の み レ コー ド 指 定 が で きま す 。 また , カン マ の あと レコ 
ー ド 数 を 入力 する こと で 指示 レコ ー ド か ら 連 続 し て 指定 数 
の レコ ー ド を 読み 込む せこ と が で きま す . た だ し , バッ ファ 
の 大 きき さ に 注意 し て くだ さい . 


例 : J10, A 
(レコ ー ド ・ ナ ン バ 10H か ら 19H ま で を 連続 し て 読み 込む ) 


W コ マン ド 

表示 レコ ー ド に 対し て 表示 ダン プ 了 内 容 を 書き 込み ます . 
これ も , レコ ー ド 指定 と レコ ー ド 数 指定 が で きま す . この 
コマ ンド 実行 時 に は , 本 当 に 実行 し て も よい か と 嘩 ね て く 
DDT, よけれ ば [ 選 キ ー を 押し て くだ さい ([\Y| キ ー で は ぁ 
り ま せん ). 


Я : WE… レ コー ド ・ ナ ン バ OEH(14) に 基き 込み ます . 
УЗ 表示 され て いる レコ ー ド ・ ナ ン バ か ら 3 セク 
タ 分 連続 し て 書き 込み ます . 


E コ マン ド 
E コ マン ド 投 入 に より , カー ソル が 16 進 ダン プ の ホー ム 
位置 に 移動 し . エディ ッ ト ・ モ ー ド に 入り ます . 


Zw. 
A ()97—у) … コ マン ド ・ モ ー ド に 復帰 し ます . エディ 
タ 内 で スク ロー ル し て いた 場合 。 ア ドレ 
Z 表示 先頭 か ら の ダン プ を 行ない ます . 
ЕНЕНШЕСЕІ +u 
CTRL |-(Е). [5], [D]. [X] 
военные … カ ー ソ ル の 移動 を 行ない ます . 
CTRL |-М, [R]. [2], [<] 
КОЕТО スク ロー ル ・ ダ ンプ し ます . WordStar b 
どき で , [ CTRL +W, [| が それ ぞ れ 1 
行 ス クロ ー ル (16 バイ ト ) し 、| CTRL |+ 
R|, | て が 1 画面 (256 バ イト ) ス クロ ー ル し 
ます . た だ し ,1500H ~ EOFFH Oll A, 
[DEL Јене カー ソル 位置 の 1 バイ ト を デリ ー ト し , 
Кот киудљљ EOFFH まで を , 1 
イト 詰め ます . BASIC な ど で の , DEL 
の よう に カー ソル の 1 つ 前 を デリ ー ト し 
な いで , カー ソル の ある 1 バイ ト を デリ 
ー ト する こと に 注意 し て くだ さい . 
EOFFH に は 0 が 入り ます . 
[SHIFT ]+[INS 
eee カー ソル 位置 に 1 バイト 0 を 挿入 し ます . 
НЕН, ЕОЕЕН の 1 バイ ト は 消 減 し ます. 
CTRL |+[ ESC | 
ТО キャ ラク タ 入 力 モ ー ド に 入り ます . カー 
ソル は キャ ラク タ ・ ダ ンプ 側 の 同じ 位置 
に 移動 し ます . すべ て の キー 入力 を 受け 
付け ます (コン トロ ー ル ・ コ ー ド を 含む 
256 種 類 )、 カー ソル 移動 は [| GRAPH |+ 
カー ソル ・ キ ー で 受け 付け ます . 再度 
[| CTRL ]+[ ESC | で 16 進 入力 側 に 復帰 し 
#3. 


о 
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10 


жж 

СОСО, あく まで オン ・ メ モリ の 内 容 に 対 
し て な の で , コマ ンジ ンド: モー ド に 戻っ て W コマ ンド を 実行 
し て 初め て ディ スケ ッ ト の 内 容 が 書き 換え られ ます . 

キャ ラク タ 人 入力 に は 特に 苦労 し まし た だ. すべ て の キー( コ 
ント ロー ル ・ コ ー ド も ) を 受け 付け る よう に し た だめ, я 
ー ソ ル 移動 と , 16 進 側 へ の 復帰 の 判断 を どう すれ ば よい か 
と いう 問題 に ぶつ か り ま し た . 結局 .、 グ ラフ ・ キ ー お よび 
コン トロ ー ル ・ キ ー の 併用 で 解決 し まし た . 

デリ ー ト 。 イン サー ト が オデ ジェ クト ・ レ ベル で 。 必要 
か どう か は わか り ま せん が , クラ ブ ・ メ ン バ ー の 意見 で 取 
り 入 れ ま し た . 


* コマ ンド 

オプ ショ ン ・ プ ログ ラム を コー ル し ます . た だ し , オプ 
ショ ン ・ プ ログ ラム は , ЕЗОН か ら に セッ ト さ れ て いな け 
れ ば な り ま せん . モッ ト さ れ て いな い 場 合 は , C9H (RET) 
の 1 バイ ト が 書か れん て いま す . オプ ショ ン を セッ ト す る 場 
合 。 スタ ー ト ・ ア ドレ ス が F300H で FEFFH まで に 収 ま 
0, 単独 で 動く も の で な けれ ば な り ま せん . 


その 他 


DDED に は , ブリ ンタ 出力 機能 は あり ませ ん . 必要 な 場 
fit, M コマ ンド で モニ タ に 入り , モニ タ の P コマ ンド を 
利用 し て くだ さい . 

今回 発表 の バー ジョ ン で は , チェ ッ ク サ ム が 横 16 バ イト 


110 


だ け で す が 付 きま し た 。 これ に より 直接 プログ ジム を ディ 
スケ ッ ト に 書き 込む こと が 楽に な り ま し た . 大 い に 利 用 し 
て いた だ きた いも の で す . 
ジー ス ・ リ スト に つい て の 言い 訳 … 

この DDED ił, 私 が 初め て アセ モン プラ を 使っ て 書い た も 
DTF. 最初 は アセ モン ブラ (MACRO-80) の 使い 方 すら わ 
か ら ず , それ だ け で 1 科 月 位 か か り ま し た . 今 思 うと 懐か 
し いか ぎり で す . し か し 残念 な が ら , その 記述 方 法 は ひど 
いも の で す . 今回 ソー ス ・ リ スト まで 掲載 する と 閉 い て , 
急い で 見 雪 し で すう 少し まし な の だ し よう と し た の で す 
ж, や り だ せ ば 全部 書き 直 き な けれ ば な ら な く な り そ う な 
の で 断念 し まし た 。 本 当 に 読み に くい ソー ス で す が , 初め 
て 書い た も の だ と いう こと で 勘弁 し て くだ さい . 


最後 に 


今回 発表 の DDED は バー ジョ ン No3.33 の も の で す . 

ここ まで くる の に 約 1 年 以上 か か り ま し た . そ の 問 , 数 々 
の 意見 , 批評 を くだ さっ た だ , X1 Player's Club の 皆さん に 
この 場 を 借り て , БАНЗ. 


参考 文献 
1) СР/М X1 BIOS, シャ ー プ 


リス ト 1 DDED ダン プ ・ リ スト 


То 


リス ト 1 DDED ダン プ ・ リ スト 


111 


10 


リス ト 1 DDED ダン プ ・ リ スト 


EF10 Е2 С9 CD ЗЕ ED 11 BB EA CD DA EF С9 11 21 EFF 18 :F2 


ош =] 


DEVICE DUMP EDITOR  (DDED) 
ver.3.33 
by X1 Player's Club 
Junji Kishi 

ORG 9E199H 
13 APRTMON EQU 94BCH 
14 CTRLMON EQU 9577H 
15 CTRLD EQU ФАЗЕН 
16 COSYMON EQU 0016H 
17 COSXMON EQU 991EH 
18 VALMON EQU 1148H 
19 RF EQU 55 
20 LF EQU 9 
21 UF EQU 3 
22 DF EQU 18 
23 LOCXMON EQU 999EH 
24 CAPSMON EQU 1451H 
25 CUSMEM EQU 143СН 
26 VADRMON EQU 954DH 
27 CUSMSG EQU 1434H 
28 CUSMSG2 EQU 1534H 
29 CUSCMD EQU 1634H 
30 CUSCOM EQU 1704H 
31 CUSADR EQU 1426H 
32 CUSDV EQU 140BH 
33 CUSREC EQU 1418H 
34 CUSTRK EQU 150BH 
35 CUSHED EQU 1518H 
36 CUSSEC EQU 1526H 
37 BELLMON EQU 97F7H 
38 HUMON EQU 9ҒЕ2Н 
39 SMOLF EQU 1500H 
40 LARGF EQU 9E999H 
41 MAXREC EQU 16%40%2-1 
42 MAXDV EQU 3 
43 MAXTRK EQU 39 
44 MAXHED EQU 1 
45 MAXSEC EQU 16 
46 GETVALMON EQU 111FH 
47 DEPRTMON EQU 000BH 
48 INKEYMON EQU Q2AAH 
49 COLORMON EQU 0026H 
50 OUTKEYBUFMON EQU 0ЗЕЗН 
51 CHRPRMON EQU 94C8H 
52 KEYBUFMON EQU 9EA8H 
53 BELLOMON EQU 07FAH 
54 AHEXPRMON EQU 1207H 
55 HHEXPRMON EQU 1202H 
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56; 


57 BUFFADR EQU 


58; 


63 ALLINIT:LD 


64 
65 
66 
67 
68 
69 
70 ІМІӨ: 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 


104 

105; 

106 

107 

108 

109 ; 

110 STMSG: 


(SPBUF),SP 
SP,NEWSP 
А,10 
(03C6H),A 
A 
HL,MEMFG 
B,22 
(HL),A 

HL 

INIO 
(ФЕА5Н),А 
(0E90H),A 
A 

(SECP),A 
(SECVAL),A 
(0366H),A 
HL,BUFFADR 
(BUFADP),HL 
DE,KYBUF 
HL,STMSG 
BC,22 


HL,HXKYST 
(03BAH) , HL 
А, (ВЕЕРЕ) 


А 
2, ВЕЕР 


А, ( ОАЗВН ) ;OP.SC.2 


(OPSC+1),A 
А,2 
(дАВВН),А 


998CH jiWIDTH89 


CTRLD 

A 
BC,1000H 
(C),A 

B 


(С),А 
B 
(С),А 
B 
(C),A 


SCRINIT 
EDFIN 
CMDMAIN 


' Now Device is FDDO 


LO 
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TNC А 
LD (CUSX),A 
RET 
J5: LD A,LF 
EDMODE: INC LD (CUSX),A 
(DEFLG),DE XOR A 
A LD (CF),A 
(MEMFG),A ;address pointa LD A, (МЕМЕС) 
(CF),A іг/1 flag SUB ФЕН 
A,LF LD (МЕМЕС),А 
(CUSX),A ;x CALL DOWN 
A,UF RET 
(CUSY),A ЈУ 
А,3 DOWN: LD A, (CUSY) 
(COLORMON ) , A СР DF 
HL,CUSMSG2 JR 2,26 
( LOCXMON ) , HL TNC А 
РКІМТВ LD (CUSY),A 
3 Edit Mode LD А, (MEMFG ) 
HL,CUSCMD ADD A,10H 
(LOCXMON) , HL LD (MEMFG),A 
А,5 RET 
(COLORMON ) , A 
PRINTB J6: LD А, ОЕ 
'0-9,A-F,ESC,CURSOL LD (CUSY),A 
А,2 LD А, (MEMFG ) 
(COLORMON ) , A SUB дЕДН 
HL,CUSMSG LD (MEMFG),A 
(LOCXMON) , HL RET 
PRINTB 
! £Point: UP: LD A,(CUSY) 
A,5 CP UF 
(COLORMON),A JR 2,J9 
DEC A 
HL, (BUFADP) LD (CUSY),A 
(EDBUF),HL LD А, (MEMFG ) 
EDMAIN: MFPRT SUB 19H 
RETRY: HL, (CUSX ) LD (MEMFG) , A 
(LOCXMON ) , HL RET 
INKEYMON 49: 
LD A,DF 
29H LD (CUSY ) ,A 
C,CTRL LD A, (МЕМЕС) 
ADD A, OFOH 
CAPSMON LD (МЕМЕС),А 
'0' RET 
C,RETRY 
MOVEL: 
'9'+1 LD A, (CUSX) 
C,J1 СР LF 
"А" JR Z,J7 
C,RETRY LD HL,CF 
ЈЕ'+1 LD А,1 
NC,RETRY XOR (HL) 
HL, (CUSX ) LD (НЫ), А 
( LOCXMON ) , HL LD A,(CUSX) 
APRTMON JR 2,28 
А,(СЕ) LD HL,MEMFG 
A DEC (HL) 
HL, (CUSX) DEC A 
J8: DEC A 
LD (CUSX),A 
jiHL=curso] -› дессһг RET 
;de=chr -> A=suu J7: 
LD А, ВЕ 
LD (CUSX),A 
LD А,1 
LD (CF),A 
LD А, (МЕМЕС) 
ADD А,ФЕН 
LD (MEMFG),A 
CALL UP 
9 ВЕТ 
5 š 
9 TRNSUB: LD А, (МЕМЕС) 
9 LD D,0 
9 LD E,A 
1 LD HL, (EDBUF ) 
9 ADD HL,DE 
9 PUSH HL 
1 EX DE,HL 
9 HL, OEOFFH 
9 А 
В! HL,DE 
9 
9 3ВС-5іге 
с РОР HL ;HLzNow Adr 
9 jiDE=HL 
9 


TRNSUB 
HL 
%%%%% cursol move #1111 
INSDP 
A,(CUSX) 
RF 

2,295 

А,1 
HL,CF 
(HL) 
(HL),A 
A,(CUSX) 
NZ,J4 
HL,MEMFG 
(HL) 


INSERT: 


TRNSUB 
LD DE,@EQFFH 
HL, QEOFEH 


A 
LD (DE),A 

LD HL, (EDBUF) 
EDUMP+3 


; 
; SCROLE UP/DOWN 
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LO 
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Z,LUP 
430 СР 3 ге 


324 LD DE,0100H 


325 JR шие 431 JP Z,SCUP 

326 LUP: LD DE,0010H 432 CP 9 ;^I(H TAB) 
327 100: LD HL, (EDBUF) 433 JP Z,L ED 

328 ADD HL,DE 434 СР 1BH 

329 PUSH HL 435 JP 2,Е8С 

330 ов А 436 СР 8 ;DEL 
331 LD DE,LARGF 437 JP Z,DELET 

332 SBC HL,DE 438 POP HL 

333 РОР HL RETRY 

334 JR C,$+3 

335 EX DE,HL INS???: A,(002FH) 
336 JR EDUMP 

337 = 443 JP C, INSERT ; INSERT 
338 SCDOWN: LD DE,0100H JP SCDOWN ^m 
339 JR LDNO 

340 LDOWN: LD DE,0010H : 

341 LDNO: 1р HL, (EDBUF) 447 ESC: LD HL,CF 

342 SBC HL,DE 448 LD А,1 

343 PUSH HL 449 XOR (HL) 

344 ов А 450 JR NZ,ESJ1 

345 LD DE, SMOLF 451 XOR А 

346 SBC HL,DE 452 LD (HL),A 

347 POP HL 453 LD HL,CUSX 

348 JR NC, $+3 454 DEC (HL) 

349 EX РЕ, HL A, (CUSX) 

350 EDUMP: 

351 LD (EDBUF) , HL 

352 LD DE,UF*256+LF-7 

353 LD (LOCXMON ) , DE 

354 LD A,7 

355 LD (COLORMON ) ‚А 

356 CALL EDDP 

357 LD A,5 463 LD L,A 

358 LD (COLORMON ) , A 464 LD А, (СОЗҮ) 

359 RET 465 LD Н,А 

360; 466 LD (LOCXMON) , HL 
361 номе: 1р HL,CUSX 467 CALL INKEYMON 
362 LD (HL),LF 468 СР 1ВН 

363 INC HL 469 CALL Z,ESCR 

364 LD (HL) „ЈЕ 470 CP 20H 

365 XOR A 471 CALL C,ESCMV 

366 LD (CF),A 472 CALL UNVAL 

367 LD (MEMFG) , A 

368 RET 474 CALL KBFCLS 

369 475 LD BC,KEYBUFMON 
370 HOM1: 1р HL,CUSX 476 PUSH DE 

371 LD (HL) ,RF-1 477 LD E,D 

372 INC HL 478 CALL OUTKEYBUFMON 
373 LD (HL),UF 479 POP DE 

374 LD А,ФЕН 480 ESJ3: CALL OUTKEYBUFMON 
375 LD (MEMFG) , A 481 LD Е, 1ВН 

376 XOR A OUTKEYBUFMON 
377 LD (CF),A 

378 RET 

379 

380 HOM2: 1р HL,CUSX 

381 LD (HL),LF DUMP 

382 INC HL 488 LD A,4 

383 LD (HL),DF 489 LD (COLORMON) , À 
384 LD A, OFOH 490 LD HL,CUSMSG2 
385 LD (MEMFG) , A 491 LD (LOCXMON ) , HL 
386 XOR A 492 CALL PRINTB 

387 LD (СЕ),А 493 DEFB ' Command Mode ”,0 
388 ВЕТ 

389 i 

390 HOM3: LD HL,CUSX ESCMV: СР 1CH 

391 LD (HL) ,RF-1 497 RET C 

392 INC HL 498 LD Н,А 

393 LD (HL),DF 499 LD А, (002ЕН) 
394 LD А, 9FFH 500 BIT 4, А 

395 LD (МЕМЕО),А 501 LD А,Н 

396 XOR A 502 RET NZ 

397 LD (СЕ),А Е,А 

398 ВЕТ 

399 ; KBFCLS 

400 L ED RET 506 LD BC, KEYBUFMON 
401 ; 507 PUSH DE 

402 CTRL: СР орн 508 LD А,1СН 

403 JP Z,EDFIN 509 СР Е 

404 LD HL,EDMAIN Z ,OUTKEYBUFMON 
405 PUSH HL 

406 cP 1CH 

407 ЈР Z,MOVER 

408 CP 4 рер 

409 JP 2,МОУЕВ 

410 СР 1DH 


; 
517 ESCR: LD Н,А 


Z,MOVEL , 
518 LD А, (002FH) 
519 RRCA 


520 LD A,H 
521 RET с 
HL 


KBFCLS: PUSH HL 
526 LD HL,@ 
527 LD (9EA6H) ,HL 


Не 


;^K(HOME) 


^W 


425 JP Z,LDOWN 3-------------------------------- 
426 СР 12H ;^R or INS 

427 JR Z, INS??? 

428 СР 1АН 272 
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536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 


LD HL, (EDBUF ) 
ADD HL,DE 
LD (HL),A 
RET 
CHRPRT: LD Е,А 
LD A, (CUSX) 
SUB LF 
J3: 
INC D 
SUB 3 
JR NC,J3 
LD A,RF*3 
ADD A,D 
LD Ь,А 
LD A, (CUSY) 
LD Н,А 
LD (LOCXMON) , HL 
LD А,Е 
CALL CHRPRMON 
RET 
; 
MFPRT: LD HL,CUSMEM 
LD (LOCXMON ) , HL 
LD A, (COLORMON ) 
PUSH AF 
LD A,6 
LD (COLORMON ) , A 
LD А, (МЕМЕС) 
LD HL,EDBUF 
ADD A,(HL) 
CALL UNVAL 
LD A,D 
CALL APRTMON 
LD A,E 
CALL APRTMON 
POP AF 
LD (COLORMON),A 
RET 
; 
; CHECK SUM 
CKSUM: 
LD A, OFOH 
AND L 
LD L,A 
CKSM1: LD A,RF+4+16+2 
LD (LOCXMON ) ,A 
XOR A 
LD B,16 
CKSM2: ADD A, (HL) 
INC HL 
DJNZ CKSM2 
CALL AHEXPRMON 
RET 
; 
Ч --> DE-HEX$ 
; 
GETHEX: CALL VADRMON 
LD B,H 
LD с, 
ІМ А,(С) 
LD D,A 
INC BC 
IN A,(C) 
LD E,A 
RET 
; 
;*** DE=HEX$ --> A=Value 
; 
VALUE: LD A,D 
CALL VAL9 
RLCA 
RLCA 
RLCA 
RLCA 
LD D,A 
LD A,E 
CALL VALO 
ADD A,D 
RET 
VALO: 
CALL CAPSMON 
SUB 30H 
CP ДАН 
КЕТ с 
SUB 97H 
RET 
; 
$;; AcczValue --> DE=HEX$ 


UNVAL: PUSH 


AF 


¿margin 


726 
727 
728 
729 


731 
732 


736 
737 
738 
739 
740 
741 
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CP 

ВЕТ 
ADD 
RET 


iii (SP)- 00h 


PRNS1: INC 


3AH 


с 
A, OTH 
CONSOLE PRINTOUT 


(SP) ,HL 
A, (HL) 
1BH 
Z,COLAR 


(SP),HL 


Dra SCREEN INIT [LAYOUT] %%% 


SCRINIT:LD 
CALL 


Sco: LD 


MSG1: DEFB 


SC1: LD 


SCT: CALL 


TATE: PUSH 


A, OCH 
APRTMON 

A, 86H 
(COLORMON ) , A 
DE,MSG1 
HL,0008H 

( LOCXMON ) , HL 
A,(DE) 

А 


2,5С1 

СНЕРЕМОМ 

DE 

Sco 

'DDEEVVIICCEE DDUUMMPP  EEDDIITTOORR',0O 


A,5 
(COLORMON),A 
HL,0032H 
(LOCXMON) ,HL 
PRINTS 

" by Xl Player's Club v3.33",0 

А,4 

(COLORMON ) , A 

HL,0209H 

( LOCXMON ) , HL 

PRINTS 

'+Q +1 +2 +3 +4 +5 +6 +7 +8 +9 ' 

"ЖА +В +C +D +E +F / 012345678 9АВСОЕЕ' 
° SUM! ,0 
HL,0307H 
(LOCXMON) , HL 
B,16 

А, КЕ" 
АРЕТМОМ 

ТАТЕ 

sc6 

HL,0339H 
(LOCXMON ) , HL 
В,16 

А,',/' 
APRTMON 

TATE 

SC7 

HL,1404H 
(LOCXMON) , HL 
A,5 
(COLORMON ) , A 
PRINTS 
'Device: 
HL,1594H 
(LOCXMON ) , HL 
PRINTS 

' Track: Head: 


Recode: Address:',0 


Sector:',0 


A,6 

(COLORMON),A 

HL,142BH 

(LOCXMON ) , HL 

PRINTS 

'Message:[ 17,0 
НІ,,162ВН 

(LOCXMON) , HL 

PRINTS 

'Command: [ 17,9 
?DRIVE 

?TRACK 

?HEAD 

?SECTOR 

?RECODE 

?ADRES 

?COMSG 


HL 
HL,LOCXMON 


А,7 
(COLORMON ) , A 
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&O 


?TRACK: 


; 


?SECTOR: 


?RECODE: 


PRINTB: 


HL,CUSDV 
(LOCXMON ) , HL 
A, (DVP) 

4 

2,?МЕМ 
МС,?ЕММ 
PRINTS 
1BH,6,'FDD',1BH,3,0 
A,(DVP) 
A,30H 
APRTMON 


PRINTS 
1BH,7,'MEM', 1BH, 3, '0' ,0 


A,30H-1 

AF 

PRINTS 
1BH,4,' EMM’ , 1BH, 3,0 
AF 

APRTMON 


А,7 
(COLORMON ) ‚А 
HL,CUSTRK 
(LOCXMON ) , HL 
А,(ТЕР) 
АНЕХРЕМОМ 


А,7 
(COLORMON),A 
HL,CUSHED 

( LOCXMON ) , HL 
А, (НОР) 
АНЕХРЕМОМ 


А,7 
(COLORMON ) , A 
HL,CUSSEC 
(LOCXMON ) , HL 
А, (SECP ) 
AHEXPRMON 


А,4 
(COLORMON ) , A 
HL,CUSADR 
(LOCXMON) , HL 
HL, (BUFADP) 
HHEXPRMON 


A,6 
(COLORMON),A 
HL,CUSREC 
(LOCXMON) , HL 
HL, (RECP) 
HHEXPRMON 


HL,CUSCOM 

( LOCXMON ) , HL 
PRINTS 
1BH,7,'Write / 
' / Edit mode ' 
' / Monitor / ! гейигп”,0 


Just, Next, 


PRNBP МЕ PRNB5 


;ttttttt PRINTS+BEEP ネネ ネネ ネネ ネネ ネネ ネネ ネネ 


PRNBP: 


NXTSKIP: 
SPSKIP: 
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BC,0 
BELLOMON 
BC,8000H 
DERYBC 
(SP),HL 
A,(HL) 
1ВН 
Z,COLAR 
A 
2,РЕМВ1 
АРЕТМОМ 
HL 
£ $ 
Z,PRNBO 
HL 
BELLMON 
BC,3000H 


;JR РЕМВЕ 


A,(DE) 
, 


NZ 
NXTSKIP 


COLOR CHENGE 


Back 


read 


BP0: 


BEEPF: 


DUMP: 


DER: 


EDDP: 
рме: 


; 
LDMP: 


LDMO: 


LDM1: 


; 
CMDMODE : 


CMDMAIN: 


CDL: 


(DEFLG) , DE 
А,1 
НІ,,ВЕЕРЕ 
(HL) 
(HL),A 

NZ, BPO 
(PRINTB+1),A 
А,28Н 
(PRNB6 ) , A 


A, 9CH 
(PRINTB+1 ) ,A 
А,18Н 
(РЕМВ6),А 


HL,UF*256+LF-7 
(LOCXMON ) , HL 
А,7 
(COLORMON ) , A 
HL, ( BUFADP ) 
B,16 


A,LF-7 
(LOCXMON ) , А 
рме 


С,16 
B,C 

HL 

HL 

А, (HL) 
AHEXPRMON 
HL 

А, = 
АРЕТМОМ 
LDMQ 


B,C 
A, (HL) 
CHRPRMON 


APRTMON 


HHEXPRMON 
A,LF 
( LOCXMON ) , A 


EDFIN 

SP, NEWSP 
HL,CUSMSG 
(LOCXMON) , HL 
А,7 
(COLORMON),A 
B,22 
DE,KYBUF 

А, (DE) 
APRTMON 

DE 
CDL 


HL ,CUSCMD 
(LOCXMON ) , HL 


O 
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LD ће“ `$ TU 
LD B,22 Z,BEEP 
CALL APRTMON "£^ 
DJNZ сре Z,OPSION 
LD BC,0800H 
CALL BELL@MON HL 
A,7 HL,CMDMAIN 
(COLORMON ) ,A HL 
HL ,CUSCMD HL ,CUSMSG 
(LOCXMON ) , HL ( LOCXMON ) , HL 
HL , LOCXMON PRNBP 
INKEYMON 1BH,2,' Syntax Error !! 
CAPSMON 
20H 
C,CD1 
APRTMON 
CDCR 
C,CD5 
CMDIN HL,CUSMSG 
(LOCXMON) , HL 
А,2 
(COLORMON),A 
PRNBP 
'Bad Operand (Value) 
BC,8000 
BELLOMON 
DERYBC 
DERYBC 
CALL CDCL DERYBC 
JR Z,CMDIN DERYBC 
DEC (HL) 
JR CMDIN 


3333333553 MEMSET: NXTSKIP 
P 

LD DE,KYBUF Z ,MM00 

LD HL, CUSCMD DL 

LD (LOCXMON ) , HL 2,ММ01 

CALL VADRMON A 

LD B,H Z,MM01 

LD с, ЕВВОР 

PUSH DE š DE 

LD L,22 (DEFLG),DE 

IN А, (С) МЕМСК 

LD C,MEMERR 

INC А,4 

ІМС (DVP),A 

DEC ?DRIVE 

JR ; 

POP MEMERR: DE,MERMSG 

LD (DEFLG) , DE DER2 

JP CMDCHEK СМРМАТМ 


MERMSG: ' MEMO: I/O ERROR !! 7,0 


まま まま まま まま 本 まま まま まま まま まま を EMERMS : ' EMM: 1/0 ERROR !! ',0 


; 

DERYBC: PUSH АЕ ЕММЕНЕ: DE, EMERMS 

рвуд: DEC BC DER2 

ен CMDMAIN 

NZ,DRY9 ЕММЗЕТ: DE 

AF GETVALMON 
(DEFLG) , DE 
C,ERROP 
А,Н 


А 
М2,ЕВЕОР 
A,L 
10 
NC,ERROP 
AF 
DE, (DEFLG) DE, © 
SPSKIP ЕММСКӨ 
А С,ЕММЕКЕ 
Z,CMDMAIN 
x 
NZ , MCMDER 
DE 
CMDCHEK: SPSKIP 
A 
Z,CMDMAIN NXTSKIP 
"p "M 
Z,ALLFIN Z,MEMSET 
HL,CMD99 ЈЕ' 
HL Z,EMMSET 
"gi 
Z,EDMODE GETVALMON 
(DEFLG),DE 
C,ERROP 
A,H 
A 
NZ,ERROP 
A,L 
MAXDV+ 1 
Z,WRITE NC , ERROP 
"TT A,(DVP) 
Z,TRACK Н,А 
"ut А,Ь 
Z,HEAD (DVP),A 
8" E,A 
Z, SECTOR D,0 
24 HL 
Z,RECODE HL,DVOK 
'р' HL,DE 
Z,DRIVE (DVKF),HL 
"А А, (HL) 
Z,ADRES A 
*M* HL 
Z,SETMON Z,DKOK 
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LO 
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1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1399 
1391 
1392 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 


HL 
1183 CALL READY 
1184 POP HL 

1185 JR C,DKNO 
1186 CALL DRESET 
1187 CALL MOTOFF 
1188 LD А, ОРЕН 
1189 LD HL, (РУКЕ) 
1190 LD (HL),A 
?DRIVE 


А,Н 
1194 LD (DVP),A 
1195 XOR A 

1196 LD HL, (РУКЕ ) 


CMDMAIN 
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; 
1206 MEMCK: PUSH HL 
BC,4000H 


EMMCK: 


EMMCK0: 


EMADSET 
1228 IN H,(C) 
1229 POP BC 

1230 PUSH BC 
EMADSET 


; 
ЕМ80: 


1254 EMADSET: XOR A 


1263 ; 


1265 OPSION: INC DE 

1266 LD (DEFLG),DE 
1267 CALL OPROG 

1268 JP SM2 


; 
1270 ADRES: CALL NXTSKIP 
' 


, 
1272 JR Z,NADR 
... 


Z,BADR 


GETVALMON 
1277 LD (DEFLG),DE 


1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 


DE,LARGF+1 
1289 SBC HL,DE 
HL 
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HEAD: 


SECTOR: 


RECODE: 


NBREC: 


REJ0: 


NEXT: 


NB0: 


NC, ERROP 

( BUFADP ) , HL 
?ADRES 

DUMP 


DE 
(DEFLG),DE 
HL, (BUFADP) 
DE,0100H 
HL,DE 
ADR11 


DE 
(DEFLG ) , DE 
HL, (BUFADP ) 
DE,0100H 


DE 
GETVALMON 
(DEFLG),DE 
C,ERROP 

HL 

DE , MAXTRK+1 
HL,DE 

HL 

NC, ERROP 
А, 
(ТЕР),А 
?TRACK 
CALREC 


DE 
GETVALMON 
(DEFLG ) ,DE 
C,ERROP 

HL 

РЕ, MAXHED+1 
HL, DE 

HL 

NC, ERROP 
A,L 
(HDP),A 
?HEAD 
CALREC 


DE 
GETVALMON 
(DEFLG),DE 
C,ERROP 

HL 
DE,MAXSEC*1 
HL,DE 

HL 


NC,ERROP 
AL 


A 
Z,ERROP 
(SECP),A 
?SECTOR 
CALREC 


DE 
GETVALMON 
(DEFLG),DE 
C,ERROP 

HL 

РЕ, MAXREC+1 
HL,DE 

HL 
NC,ERROP 
(RECP ) , HL 
?RECODE 


A,L 
H 
H 


H 


A,1 
C,REJO 


A 
(HDP),A 
A,L 
ФЕН 
А 
(SECP),A 
A,H 
(TRP),A 
?TRACK 
?HEAD 
?SECTOR 
A 


DE 
(DEFLG),DE 
HL, (RECP) 
HL 

HL 
РЕ,МАХКЕС+1 
HL,DE 

HL 

NC, ERROP 


BACK: 


CALREC: 


NBREC 

А,1 
(SECVAL),A 
NBRD 


DE 
(DEFLG) , DE 
HL, (RECP) 
HL 

NB の 


HL, о 
РЕ, 32 
А, (ТЕР) 
А 


А 
Z,CAL1 
HL,DE 
CALO 
DE,16 
A,(HDP) 
A 
Z,CAL2 
HL,DE 
A,(SECP) 
A 


E,A 

HL,DE 
(RECP),HL 
?RECODE 


RW? 

SIZE 
A,(DVP) 

4 
Z,MEMRED 
NC,EMMRED 


A 
DSKRED 
C,REDERO 
DUMP 


А,2 
(DER*1),A 
DUMP 

А,7 
(DER+1),A 
CMDMAIN 


RW? 

SIZE 

?YN 
C,ABOUT 
A,(DVP) 

4 
Z,MEMWRT 
NC,EMMWRT 
A 


DSKWRT 
C,CMDMAIN 


DE 
GETVALMON 
(DEFLG) , DE 
с 

HL 

DE , MAXREC+1 
HL, DE 

HL 


NC , NBREC 


HL,CUSMSG 

( LOCXMON ) , HL 

PRNBP 

1BH,6,'Are you sure?(Yes-RET)',0 
INKEYMON 

9DH 

2 


HL 

HL,CMDMAIN 

HL 

HL,CUSMSG 

( LOCXMON ) , HL 

PRNBP 

1BH,2,' ABORT !! 
BDLY 


DE, (DEFLG) 


GETVALMON 
(DEFLG),DE 
C,ERROP 
A,H 


NZ,ERROP 
AL 
A 


Z,ERROP 
(SECVAL),A 
D,A 

E,0 

HL, (BUFADP) 
HL,DE 
C,ERROP 

HL 
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リス ト 2 DDED ソー ス ・ リ スト 


DE,LARGF+9199H 


A 

HL,DE 
NC,ERROP 
D,0 

E,A 

HL, (RECP) 
HL,DE 

DE ,MAXREC+2 
A 


HL,DE 
NC, ERROP 
A 


А,1 
(SECVAL),A 


SETMON: 
(DEFLG) , DE 
HL,0200H 
(LOCXMON ) , HL 
B,80 
j 


( LOCXMON ) , HL 
В,80 

A! % 
APRTMON 

SM1 

HL,1303H 
(COSYMON),HL 
PRNBP 


€CH,1BH,5,'*t* SHARP/HuMONITOR %%%”, 


орн,1вн,7,0 

LD А, OFFH 
(119DH),A 
A,10H 
(11A2H) ,A 
HL,(10F1H) 
HL 


(10F1H),HL 
A,08H 
(11А2Н),А 
А,ТЕН 
(119DH),A 
HL,1800H 
(COSYMON ) , HL 
SCRINIT 

DUMP 

EDFIN 


(03C6H),A 
HL,03E3H 
(ЗВАН) ,HL 
А,2 
(ФАВВН),А 
SP,(SPBUF) 


HXKYST: 


A,(002FH) 
9D3H 
13H 
NZ,HXFINO 
A,(992EH) 
B,6 
HL,HXPO 
(HL) 
2,НХ1 
HL 
HXO 
HXFINO 
HX1: BC,6 
HL,BC 
A,(HL) 
HXFIN: (992EH) ,A 
Е,А 
НХЕІМд: РОР ВС 


119 


LO 


リス ト 2 DDED ソー ス ・ リ スト 


1617 AF 1726 DSKERR : AF 

1618 93E3H 1727 MOTOFF 
1619 1728 AF 

1620 '/#-+=.АВСРЕЕ’ , © 1729 А 

1621 1730 NZ,DSKPTE 
1622 ; 1731 HL,CUSMSG 
1623 ; 1732 (LOCXMON) , HL 
1624 MEMSUB: MEMCK 1733 PRNBP 

1625 C,ERMEM 1734 1BH,2,' Disk I/O Error !! E] 
1626 DE, (RECP) 1735 вс,0 

1627 HL,@BFH 1736 BELL@MON 
1628 HL,DE 1737 DE,DIOER+2 
1629 C,MMADER 1738 HL,CUSMSG 
1630 1739 (LOCXMON) , HL 
1631 1740 A,15H 

1632 1741 (COLORMON),A 
1633 1742 DEPRTMON 
1634 ;BC-V-ADRES 1743 DERYBC 
1635 PUSH 1744 BELLOMON 
1636 1745 DERYBC 
1637 1746 BELLOMON 
1638 1747 DERYBC 
1639 1748 BELLOMON 
1640 1749 DERYBC 
1641 1750 BELLOMON 
1642 1751 DERYBC 
1643 1752 BELLO0MON 
1644 HL, (BUFADP) 1753 А,7 

1645 1154 (COLORMON),A 
1646 ; 1755 

1647 ERMEM: REDERO 1756 

1648 DE,MERMSG 1757 

1649 ERMMO: DER2 1758 HL,CUSMSG 
1650 1759 (LOCXMON) , HL 
1651 1760 PRNBP 

1652 MMADER: DE , MMADMS 1761 1BH,2,'Write Protect Error !!”,0 
1653 ЕВММО 1762 BC,@ 

1654 ; 1763 BELLOMON 
1655 MMADMS: "Вай Recode on MEM: !! ',0 1764 DE ,DWPER+2 
1656 ; 1765 DER2 

1657 MEMRED: MEMSUB 1766 ; 

1658 C,CMDMAIN 1767 ; 

1659 MMRDLP: 1768 МОТОҒЕ: ВС, の FFCH 
1669 1769 A,(FSTDEV) 
1661 1770 03H 

1662 1771 (С),А 

1663 1772 

1664 1773 К! А 

1665 Е 1774 

1666 NZ, MMRDLP 1775 ; 

1667 DUMP 1776 SETDCM: ВС, ОЕЕАН 
1668 ;; 1777 (С),Е 

1669 MEMWRT: MEMSUB 1778 C,0F8H 
1670 C,CMDMAIN 1719 (С),А 

1671 MMWTLP: A, (HL) 1780 А,7 

1672 (С),А 1781 А НЕ] 
1673 HL 1782 NZ,$-1 ;127 
1674 BC 1783 

1675 DE 1784 ; 

1676 A,D 1785 ; FDC ІМІТ 

1677 Е 1786 ; 

1678 NZ , MMWTLP 1787 READY: 

1679 1788 POWER 

1680 ; 1789 с 

1681 EMMSUB: HL, (BUFADP ) 1799 DE, (SECP ) 
1682 DE, (RECP ) 1791 А, (НОР) 
1683 ЕММСК 1792 А 

1684 С, EMMERR 1793 А, (DVP) 
1685 EMADSET 1794 Z,$+4 

1686 A, (SECVAL ) 1795 10H 

1687 D,A 1796 80H 

1688 E,0 1797 (FSTDEV),A 
1689 1798 С,ФЕСН 
1690 ; 1799 (C),A 

1691 EMMSUB 1800 DE 

1692 1801 

1693 1802 E,3 

1694 1803 HL,@ 

1695 1804 BC,@FF8H 
1696 1805 RDYWT1: A, (C) 

1697 1806 81H 

1698 NZ,EMRDLP 1807 Z,RTRDYS 
1699 DUMP 1808 HL 

1700 ; 1809 A,H 

1701 EMMWRT: EMMSUB 1810 L 

1702 EMWTLP: 1811 NZ,RDYWTI 
1703 1812 E 

1704 ۸ 1813 NZ,RDYWTI 
1705 1814 DE 

1706 1815 

1707 E 1816 

1708 NZ,EMWTLP 1817 

1709 1818 RTRDYS: HL, ( BUFADP) 
1710 ; 1819 DE 

TOLL DISK DRIVER 1820 

1712 ; 1821 ; 

1713 ; 1822 ; 


; 
; 
1714 DSKRED: 1823 AGNRDY: SEEK 
1715 READY 1824 REDAGN: A,5 
1716 NC,AGNRDY 1825 REDRTY: AF 
1717 C,DSKERR 1826 HL 
1718 MOTOFF 1827 A,80H ;READ COM 


1719; 1828 SETDCM 
1720 DSKWRT: 1829 DE 

1721 READY 1830 DE, OF8FBH 
1722 NC, AGNWRT 1831 

1723 C,DSKERR 1832 

1724 MOTOFF 1833 

1725 ; 1834 MPNYMI: 
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LO 


リス ト 2 DDED ソー ス ・ リ スト 


JR NZ,DERAYO 
NC,ENDRED RET 
NC,MPNYMI FDC Check 
C,E 
А,(С) 
(HL),A 
HL 

C,D 
MPNYMI 


LD р, OFFH 
ВС, ОРЕВН 
А,ФА5Н 
(С),А 
А,10 
DERAYO 
А,(С) 
0A5H 
2 
D 
NZ,POWERL 


ENDRED: 4ЕН 
DE 
Z,CNTRED 
HL 
AF 
A 


z 
DRESET 


A,(SECVAL) 
A 


2 
(SECVAL),A 
NXTSCT 
NC,REDAGN 
AGNRDY 


BC, の FF9H 
(С),А 
с 

А,2 
(С),А 
DBUSY 
HL 

DE 
SEEK 
AF 

A 


Е 

A,10H 

Е 

NC 

E,01H 
A,(FSTDEV) 
10H 
A,(FSTDEV) 
NZ,NXTTRK 
90H 
(FSTDEV),A 
C,0FCH 
(С),А 


GETLST: HL,DSKTRK 
DE 
A,(FSTDEV) 
03H 
E,A 
р,д 
HL,DE 
; DE 
NXTTRK: D 
ФЕЕН 
(FSTDEV) ,A 
С,ФЕСН 
(С),А 


ВС, の FFBH 
(C),D 

HL 
GETLST 
A,(HL) 
C,0F9H 


DBUSY: 


DE, OF8FBH 


F: 
MPNWRT : А,(С) ITSEN 


BC, OFF8H 
КС, ENDWRT BSYLP1: А, (С) 
C,BSYLP1 
DE 
A 


NC , MPNWRT 
A, (HL) 
C,E 

(С),А 


9,0,0,0,0 
'Present by JUNJI KISHI' 
0,0,0,0,0 


; 
ENDWRT: ALLEND: OF300H-ALLEND , 20H 


NZ,DSKER2 
7EH 
Z,CNTWRT 
HL 

AF 

А 


NEWSP: 
OPROG : 


2 
DRESET 
WRTRTY 


; 
DSKER2: HL 
AF 


; 
CNTWRT: 


A, (SECVAL) 
A 


z 
(SECVAL),A 
NXTSCT 
NC,WRTAGN 


; 
DERAY: 
DERAY0: 
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X1 シ リー ズ 


@ フ ァイル 逆 ア セン ブラ (FILE DIS-ASSEMBLER) 


ШХІ Player's Club = 


私 は マシ ン 語 プロ グラ ム の 解析 を 趣味 に し て いま す が , 
On Memory タ イプ の 逆 ア セン プラ を 使っ て の 解析 に は , 
か な り の 使い に くさ を 感じ て いま し た . た と えば , 大 き な 
プロ グラ ム や アド レス が 重なる よう な 場 合 , 分 割 ロ ー ド や , 
オフ セッ ト の 計算 な ど , けっ こう 面倒 な も の で す . 

そこ で , DISK や MEM, EMM な ど に ファ イル を 置い た 
まま , その 実 ア ドレ ス を 指示 する こと で , 逆 ア セン プラ 自 
身 が ロー ド お よび アド レス 管理 を 行なっ て , 逆 ア セン ブル 
を 実行 する こと が で きる 「 フ ァイル 逆 ア セン プラ (FDAS)」 
(旧名 F-DISASS) を 作っ て み ま し た . 同じ よう な 趣味 を 
持っ て いる 人 に は , ぜひ 使っ て いた だ きた いと 思い ます . 


入力 方 法 


£y, この プロ グラ ム の メモ リ ・ マ ッ プ を 図 1 に 示し ま 
3. АЛЕН, CLEAR &НЕО00 の 後 , MON コマ ンド で 
モニ タ に 入り , M コマ ンド で E000H か ら 入 力 し て くだ さ 
v (E000H—FBF7H). 

チェ ッ ク サ ム を 充分 確か め て , 間違い の な いこ と を 確認 
し た の ち , BASIC に 戻り SAVEM し て くだ さい . 774 
ル 名 は 一 応 “ЕрА5. 5127 と 付け て くだ さい . 

実行 開始 アド レス は ЕОООН TFH, ワー ク ・ エ リア と し 
<, D000H—DFFFH 04 K バ イト を 使用 する の で , 実行 
前 に は 必ず CLEAR &HD000 を 実行 し て お か な けれ ば な 


使い 方 


起動 する と , まず ター ゲッ ト ・ フ ァイル の ログ イン か ら 
始め ます . 最初 に , DEVICE(DISK, МЕМ, EMM) の 選択 
を 行ない (МЕМ: を 選ん だ 場合 は . その まま Hu-Files に 
進み ます ), その ユニ ッ ト 番 号 (DISK の 場合 は Drive 0 
—3, EMM の 場合 は 0 9) を 選び ます . 

次 に ファ イル 選択 の 方 法 を 選び ます . 

1 : Hu-Files 


2 : IPL Program 

3 : CP/M Files 

4 : Get Cluster 
ж, 表示 され ます の で , その 番号 を 入力 し て くだ さい . 
1 : Hu-Files 


FDAS 
| ГА. 


分 割 表 示 で リス ティ ング 


図 1 メモ リ ・ マ ッ プ 


0000 


1000 
14A0 


A8A8 


BASIC フ ォ ー マ ッ ト の デバ イス か ら Files を 8 行 ず つ 


表示 し ます . 1 一 8 の 番号 を 選び ログ イン し ます . ここ で 


JX — 2183 EKA 8 行 分 が 表示 され ます . 最後 まで 表示 


する と , 一 番 最初 に 戻り ます . 

一 応 , "Bin" ファ イル 以外 の “Bas” B KU “Asc” ファ 
イル に も ログ イン で きる よう に な っ て いま す . 逆 ア モン プ 
ラ と し て は , 意味 の な いこ と か も し れ ま せん が ,^FDAS? 
に は DUMP や SEARCH 機能 が ある の で , ログ イン 可能 
しま した. 


表 1 


ファ イル 情報 表示 行 の アド レス か ら 逆 アセ ンプ ブル し ます . 


コマ ンド 表 


画面 の 左 半分 を 使っ て 表示 し ます . 


| アド レス [2| | 指定 の アド レス か ら 逆 アセ ンプ ブル し ます . 


w 


| МЛ | ファ イル の メモ リ ・ ダ ンプ を 行ない ます . アド レス 指定 も 可 . 


プリ ンタ 出力 の ON OFF ス イッ チ . 


サー チ ・ モ ー ド に 入り ます . 


ЖЕН; m 
プリ ンタ を 改 ペ ー ジ . 


6 プリ ンタ を 1 行 改行 . 


| ХИ | 未定 義 命令 の 逆 ア セン プル を 可能 に し ます . 
YS 1 


Ri 


プリ ンタ 出力 時 の タブ 出力 の ON OFF ス イッ チ . 
» UP ッ プ ・ ア ドレ ス LF. アド レス 
プリ ンタ 出力 時 の スト ッ プ ・ ア ドレ ス を 設定 し ます 


[3 


未定 義 命令 の 逆 ア セン プル を 禁止 し ます . 
| | 
LONE i 


逆 ア セン プル 表示 の カラ ー チ ェ ン ジ を 行ない ます . 
| Z] | FDAS を 終了 し て BASIC に 復帰 し ます . 


省略 可 。 


画面 の 右 半 分 を 使っ て 表示 し ます . 


ログ イン ・ フ ァイル の 変更 を 行ない ます . 
| wv | ワー クエ リア 指定 . 


2 : IPL Program 

IPL 起動 の プロ グラ ム に ログ イン し ます . レ コー ド ・ ナ ン 
ババ 0 の イン フォ メー ショ ン を 読み 込み . ファ イル 情報 を 得 
ます . 
3 : CP/M Files 


CP/M フォ ー マ ッ ト の デバ イス か ら Files を 行ない ます . 


表示 お よび 選択 は 1 番 の Hu-Files と 同じ し です . た だ し , 
CP/M の 場合 , 1 つの ディ レク トリ で 扱え る 大 き さ は , 32 
K バイ ト で す の で , ファ イル 名 の 後に エキ ステ ント ・ ナ ン 
バ を 付け て いま す . 0, 1 の 場合 、 ス ター ト ・ ア ドレ ス は 
100Н か ら と な り ま す . 2, 3 の 場合 は , 8100H か ら と な り 
ます . CP/M ファ イル の み , 32K バイ ト を 超え る プロ グラ 
Aii, 分割 で 扱わ な けれ ば な り ま せん . #72, この プロ グ 
ラム の 性 質 上 , マシ ン 語 な ら 64K バイ ト を 超え る 可能 性 が 
な い の で , エン ド ・ ア ドレ ス を 0FFFFH と し まし た . この 
ЖЖ, ソー ス フ ァ イル , PRN ファ イル な ど , 64К バイ ト を 
超え る エキ ステ ント ・ ナ ン バ 3 の ファ イル に つい て は , Ж 
後 の 100H 分 が デ ク セ モス で き な を なくなり まし た . この プロ グ 
ラム は あく まで 逆 ア セン プラ な の で 許し て くだ さき さい. 

4 : Get Cluster 

これ を 選ぶ と , クラ スタ ・ ナ ン バ の 入力 待ち と な り ま す 
(00—40Н まで ). クラ スタ 単位 で 連続 し て 64K バイ ト (16 
クラ スタ ) ずつ , 疑似 ファ イル と し て ログ イン する こと が で 
きま す . ディ レク トリ ・ フ ォ ー マ ッ ト が 違う 場合 や , デー 
タ の サー チ な ど に 使え ば 便利 だ と 思い ます . 

以上 それ ぞ れ の 各 入 力 待ち に お いて , [ SHIFT |+ 
Г BREAK | で 初期 画面 に 戻り ます . 初期 画面 で は , 
Г SHIFT |+| BREAK | は プロ グラ ム 終 了 と な り ま 
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ログ イン が 完了 する と , 画面 が 左右 2 分 割 使用 の 状態 と 
ж), 右 下 段 に ログ イン し た ファ イル 情報 を 表示 し , 左下 
段 に は 入力 行 が 表示 され ます . 

ファ イル 情報 表示 の 意味 は . まず 最初 の 1 文字 が , 
Device を 表わし , D=DISK, М= МЕМ, Е-ЕММ と な 
り ま す . 次 の 1 文字 が その ユニ ッ ト 番 号 に な り , その 次 に 
яхт: Y (Bin, Bas, Аве, 1Р1 
CPM, 777), ファ イル 名 と な り ま す . そし て , その ファ 
イル の ロー ド ・ ア ドレ ス , エン ド ・ ア ドレ ス お よび 実行 開 
始 ア ドレ ス が 表示 され て いま す . 

入力 行 に は , プリ ンタ 出力 スイ ッ チ の ON/OFF お よび , 
FDAS の 持つ ロケ ーション ・ カ ウン タタ と し て の アド レス 情 
報 を 表示 し , コマ ンド 待ち と な り ま す . 初期 の アド レス と 
LC, 実行 開始 アド レス が セッ ト さ れ て いま す . 


コマ ンド の 説明 


RICI FERLET. これ を 見 て くだ され ば , 
大 体 の と ころ は わか る と 思い ます が , 一 応 注意 の 必要 な コ 


マン ド な どの 説明 を し て お きま す . 
FDAS で は , 入力 数 値 は すべ て 16 進 数 を 使う の で 注意 し 
て くだ さい . 


@ 逆 アセ ン ブ ル 


痕 キ ー の み を 入力 する と , 入力 行 に 表示 され て いる アド 
レス か ら 逆 アセ モン ブル し ます . 16 進 数 で アド レス を 入力 す 
る こと で , その アド レス か ら 逆 アモ ンプ ブル し ます . СО 
24 行 表示 し た 時 点 で 1 文字 入力 待ち に な り ま す .- ここ で , 
[キー を 押す と , 次 の 24 行 を 表示 し ます . また , 
[ SPACE | キー を 押す こと で 1 行 ず つ 逆 アセ ンプ ブル き さき 
せる こと が で きま す . [ BREAK | キー の み で も 可 . 

SHIFT |-| BREAK | を 押す と コマ ンド ・ モ ー ド 
に な り ま す . 他 の キー を 押し た 場合 も コマ ンド ・ モ ー ド に 
戻り ます が , 押さ きれ た キー が 入力 行 に 表示 され る の で , < 
の まま コマ ンド と し て 入力 する こと が で きま す . 


ел се, L.) 


左右 それ ぞ れ の 画面 に 対し て . それ ぞ れ の ロケ グ ケー ショ 
ン ・ カ ウン タ を 持ち , 使用 画面 を 切り 換え る ご と に , 表示 
アド レス も 変化 し ます が , L(LEFT), R(RIGHT) コ マン ド 
が 実行 され る た びに , アド レス が SWAP され る だ け な の 
C, た と えば , 左 画面 を 使用 中 に 上 コマ ンド を 実行 する 
k, 画面 は そ を の まま で , アド レス の み 変 化し ます . これ に 
より , 逆 画面 の アド レス を 引き 継ぐ こと が で きま す . 


@ プ リン タ (〈P) 


プリ ンタ 出力 ON 状態 で 出力 時 , プリ ンタ が オフ ライ ン 
な どの と き , 一 定時 間 経過 後 , BEEP 音 が 発生 する の で , 
その 後 , | SHIFT |-| BREAK | を 押す こと で コマ 
ンド ・ モ ー ド に 復帰 する こと が で きま す . そこ で P コマ ン 
ЕС OFF に し て くだ さい . 


@ ツ プ (T) 


プリ ンタ 出力 に お いて , 通常 画面 表示 と 同じ 1 行 40 文 字 
デバ イス の 選択 


>} азег’= Club 


JUNJI KISHI 


Input DEVICE 
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X2 Z80 セ カン ド ・ ソ ー ス (SHARP 製 ) の 未定 義 命令 


IXH, 
IXL, 
IXL, 
IXL, 


IXH,IXH | 
IXH,IXL | 


S 
v (SET) 


R 
(RESET) 


L. 
(LIST) 


の ミロ の ミロ の ミロ 


| 


出力 を 行ない ます が , T コマ ンド 投入 後 は 1 行 80 文 字 出 力 
と な り ま す . プリ ント 後 , いろ いろ 書き 込め る よう に と 考 
ACC, この 機能 を 作り まし た . ステ ー タ ス 表 示 が P : ON の 
と き , ON の 文字 色 が 変化 し ます . 

た だ し , 逆 ア モン ブル 出力 時 の み 有 効 で す . 


@ ス トッ プ ・ ア ドレ ス (Z) 

Z コ マン ド の スト ッ プ ・ ア ドレ ス と は , 指示 し た アド レス 
に 達する と コマ ンド ・ モ ー ド に 復帰 し , 出力 を 停止 する た 
め の も の で す . アド レス を 省略 し た 場合 は , ファ イル ・ エ 
ンド ・ ア ドレ ス が 設定 され ます . 

特に , プリ ンタ 出力 の と き に 使用 する と 便利 で し ょ う . 


@ ダ ンプ CM) 


アド レス 指定 を する と その アド レス か ら , 省略 する と コ 
マン ド 行 表示 アド レス か ら ダ ンプ し ます . 表示 方 法 は 逆 ア 
セン プル 時 と 同じ で す . やはり, [| SPACE | キー で 1 行 
ずつ 表示 する こと が で きま す . 

@ サ ー チ ・ モ ー ド (S) 

S(SEARCH) コ マン ド を 入力 する と , サー チ ・ デ ー タ 入 
力 待 ちと な り ま す . 入力 行 で は , 16 進 数 2 文字 で 1 バイ ト 
を 意味 し , 2 文字 で ある 限り 連続 し て 入力 する こと が で き 
ます . 最大 15 バ イト まで の 入力 を 受け 付け ます . 


16 進 入力 だ け で な く , キネ キャラ クタ 入力 も 可能 に し て いま 
3. その 場合 は , 1 文字 目 に ~:? (セミ コロ ン ) を 入れ る 


こと に より , 次 の 1 文字 が キャ ラク タタ 入 力 と 判断 され ます . 


EI, プライ ンド 文字 の 指定 も で きま す . 指定 方 法 は , 
2 文字 続け て ヾ ?? を 入力 し ます . する と , サー チ 時 。 Ж 
の 1 バイ ト は 比較 の 対照 外 に な り ま す . た と えば , 1000H 
台 を CALL し て いる 場所 を サー チ し た い 場 合 , その ター ゲ 
ッ ト ・ オ プ ジ ェ クト は ‘С0х x10’ ERD, 2 バイ ト 目 は 
指定 で き な い こと に な り ま す . こん な と き に , “CD? 710" 
と デー タ を 入力 すれ ば , サー チ が 可能 と な り ま す . 
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すべ て の ワー ク ・ テ ー ブ ル を クリ ア し ます 。 


А, IXH 
А, IXL 
ІХН 
IXL. 
ІХН 
IXL. 


IXH 
IXL. 
ІХН 
Іх 


Ж 味 


DEFS の 


DEFB の アド レス を セッ ト し ます . 


DEFW の п 


DEFS の п 


DEFB の アド レス を リセ ッ ト し ます . 
DEFW の " 


DEFS の п 


DEFB の セッ ト さ れ て いる アド レス を リス ト ・ ア ッ プ し ます . 


DEFW の " 


DEFS の ” 


入力 エラ ー が あっ た と き は , そこ まで の 入力 デー タ を 有 
効 と し て サー チ を 開始 し ます . 

サー チ 時 , 入力 デー タ と 同じ し デー タ を 見 つけ だ 時 点 で , 
その 先頭 アド レス お よび デー タ の ダン プ を 表示 し ます . Ж 
LC, その デー タ を 見 つけ た クラ スタ No,。 セク タ No お よび 
セク タ 内 ポイ ント を 表示 し , 1 文字 入力 待ち と な り ま す . 
ここ で [ BREAK | キー を 押す と コマ ンド ・ モ ー ド に 復帰 
し ます . 他 の キー を 押す と , 次 の サー チ を 開始 し ます . 

サー チ 和 人 範囲 は ログ イン ・ フ ァイル の ロー ド ・ ア デア ド レス 
か ら エ ンド ・ ア ドレ ス ま で に 固定 され て いま す . 

逆 アセ ンプ ル 実 行 中 


@ 未 定義 命 信 (X。 Y) 


許可 する と ,1/O 誌 の RANDOM BOX に 発表 され て いた 
内 容 の と お り , 未定 義 命 令 を 含め て 逆 ア セン プル する こと 
が で きま す . 

表 2 に 再 録 き せ て いた だ きま し た . 


@ ワ ー ク ・ エ リア CV) 
逆 ア セン プル 時 に , ワー ク ・ エ リア を ПЕЕВ, DEFW, 
DEFS で 表示 させ る も の で す . 表 3 が コマ ンド 表 で す . п 


24-1 ワー ク ・ エ リア 


ファ イル の 分 割 ロー ド ・ エ リア . 1 クラ スタ 分 . 
4K バ イト . 
1 行 入力 バッ ファ お よび 1 行 出力 バッ ファ . 


使用 画面 の ロケ ーション ・ カ ウン タ . 
逆 ア セン ブル 時 の 表示 アド レス . 
不 使用 画面 の ロケ ーション カウンタ. 
DEVICE FLAG(0 DISK, 1 MEM,2 ЕММ). 
ファ イル ・ ロ ー ド ・ ア ドレ ス . 
ファ イル ・ エ ンド ・ ア ドレ ス . 
プリ ンタ ・ ス トッ プ ・ ア ドレ ス . 
ログ イン ファ イル の FAT. 
| F939 | 32 | ログ イン : フ ァイル の イン フォ メー ショ ン 。 | 
| F959 | 2 | バー ジョ ン No.(BCD 値 ) | 
[NEW STACK | FFOO | | FDAS の 初期 スタ ッ ク 値 。 | 


マン ド 構 成 図 を 見 れ ば , 簡単 に 覚 を られ る と 思い ます . な 


>| 


т 
со 
т 
е 


1 
1 
1 
1 
2 


Б, 起動 時 は , 各 コ マン ド は 使用 で き な い 状態 に あり ます . 


УСА を 最初 に 実行 し て 初め て 使用 可能 と な り ま す . た だ 
L, ワー ク ・ テ ー プ ブル と LT, VRAM の A000H — FFFFH 
まで 使用 する の で , デバ イス に MEM :? を 設定 する と き 
に は 注意 が 必要 で す . と いう より も , "MEM : ” の と き は 
使わ な い 方 が 覧 明 で し ょ う . 

DEFB, DEFW の アド レス 入力 は , 1 アド レス ずつ 入力 
し て くだ さい . 康 キ ー の み を 入力 する と , コマ ンド 入力 待 
ち に 復帰 し ます . 

DEES の 場合 は , スタ ー ト ・ ア ドレ ス と エン ド ・ ア ドレ 
ス を 入力 し て くだ さい . 区 切り は 必ず , スペ ー ス で 行なっ 
て くだ さい . 

リス ト ・ ア ッ プ で は , CRT 表示 の み と な り ま す . プリ ン 
Я ON 状態 で も プリ ンタ 出力 は し ませ ん . DEES な ど は , 
逆 ア セン ブル ・ リ スト を プリ ント アウ ト す る よう な と き , 
不 必要 な 部 分 を DEFS 指 定 す る こと に より その 部 分 は 
DEFS の 1 行 で 終わ り ま す の で , 時 間 と 紙 の 省エネ に な り 
ます 。 


@ ロ グイ ン 変 更 (*) 


他 の ファ イル に ログ イン する と き に 使い ます . 初期 画面 
に 戻り ます の で , ここ で ディ ズ ケ タッ ト な どの 変換 が 可能 で 
3. あと は , 初め か ら や る の と 同じ こと で す . な お , ワー 
ク ・ エ リア は クリ ア さ れ ま す . 


@Asc ファ イル の 取り 扱い に つい て 


FDAS で は , 最大 64K バイ ト ま で の ファ イル し か 取り 扱 
い が で きま せん . “Asc” ファ イル の 場合 、 ディレク トリ の 
イン フォ メー ショ ン に は , 大 き さ の 表示 が な い の で , FAT 
か ら そ の アロ ケー ショ ン を 追い か け ,、 エン ド ・ マ ー ク が 見 
つか る まで 大 き さ を 調べ て いま す . た だ し , 64K バイ ト , 
すなわち 16 ク ラス タ を 超え る 場合 は , 以降 を 無視 し ます . 
で すか ら , ログ イン 後 , ファ イル 情報 表示 を 見 て , エン ド ・ 
アド レス が FFFFH の 場合 は 注意 が 必要 で す . 

"Asc" $ ХС "Bas" の ファ イル で の アド レス は , あく 
まで 便宜 的 な も の だ と 思っ て くだ さい . 

жі, "Asc" 7 ファ イル の イン フォ メー ショ ン が 異常 な 場 
f$. 特に , ロー ド ・ ア ドレ ス が 0000 以 外 の と き , エン ド ・ 
アド レス が ロー ド ・ ア ドレ ス よ り 小 さく な る 場合 が あり ま 


LO 


表 4-2 BASIC 内 ルー チン ・ コ ー ル お よび ワー ク 
アド レス а.ж > bk 


_ | 04BC | CRT へ 1 文字 プリ ント (CTRL は 実行 ) . 


Т | 04C8 | CRT へ 1 文字 プリ ント (CTRL コ ー ド も 表示 ). 
0 | ogc | 1 行 80 桁 画面 に する . 


INIT. ог [СТВ |+ [D] 
Beep. 

1 文字 入力 (入力 な し xw). 
1 文字 入力 (カー ソル 点滅 し て 入力 あり まで 待つ ) . 


コン ソー ル 文 Y 方 向 ワー ク . 
[BREAK | キー フラ グ . 
E | 006 | 1 行 入力 時 の 文字 数 フラ グ . 
| ОРБС | 0A8B | オプ ショ ン ・ ス クリ ー ン ・ フ ラグ . 
3. その と き に は , すべ て の アド レス が ファ イル の 範囲 外 
と 判断 され , すべ て NOP(00H) の 扱い と な っ て し まい ま 
4. "Ви ファ イル で も 同じ こと が 言え ます . シス テム 辞 
書 デ ィ ス ク な ど が これ に 当たり ます . 


その 他 


アド レス 指定 時 に , ログ イン ・ フ ァイル の アド レス 領域 
以外 を 指示 し た 場合 は , すべ て NOP(00H) の 扱い と な り 
ます . 

デバ イス 関係 に お いて , エラ ー が 発生 し た 場合 , エラ ー 
表示 後 1 文字 入力 待ち と な り , 初期 画 面 (* コ マン ド を 実行 
し た の と 同じ ) に 戻り ます . 

FDAS が 使っ て いる ワー ク ・ エ リア を 表 4 に 示し て お き 
ます 興味 の ある 方 は 調べ て みて くだ さい . 


% nA 
最後 に 
この FDAS (4, DDED の 湊 に 作っ た オー ル ・ マ シン 語 の 
プロ グラ ム で す が , ソー ス 記 述 に つい て 自分 で は な る べく 
わか りや すく , 後 で 見 て も 理解 で きる よう に 気 を つけ て 書 
7605090034. 775, そう 思う こと と そう で きる こと と 
は 違う と いう こと , まだ そう する こと が か な り 難 し いも の 
で ある と いう こと が わか り ま し た だ . 
今回 発表 の も の は , バー ジョ ン 5.12 と な り ま し た . НН 
I/O 誌上 で バー ジョ ン ・ ア ッ プ を 重ね て きま し た が , それ ら 
を まとめ て さら に , CP/M ファ イル の ログ イン 追加 , デバ 
イス ・ ド ライ バ の 追加 を 行ない まし た だ た. そのため, Hu- 
BASIC の IOCS 部 分 の み を コー ル し て いる だ け で す の で , 
ソー ス ・ レ ベル で の BIOS-ROM 対応 は それ ほど 難し く な 
いと 思い ます . 挑戦 し て みて くだ さい . 当然 , DDED も 含 
め て そう で す が , turbo に お いて も turbo BASIC 以外 の 
BASIC を 立ち 上 げ る な ら , 問題 な く 動 きま す . 


参考 文献 

1 ) 坂口 芳明 , 八木 裕和 : "Z80422 У ЕУ — X (SHARP 
ш) の 未定 義 命令 ?, ПО, "84 年 1 月 号 

2) マシ ン 語 プロ グラ ミン ググ 入門, MIA 

3) "DISK BASIC РІ ЖЖ”, マイ コン , 84 年 3 月 号 
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UAM FDAS ダン プ ・ リ スト mnr a 


2D CD :B1 
Е4С0 C1 ED ЗА 48 Е9 57 1E 00 CB ЗА CB 1B 19 ЗА 45 F9 :1A 
E4DO CB 47 28 04 11 00 40 19 30 03 21 00 00 2B 22 1C :65 
:44 


dd +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +C +D +E +F :Sum 
Е000 ED 73 04 E7 31 00 FF CD ЗЕ ОА ЗА 8В ОА 32 ЕС Е6 :74 
Е010 ЗЕ 02 32 8В ОА ЗА 06 00 32 Е7 Еб ЗЕ 28 32 06 00 :F4 
Е020 CD 98 09 ЗЕ 17 21 CB 12 32 41 ЕВ 22 42 ЕВ АЕ 32 :4F 
Е030 45 ЕВ 32 5А E8 ЗЕ ОЕ 32 87 ED ЗЕ FO 32 82 ED ЗЕ :А4 
E040 ОҒ 32 9A ED ЗЕ 10 32 56 ЕВ АЕ 32 С8 F2 06 7D 21 :C8 
Е050 DC F8 77 23 10 ЕС 21 04 00 22 ОЕ 00 11 4F ЕТ СР :ЕЗ 
E060 Е4 E9 2A 59 F9 7С CD Е5 Е8 ЗЕ 2E CD ВС 04 7D CD :A2 
Е070 DC ЕВ CD A7 04 CD АТ 04 ЗЕ ОЕ 32 OE 00 11 6A F7 :B2 
Е080 CD Е4 Е9 ЗЕ 16 32 ОЕ 00 11 82 ЕТ CD Е4 Е9 11 23 :86 
Е090 F8 CD E4 Е9 CD АА 02 ЕЕ 03 СА Е6 E6 FE 31 28 ОА :13 
ЕОАО 


Sum 49 АА Еб Еб D9 ВС 75 67 Е1 С4 85 B8 93 45 91 6E 


:E9 


ЖЕ +Е :Sum 
Е900 29 29 85 6F ЗЕ 00 8С 67 18 ЕЕ АЕ СЭ 13 1А FE 20 :41 
D8 D6 :Е4 


126 


LO 


JAM FDAS ダン プ ・ リ スト 
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10 


リス ト 1 FDAS ダン プ ・ リ スト 
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2F 44 49 53 2D 41 53 53 45 4D 42 


56 65 72 2E 00 1B 05 62 79 20 58 :Е1 


79 
55 
50 
4Е 
ор 
20 
20 


65 
4Е 
ЗА 
46 
ор 
ЗА 
ЗА 


72 27 
4А 49 
1В 02 
46 20 


13 
20 
4Е 
00 
ЗА 
50 
50 
74 
63 


20 
4B 
4Е 
1В 
20 
4с 
2Е 


43 
49 
20 
04 
48 
20 
4D 


6C 
53 
20 
41 
75 
50 
20 


75 62 
48 49 
00 ос 
44 52 
2р 46 
72 6F 
46 69 
75 73 
6F 2E 


ор :0B 
0D :54 
1B :E3 
3A :D5 
69 :A1 
67 :9A 
6C :44 
74 :DE 
20 


+F :Sum 
69 :Е5 
20 :02 
56 :96 
4В :ЕЭ 
04 :3E 
41 :DB 
53 :4B 
02 :C6 
20 :94 
20 :00 
20 :00 
20 :с0 


ЖЕ :Sum 
00 :00 
FF :FF 
00 :44 
00 :00 
00 :00 
00 :97 
E1 :F1 
El :EC 
2Е :D8 
F9 :6E 
D8 :14 


но! スト 2 FDAS ソー ス ・ リ スト 


LO 


ча O сл о мо‏ ما © س دم دن а‏ © دہ Оо‏ ص 


ооо го 
os 


VERSN EQU 9512H 


by Player's Club 


JUNJI KISHI 


JUN/FILE/DIS-ASSEMBLER 


ORG 9E999H 
; 


; 
ACCPRT EQU 


давсн ;MON 
CHRPRT EQU дасвн умом 
WDTH89 EQU 998CH ; MON 
KBUFF EQU 9EA5H ; MON 
COLOR EQU 0026H ;MON 
LOCX EQU 990EH ;MON 
CONSX EQU 991EH ;MON 
CONSY EQU 9916H ;MON 
LINPUT EQU 017СН ; MON 
CTRLD EQU 9A3FH ; MON 


BREAK EQU 
BELL EQU 
LSIZE EQU 
POINT1 EQU 
POINT2 EQU 


9936H ; MON 
97F7H умом 
9996H умом 
OEA6H ; MON 
ФЕАТН умом 


¿Version No. 


まま キキ キキ キキ キネ キキ キネ キキ キキ キキ 本 オオ ネネ ネネ ネネ 


INKEY9 EQU 030CH ;MON 
INKEY1 EQU 02AAH ; MON 
OPSC EQU 9A8BH 
WDTH40 EQU 0998H 
CRPRT EQU 04A7H 
SPPRT EQU 94BAH 
; 
NEWSTACK EQU @FFQQH 
BUFFA EQU $-1000H ;WORK (4Kbyte) 
; 
; 
START: LD (FIN1+1),SP 
LD SP,NEWSTACK 
CALL CTRLD 
LD A, (OPSC) 
LD (FIN0+1),A 
LD А,2 
LD (OPSC),A 
LD A, (LSIZE) 
LD (FIN*1),A 
LD А,28Н 
LD (LSIZE),A 
FILINP: CALL WDTH40 
LD A,17H 
LD HL,12CBH 
LD (OFSREC-3),A 
LD (OFSREC-2 ) ,HL 
XOR A 
LD (OFSREC+1 ) ,A 
LD (SHBC),A 
LD А, の FH 
LD (СТВТ1), А 
LD A,OFOH 
LD (ствтд+1),А 
LD A,OFH 
LD (ТАКЕ+4),А 
LD А, 10H 
LD (READEV+4),A 
XOR A ;INIT 
LD (CKVRAM*1),A ; 
LD B,VERSION-NOWADR; WORK 
LD HL,NOWADR ; k 
LD (HL),A ; FLAG 
INC HL $ 
DJNZ $-2 ; 
LD HL,0004H 
LD (LOCX),HL 
LD DE, TTLMS 
CALL DEPRT 
LD HL, (VERSION) 
LD A,H 
CALL PRNHEX 
LD ТЫЛЫ 
CALL ACCPRT 
LD А, 


LD А,14 

LD (LOCX),A 

LD DE ,CLUBMS 

CALL DEPRT 

LD А,22 

LD (LOCX),A 

LD ОЕ, ЈОММ5 

CALL DEPRT 

LD БЕ, DEVMS 

CALL БЕРЕТ 
FILQ1: CALL TNKEY1 

CP 3 

JP Z,FIN 

СР "yt 

JR Z,DSK00 


108 
109 


145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 


EMM0Q : 


ЕММд1: 


FILES: 


FLS0: 


LP1111: 


ОРИ 
2,МЕМ00 
ЖҰ 

Z, ЕММ00 
FILQ1 


ACCPRT 
CRPRT 
DE,UNITMS 
DEPRT 

А, 3" 
АССРЕТ 
Att 
ACCPRT 
ІМКЕҮІ 
30H 
C,DSK01 
34H 
NC,DSK01 
ACCPRT 
(МАМЕМ5%1),А 
зон 


(UNITNO) ,A 
CRPRT 

A 
(DEVICE),A 
A,'D' 
(NAMEMS ) , A 
FILES 
ACCPRT 
CRPRT 

A 
(UNITNO),A 
A 
(DEVICE),A 
А, *М’ 
(NAMEMS ), А 
А, 9” 


(NAMEMS*1),A 
HUFLS 


ACCPRT 
CRPRT 
DE,UNITMS 
DEPRT 
A,'9' 
ACCPRT 
А,')! 
АССРЕТ 
INKEY1 

ZU 
C,EMMO1 
3AH 

NC, EMM0 1 
АССРЕТ 
(NAMEMS*1),A 
зен 
(UNITNO),A 
CRPRT 

А,2 
(DEVICE) ,A 
А,'Е' 
(МАМЕМ5),А 
DE,IPL?MS 
DEPRT 
ТМКЕУ1 

АЕ 

СНЕРЕТ 

A, 1DH 
ACCPRT 

AF 

3 

Z,FILINP 
13H 
Z,FILINP 
EU 
Z,HUFLS 

A 


Z,IPLOO 
A 

Z,CPM 

A 


Z,CLUST 
FLS9 


DE , QEH 
READEV 


HL , BUFFA+0200H 
(POINAD ) ,HL 


WDTH4O 
BC,0800H 
HL, (POINAD) 
(OLDBUF),HL 
HL 

BC 

HEAD 

A,(HL) 

A 

Z,FILEND 

A 

Z,KILFIL 
А,6 
(COLOR ) ,A 


;REC.No. 
;READ DEVICE 
RUNPRO 
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215 


216 
217 
218 
219 
220 
221 
222 
223 
224 
225 1,Р4444: 
226 
227 
228 
229 
230 
231 
232 CALSEL: 
233 
234 
235 
236 
237 
238 
239 
240 LOOP4: 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 


281 
282 FLP33: 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 FLP44: 
293 FLP55: 
294 
295 
296 FLP88: 
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ТҮРЕ 

В,13 
HLBPR 

А,5 
(COLOR) ,A 
PRDPR 

А,6 
(COLOR) , A 


HL 
DE,0020H 
HL,DE 
LP1111 
(POINAD),HL 
SELECT 
C,FILINP 
орн 
2,АСМ 

А 

В,А 

HL, (OLDBUF) 
DE,20H 
HL,DE 
LOOP4 

A 

HL,DE 
A,(HL) 

A 
Z,NOFILE 
A 


Z,KILLED 
DE,FCBLOC 
BC,20H 


A 

DE,POINTA 
(DE),A 

DE 

А, (ЕСВЬОС ) 

7 

4 

Z,ASCFAT 

HL, (FCBLOC*12H) 
HL 


A,(FCBLOC*1EH) 
(DE),A 

DE 
HL,BUFFA 
А,1. 
NC,$+3 

H 

L,A 

A,(HL) 
(DE),A 

DE 

FLP99 
A,(FCBLOC) 
HL,BINMES 
9,А 
NZ,FLP55 
HL, BASMES 
1,А 
NZ,FLP55 
HL,ASCMES 
2,A 
NZ,FLP55 
HL,???MES 
DE,NAMEMS+3 
BC,3 


HL,FCBLOC+ 1 
DE , NAMEMS +7 
BC, 13 


А, 
(DE),A 
DE 
BC,3 


HL,(FCBLOC*16H) 
(NOWADR),HL 
(КАРЕ) , HL 
IX,NAMEMS*35 
?HEXHL 

HL, (FCBLOC* 14H) 
(STADR ) ,HL 

IX ,NAMEMS+25 
?HEXHL 

Ка = 

?АКС 

DE, (FCBLOC+12H) 
HL,DE 

HL 

(ENDADR ) , HL 
(FENDAD ) , HL 
?HEXHL 

GETCLUS 

MAIN99 


SELECT: 


SEL888: 


; 
LOOP3: 


SEL33: 


; 
ASCFAT: 


ASF00: 


А5Ед1: 


OPSIPL: 


IPL232: 


; 
IPL00: 


HL,0008H 
(LOCX ) , HL 
А,4 
(COLOR) , A 
DE,TITL 
DEPRT 
HL,020AH 
(LOCX),HL 
A,3 
(COLOR),A 
DE,SELMSG 
DEPRT 
HL,021BH 
(LOCX),HL 
А,7 
(COLOR) ,A 


INKEY1 
CHRPRT 


'1' 
C,SEL888 
8 


NC,SEL888 
A 


А, (FCBLOC+1EH) 
(DE),A 

DE 

BC,0F00H 
HL,BUFFA 


А, 
H,A 
1,0 


(FCBLOC+12H ) ,HL 
FLP33 


ВС, (FCBLOC+12H ) 
BC 

A, OFOH 

B 


B,A 

B 

HL, POINTA 
A 


(НІ) ,A 

HL 

А, (FCBLOC+1EH ) 
(HL) ,A 


DE,9 
READEV 
HL,BUFFA 
DE,FCBLOC 
BC,20H 


HL, FCBLOC*1EH 
A,(HL) 

ФЕН 
(OFSREC+1),A 
A 

HL 


; 


KILLED: 


NOFILE: 


J1111: 


; 
FILEND: 


; 
KILFIL: 


70000: 
; 


; 
HEAD: 


TYPE: 


HLBPR: 


PRDPR: 


; 
CPM: 


CLPO: 


CJP0: 


CJP1: 


OPSIPL 
HL,IPLMES 
FLP55 


DE ,KLDMSG 
J1111 
DE,NFMSG 


HL, 1602Н 
(LOCX ) , HL 
DEPRT 
CALSEL 


DE ,ENDMSG 
DEPRT 


HL, BUFFA+9299H 
CALSEL-3 


DE,KILMSG 
DEPRT 
LP4444 


(LOCX ) , HL 
А,5 
(COLOR) ,A 
DE ,HEADMSG 
DEPRT 

А,6 
(COLOR), A 


(COLOR) , A 
DE,COLN99 
DEPRT 


DE 
A,(HL) 

HL 

0,4 
DE,BINMES 
NZ,? 0 
DE, BASMES 
1,А 
NZ,?_9 

DE ,ASCMES 
2,А 
М2,?_@ 
DE,???MES 
DEPRT 

DE 


A,(HL) 
HL 
CHRPRT 
HLBPR 


A 4 
ACCPRT 


DE, 40H 
READEV 
HL, BUFFA 
DE, BUFFA 


BC, 20H 
А, (HL) 
ФЕ5Н 
Z,CJP@ 
CJP1 
HL,BC 


HL 
BC,BUFFA+0800H 
A 


C,CLP0 


CPMAGN: 


CPM0: 


CPMSEL: 


HL,BUFFA 
(NPNT),HL 


WDTH4O 

HL, (NPNT) 
(OPNT),HL 
BC,0800H 


A 
Z,CPMEND 
HL 

B,8 
HLBPR 
PRDPR 
B,3 
HLBPR 
SPPR4 

A, (HL) 
ACCHEX 
BC 

C 

HL 
DE,20H 
HL,DE 
CPM の 
(NPNT ) ,HL 


SELECT 
C,FILINP 
орн 
2,СРМАСМ 
А 

В,А 

HL, (ОРМТ) 
DE,20H 
HL,DE 
$-1 

A 

HL,DE 
A,(HL) 

A 


Z,CPMNON 
DE, FCBLOC 
BC,20H 


DE,POINTA 
A 


HL, FCBLOC+ 10H 
BC, 10H 


HL, CPMMES 
DE , NAMEMS+3 
BC,3 


HL , FCBLOC+ 1 
DE , NAMEMS+7 
BC,8 


$-2 

А, (FCBLOC+12 ) 
HL,0100H 

1,А 

2,8%5 
HL,8100H 
(NOWADR) , HL 
(LRADR) , HL 
(STADR) , HL 
IX, NAMEMS+35 
?HEXHL 
ІХ,МАМЕМ8%25 
?НЕХНІ, 

2 

?ARG 

A, (FCBLOC+15) 


HL, DE 

A, (FCBLOC+12) 
0,A 

Z,$+6 
DE,4000H 
HL,DE 

NC,$+5 
HL,0000H 


LO 
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LO 
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651 DEC HL 

652 LD (ENDADR ) , HL 
653 LD (FENDAD ) , HL 
654 CALL ?НЕХНІ, 
655 LD HL,OFSREC-3 
656 XOR A 

657 LD B,3 

658 LD (HL),A 
659 INC HL 

660 DJNZ $-2 

661 INC HL 

662 LD A,40H 

663 LD (HL),A 
664 LD (SHBC),A 
665 LD A,78H 

666 LD (СТВТ@+1),А 
667 XOR A 

668 LD (GTBT1),A 
669 LD A,07H 

670 LD (TAKE*4),A 
671 LD A,08H 

672 LD (READEV*4),A 
673 CALL GETCLUS 
674 JP MAINQQ 
675 

676 CPMEND: 

677 LD РЕ, ENDMSG 
678 CALL DEPRT 

679 POP BC 

680 POP HL 

681 LD HL,BUFFA 
682 JP CPMSEL-3 
683 

684 CPMNON: 

685 LD DE,NFMSG 
686 LD HL,1602H 
687 LD (LOCX),HL 
688 CALL DEPRT 

689 JP CPMSEL 
690 ; 

691 ; 

692 SPPR4: 

693 CALL SPPR2 

694 SPPR2: CALL SPPRI 

695 SPPRI: JP SPPRT 

696 

697 ; 

698 ОР5000: 

699 OPS003: 

700 CLUST: 

701 LD DE , ОРМ$0 
702 CALL DEPRT 

703 LD РЕ, WORK 
704 LD B,2 

705 OPS002: 

706 CALL INKEY1 
707 СР 3 

708 JP Z,FILINP 
709 cP 13H 

710 JP 2,ЕТІЛМР 
711 LD (ОЕ), А 
712 ІМС DE 

713 CALL ACCPRT 
714 DJNZ OPS002 
715 CALL CRPRT 

716 DEC DE 

717 DEC DE 

718 CALL GETAVAL 
719 JR C,OPS003 
720 cP 41H 

721 JR NC,OPS003 
722 PUSH AF 

723 XOR A 

724 LD (OFSREC+1),A 
725 LD B,32 

726 LD HL,FCBLOC 
727 LD (HL),A 
728 INC HL 

729 DJNZ $-2 

730 POP AF 

731 LD (FCBLOC*1EH),A 
732 LD IX,OPMS2 
733 CALL ?HEXACC 
734 LD HL,OPMS1 
735 LD ОЕ, ЕСВЬОС+1 
736 LD BC,16 

737 LDIR 

738 CALL OPSIPL 
739 JP FLP44 

740 ; 

741 OPMS0: 

742 DEFB 

743 OPMS1: 

744 OPMS2: DEFB в 
745 DEFB 'Cluster -64К',0 
746 ; 

TEF x 

748 

749 

150; 

151; MAIN ROUTIN 

782 ; 

753 MAIN99: CALL WDTH8O 
754 CALL CONSIL 
755 CALL RIGHT 

756 CALL LEFT 

757 MAIN: CALL CONSIL 
758 LD A,(PRNF) 
759 LD DE,OFFMSG 


27,6,13,13,'Input Start Cluster(s) 


;MOST UNDER LINE 


"0 
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РОМОЕЕ: 


1,Р55: 


HLDASM: 


JSTDAS: 
MNDASM: 


DASM00: 
CLRFG: 


CL62?: 


PUTSCL: 


A 

Z,PONOFF 
DE,ONMSG 
DEPRT 
DE,ADRMSG 
DEPRT 

HL, (NOWADR) 
HLHEX 
DE,CMDMSG 


C,MAIN 
DE,WORK*22 
A,(DE) 
ОНО 
NZ,MAIN 
DE 

A, (DE) 
54 
Z,LP55 
m 

Z,FIN 

ж. 
Z,FILINP 
HL,MAIN 
HL 

'R' 
Z,RIGHT 
'L' 
Z,LEFT 
эр’ 
Z,PRINT 
J’ 
Z,LPCLSO 
"KI 
Z,LPCRLF 
Du 
Z,CLMOD 
ет, 

2, МЕМТАВ 
Mu 
Z,MDUMP 
"S! 
Z,SEACH 
"2 
Z,SETFEND 
は の 
Z,PLUSFD 
жү, 
Z,MINAS 
ү, 
Z,VRAMOD 
"Xt 

2, ОРЗТОМ 
00H 
Z,JSTDAS 
GETVAL 

c 
(NOWADR),HL 
А,1 
(SCOLNF),A 
CONSOL 
А,7 
(COLOR),A 
A, (SCOLNF) 
A 

NZ, PUTSCL 
DISASS 
DE,WORK 
А,0 


MNDASM 


A 
(SCOLNF),A 
SETCLN 

A,2 


¿mon ;LINE INPUT 


PACE SKIP 


¿RETURN 


;FILE INPUT 


;RET ADDRESS SET 
¿RIGHT CONSOLE 


;LEFT CONSOLE 

; PRINTER ON/OFF 

H id F.F. 

: xt L.F. 

iCOLOR F.F. 

¿TAB SET/RESET on PRINTER 
¿MEMORY DUMP 

; SEACH DATA 

;END ADR. with Printer 


;PLUS DD,FD 


; VRAM MODE 


;NON LINPUT 


;mon ;Get Address 
; ERROR INPUT 
; INPUT ADDRESS 


;FLAG SET 
; RESET 


¿Break Check 
¿Return Command Mode 
; Goto NEXT 


; RESET 


UAM FDAS ソー 


LO 


ス ・ リ スト 


LD (COLOR) ,A 
LD (CLRFG*1),A 
JR DASM99 
TAB: Lp А, (PRNF ) 
OR A 
RET 2 
тве: LD А,0 
ов А 
RET z 
LD A,20H 
TT: CALL LPRT 
RET c 
DJNZ TT 
RET 
CLCK: LD А,1 
ов А 
ВЕТ 2 
LD А,В 
LD (COLOR),A 
RET 
; 
; A11 Ending 
FIN: LD А, OFFH 
LD (LSIZE),A 
FINO: LD А,2 
LD (OPSC),A 
CALL CTRLD 
FINI: LD SP, 9FE99H 
RET 


SEACH on FILE 


; 
; 
; 
; 
; 
SEACH: CALL CONSOL 


LD DE,SEMSG 

CALL DEPRT 

LD DE,WORK 

CALL LINPUT 

RET с 

LD DE ,WORK+7 

LD А, (DE) 

СР ud 

JR NZ,SEACH*3 

INC DE 

LD HL,SEWORD 

XOR A 

LD (HL),A 

LD IX,SEWORD*1 
SEH00: CALL INTSEW 


SEH91: CALL GETAVAL 
CALL C,CK?? 


JR C,SEH02 
LD (1Х%0),А 
INC ІХ 
INC (HL) 
LD A,14 
СР (HL) 
JR NC,SEH01 
SEH02: LD A, (HL) 
OR A 
RET z 
LD DE,NOWMSG 
CALL DEPRT 
LD B, (HL) 
DEC B 
LD IY,STACK 
LD HL, (STADR ) 
LD (NOwADR ) , HL 
JR 2,5ЕНОЗ 
CALL GETBYT 
DJNZ $-3 
SEH03: LD DE, (NOwADR ) 
LD HL, (ENDADR ) 
XOR A 
SBC HL, DE 
JR Z,ENDSEH 
CALL DATCP 
RET с 
JR SEH03 


DATCP: CALL GETBYT 
CALL SE1BLC 
CALL Z,SEHPRT 


JR Z,ABORT 
LD A,(SEWORD) 
DEC А 
LD С,А 
LD B,0 
LD НІ,,5ТАСК%1 
LD DE,STACK 
JR Z,$+4 
LDIR 
PUSH DE 
POP IY 
XOR A 
RET 
; 
ABORT: LD DE , ABOMSG 
CALL DEPRT 
SCF 
RET 
; 
INC DE 


CK??: 


INTSEW: 


БЕНО: 


ENDSEH: 


SE1BLC: 


SEB999 : 


SEB001: 


SEHPRT: 


SHP00: 


SHP99: 


SHBC: 


A,(DE) 
un 


Z,CK??-1 


"2 


Z,CK?01 


DE 

A,(DE) 
2) 
NZ,CK?00 
(IX*16),A 
DE 

A 


IX 
B,32 
(IX*0),A 


DATCP 

А,2 
(COLOR),A 
DE,ENDMSG 
DEPRT 

А, ODH 
АССРЕТ 
АССРЕТ 


A,(SEWORD) 
B,A 
IX,SEWORD*17 
HL,STACK 
DE,SEWORD*1 
A, (IX+0) 

„ә, 

2,5ЕВ001 

А, (DE) 


WRKINT 

HL, (NOWADR) 
А, (SEWORD) 
С,А 

А, 

с 

NC,$+3 

H 

L,A 

HL 

IX,WORK 
?НЕХНІ, 


(COLOR),A 
DELPRT 
CRLF 
WRKINT 
IX,WORK+6 
B,C 
HL,STACK 
A, (HL) 
?ARG 

HL 

IX 

SHP99 
DE,WORK 
DELPRT 
CRLF 
WRKINT 
IX,WORK 
HL,CLUSMS 
?NMC 

HL 

DE, (STADR) 
A 


HL,DE 


NZ,SHCPM 
А,дЕОН 
H 
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1987 LD HL,POINTA+1 
1988 ADD А, 
1089 JR NC,$+3 
1090 INC H 

1091 LD L,A 
1092 LD A, (HL) 
1093 LD E,A 
1094 POP HL 

1095 LD C,L 
1996 10 А,дЕН 
1097 AND H 

1098 INC A 

1099 LD D,A 
1100 LD A, (OFSREC+1) 
1101 ADD A,D 
1102 СР 11Н 
1103 JR C,SHP01 
1104 SUB 10H 
1105 INC E 

1106 SHP91: LD D,A 
1107 LD A,E 
1108 CALL ?HEXACC 
1109 LD HL,SECTMS 
1110 CALL ?NMC 
1111 LD A,D 
1112 CALL ?HEXACC 
1113 LD HL , PONTMS 
1114 CALL ?NMC 
1115 LD А.С 
1116 CALL ?HEXACC 
1117 LD A,5 
1118 LD (COLOR) ,A 
1119 LD DE , WORK 
1120 CALL DELPRT 
1121 CALL CRLF 
1122 CALL CRLF 
1123 CALL BRK50 
1124 CALL ІМКЕҮІ 
1125 СР з 

1126 RET 2 

1127 СР 13H 
1128 RET 

1129 ; 

1130 SHCPM: 

1131 LD А,78Н 
1132 AND H 

1133 RRCA 

1134 RRCA 

1135 RRCA 

1136 LD Е,А 
1137 LD р,д 
1138 LD HL,POINTA+1 
1139 ADD HL,DE 
1140 LD A, (HL) 
1141 ADD А,4%2 
1142 SRL A 

1143 LD E,A 
1144 JR NC, $+4 
1145 LD D,8 
1146 POP HL 

1147 LD с, 
1148 LD А,7 
1149 AND H 

1150 INC A 

1151 ADD A,D 
1152 JR SHP01 
1153 

1154 ; 

1155 ; 

1156; ІОС5 оп MONITOR 
1157; 

1158 НІНЕХ: LD A,H 
1159 CALL ACCHEX 
1160 LD A,L 
1161 ACCHEX: PUSH AF 

1162 RLCA 

1163 RLCA 

1164 RLCA 

1165 RLCA 

1166 CALL PRNHEX 
1167 POP AF 

1168 PRNHEX: AND ФЕН 
1169 ADD A, 30H 
1170 СР ЗАН 
1171 JR C,$+4 
1172 ADD A, OTH 
1173 JP ACCPRT ;MON 
1174 ; 

1175 ; 

1176 GETVAL: 

1177 CALL GETAVAL 
1178 RET с 

1179 LD L,A 
1180 LD H,0 
1181 GTVLO: CALL GTVLA 
1182 JR C,OKGET 
1183 ADD HL,HL 
1184 ADD HL,HL 
1185 ADD HL,HL 
1186 ADD HL,HL 
1187 ADD A,L 
1188 LD L,A 
1189 LD A,0 
1190 ADC A,H 
1191 LD H,A 
1192 JR GTVLO 
1193 OKGET: 

1194 XOR A 

1195 RET 


Cluster 


Point 


Sector 


Cluster 


Point 


Sector 


1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 


; 
INC DE 
GETVALA: 
LD A, (DE) 
СР 29H 
JR 2,5-4 
GTVLA: CALL CAPS 
SUB зон 
БЕТ с 
СР ФАН 
JR C,GTVL1 
CP 11H 
RET e 
SUB 7 
CP 10H 
CCF 
RET € 
GTVL1: OR A 
INC DE 
RET 
CAPS: 
LD А, (DE) 
CP 61H 
RET с 
СР 7BH 
RET NC 
SUB 20H 
RET 
GETAVAL: 
PUSH BC 
PUSH DE 
CALL GETVALA 
JR C,GTAVO 
LD C,A 
CALL GTVLA 
JR C,GTAV1 
LD B,A 
LD А,С 
RLCA 
RLCA 
RLCA 
RLCA 
ADD A,B 
LD cy 
GTAV1: LD А,С 
GTAV3: РОР вс 
РОР BC 
OR A 
RET 
СТАУ0: 
LD А, (DE) 
СР £u 
JR Z,GTAV2 
POP DE 
POP BC 
SCF 
RET 
GTAV2: 
INC DE 
LD А, (DE) 
INC DE 
JR GTAV3 
s CRT OUT with PRINTER 
DELPRT: LD B,39 
DLP99: LD A, (DE) 
INC DE 
PUSH AF 
CALL CHRPRT ;mon 
LD A,( PRNF ) 
OR A 
JR NZ,DLP5 
DLP4: РОР AF 
DLP7: DJNZ DLP99 
RET 
DLP5 : INC A 
JR Z,DLP4 
POP AF 
СР 20H 
JR NC,DLP6 
LD Ара 
DLP6: САШ, БРЕТ 
ЈЕ NC,DLP7 
LD А, OFFH 
LD (PRNF) ,A 
JR DLP7 
; 
PRINT: LD A, (PRNF) 
ок А 
LD А,1 
в Z,$+3 
хок А 
LD (PRNF),A 
RET 
TABSET: LD HL,TB0+1 
JR CLTAB 


[1305 CLMOD: LD 
1306 CLTAB: LD 


1307 XOR 
1308 LD 
1309 RET 
1310 ; 

1311 ; 

1312 ; 

1313 ; 

1314 ; 

1315 LPRT: PUSH 
1316 PUSH 
1317 PUSH 
1318 PUSH 
1319 LD 
1320 LD 
1321 LD 
1322 LPT000: IN 
1323 AND 
1324 JR 
1325 DEC 
1326 LD 
1327 OR 
1328 JR 
1329 DEC 
1330 JR 
1331 PUSH 
1332 PUSH 
1333 PUSH 
1334 CALL 
1335 POP 
1336 POP 
1337 POP 
1338 LD 
1339 CP 
1340 JR 
1341 LD 
1342 JR 
1343 

1344 LPT001: POP 
1345 POP 
1346 POP 
1347 POP 
1348 SCF 
1349 RET 
1350 ; 

1351 OKLPT: POP 
1352 DEC 
1353 OUT 
1354 INC 
1355 INC 
1356 INC 
1357 LD 
1358 OUT 
1359 POP 
1360 LD 
1361 OUT 
1362 POP 
1363 POP 
1364 OR 
1365 RET 
1366 ; 

1367 ; 

1368 ; 

1369 ; 

1370 БЕРЕТ: LD 
1371 INC 
1372 OR 
1373 RET 
1374 CP 
1375 JR 
1376 CALL 
1377 JR 
1378 ; 

1379 ESC LD 
1380 INC 
1381 AND 
1382 LD 
1383 JR 
1384 ; 

1385 ; 

1386 PLUSFD: LD 
1387 JR 
1388 ; 

1389 MINAS: LD 
1390 LD 
1391 RET 
1392 ; 

1393 SETFEND: INC 
1394 CALL 
1395 JR 
1396 LD 
1397 RET 
1398 LD 
1399 JR 
1490 ;; 

1401 ; 

1402 CKFEND: PUSH 
1403 PUSH 
1404 LD 
1405 LD 
1406 XOR 
1407 SBC 
1408 JR 
1409 JR 
1410 CKSTAD 

1411 LD 


HL,CLCK*1 
А,1 

(HL) 
(HL),A 


PRINTER DRIVER 


BC,1A01H 
A,(C) 

08H 
Z,OKLPT 
HL 

А, 

H 
NZ,LPT000 
D 


NZ ,LPT999 


А, (BREAK) 
93H 
Z,LPT001 
D,1 
LPT000 


ESCAPE then COLOR Change 


A, (DE) 
DE 

A 

z 

1BH 
2,Е5С 
АССРЕТ 
DEPRT 


A,(DE) 

DE 

3FH 
(COLOR) , A 
DEPRT 


HL,39+46 
$+5 


HL, 39 
(FD???*1),HL 


DE 

GETVAL 
C,$+6 
(FENDAD ) , HL 


НГ, (ENDADR ) 
$-7 


HL 

DE 

HL, (FENDAD ) 
DE, (NOwADR ) 
A 

HL,DE 
NC,CKSTAD 
SETBK 


HL, (STADR) 


;mon 


;mon 


;COLOR Change 


; MON 


;+46 


— 
1414 


1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1518 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 


БЕТВК: 


NONBK: 


LEFT: 
LRSET: 


CONS1L: 


CONSOL: 


CONS55: 
CTCNT@0: 


CRLF: 


LPCRLF: 


CNTCK: 


; 
LPCLS0: 


BRKCK: 


BRK50: 
BRK55: 
BRK60: 


BRK00: 


BRK01: 


BRK02: 


CNGCHR: 


LO 


UAM FDAS ソー ス ・ リ スト 


C,NONBK 
А,3 
(BREAK) ,A 
DE 

HL 


HL,4F28H 
LRSET 
HL,2700H 


, 
(COLOR),A 
DE,NAMEMS 
DEPRT 
(CONSX),HL 
HL, (NOWADR) 
DE, (LRADR ) 
(NOwADR ) , DE 
(LRADR ) ,HL 


HL,1818H 
CONS55 
HL,1800H 
(CONSY),HL 
A 
(CRTCNT),A 


A,0DH 
ACCPRT 

А, (РЕМЕ) 
А 

Z,CNTCK 
A,0AH 
LPRT 

с 

A, (LPCNT) 
A 

69 

NC, LPCLS@ 
(LPCNT),A 


A, (CRTCNT) 
A 


(CRTCNT),A 
24 

c 

A,13H 
(BREAK),A 
CTCNT@ 


A, OCH 
LPRT 

с 

А 
(LPCNT),A 


A, (BREAK) 
93H 
2,Вкк00 
13H 
Z,BRK01 
INKEYO 


бо 


Z,BRK01 
A 


(BREAK),A 
(POINT2),A 
(POINT1),A 


Z,BRK00 
13H 
Z,BRK02 
n 


Z,BRK02 
9DH 
Z,BRK50 


(POINT1),A 
AF 
(РОІМТ1+3),А 


A,13H 
(BREAK), A 


A 
BRK60 
ФЕН 


A,30H 
3AH 


— 


;Right Console 


;Left Console 


;mon 


;1 Line Console 


;Console 0,24 
;mon 


;mon 


; PRINTER 


;CRT COUNT 


;FORM FEED 


;Break Check 


; INKEY$ 


; CLEAR 


iShift+Break 


¿Wait Input 
;INKEY$(1) 


;RET.KEY 


;BREAK and SPACE 
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LO 


UAR FDAS ソー ス ・ リ スト 


1523 RET 
1524 ADD 
1525 RET 
1526 ; 

1527 SETCLN: CALL 
1528 LD 
1529 LD 
1530 CALL 
1531 RET 
1532 ; 

1533 COLNCK: CP 
1534 JR 
1535 CP 
1536 JR 
1537 CP 
1538 JR 
1539 БР 
1510 ЈЕ 
1541 КЕТ 
1542: 5 

1543 CLCK5: PUSH 
1544 LD 
1545 LD 
1516 POP 
1547 RET 
1548 ; 

1549 ; 

1550 ; GET 1Clust 
1551 ; 

1552 ; 

1553 GETCLUS: PUSH 
1554 PUSH 
1555 PUSH 
1556 PUSH 
1557 LD 
1558 LD 
1559 AND 
1560 LD 
1561 LD 
1562 INC 
1563 ADD 
1564 LD 
1565 OR 
1566 RLA 
1567 RL 
1568 RLA 
1569 RL 
1570 RLA 
1571 RL 
1572 RLA 
1573 RL 
1574 OFSREC: ADD 
1575 LD 
1576 JR 
1577 INC 
1578 CALL 
1579 POP 
1580 POP 
1581 POP 
1582 POP 
1583 RET 
1584 ; 

1585 ; READ DEVICE 
1586 ; 

1587 ; (DEVICE)... 
1588 ; 9 = DISKO- 
1589 ; 1 = MEMO 
1590 ; 2 = ЕММ0-9 
1591 ; 

1592 READEV: LD 
1593 LD 
1594 OR 
1595 EX 
1596 LD 
1597 СР 
1598 LD 
1599 JR 
1600 JR 
1601 CALL 
1602 RET 
1603 JR 
1604 

1605 REDV1: CALL 
1606 RET 
1607 JR 
1608 

1609 REDV2: CALL 
1610 RET 
1611 DEVERR: LD 
1612 CALL 
1613 CALL 
1614 LD 
1615 JP 
1616 

1617 ERRMSG: DEFB 
1618 DEFM 
1619 DEFB 
1620 DEFM 
1621 DEFB 
1622 

1623 ; 

1624 ; 

1625 ; 

1626 ; 

1627 ; 

1628 DUMP1L: CALL 
1629 LD 
1630 LD 
1631 CALL 


WRKINT 
IX,WORK+OEH 
HL,SCLNMS 
?NMC 


9C9H 
Z,CLCK5 
18H 
Z,CLCK5 
9C3H 
Z,CLCK5 
ФЕЭН 
Z,CLCK5 


, 
(SCOLNF),A 
AF 


er 


HL,POINTA 
A,(HL) 
ФЕН 

Е,А 

р,0 

НІ, 


МОР 

; NOP, NOP 
9 АБО A,40H 
А 
, 


3 


HL,BUFFA 

A,10H ;LD A,08H 
A 

АЕ, АЕ’ 

А, (DEVICE) 

1 

А, (UNITNO ) 

Z,REDV1 


MEMRED 
NC 
DEVERR 


EMMRED 

NC 

DE, ERRMSG 
DEPRT 
ТМКЕУ1 
SP,NEWSTACK 
FILINP 


13,13,27,3 

'DEVICE I/O ERROR !!” 
13,13,27,7 

^*** Push any Key. 
9 


1 LINE MEMORY DUMP 


WRKINT 
IX,WORK 
IY,STACK 
CKFEND 


1632 LD 
1633 CALL 
1634 INC 
1635 INC 
1636 LD 
1637 CALL 
1638 DJNZ 
1639 LD 
1640 LD 
1641 DMPOQ: LD 
1642 INC 
1643 CALL 
1644 INC 
1645 DJNZ 
1646 INC 
1647 LD 
1648 LD 
1649 DMPO1: LD 
1650 INC 
1651 CALL 
1652 DJNZ 
1653 RET 
1654 ; 

1655 ; MEMORY 
1656 ; 

1657 MDUMP: INC 
1658 LD 
1659 СР 
1660 ЈЕ 
1661 OR 
1662 JR 
1663 CALL 
1664 RET 
1665 LD 
1666 JSTDMP: CALL 
1667 LD 
1668 LD 
1669 DUMP: CALL 
1670 LD 
1671 CALL 
1672 CALL 
1673 CALL 
1674 RET 
1675 JR 
1676 ; 

1677 ; 

1678 ; 1 LINE 
1679 ; 

1680 ; 

1681 DISASS: CALL 
1682 LD 
1683 LD 
1681 CALL 
1685 CALL 
1686 LD 
1687 CALI 
1688 XOR 
1689 LD 
1690 LD 
1691 LD 
1692 LD 
1693 CALL 
1694 CALL 
1695 CP 
1696 JR 
1697 CP 
1698 JR 
1699 CP 
1700 JR 
1701 CP 
1702 JR 
1703 NOMAL: LD 
1704 LD 
1705 CPIR 
1706 JR 
1707 INC 
1708 LD 
1709 LD 
1710 LD 
1711 EDO: CALL 
1712 PUTCODE: LD 
1713 LD 
1714 OR 
1715 SBC 
1716 LD 
1717 LD 
1718 LD 
1719 LD 
1720 LOOPQ: LD 
1721 INC 
122. LD 
1723 INC 
1724 CALL 
1725 DJNZ 
1726 RET 
1721 4 

1728 ED SE: CALL 
1729 LD 
1730 LD 
1731 CPIR 
1732 JR 
1733 INC 
1734 LD 
1735 LD 
1736 LD 
1737 JR 
1738 ; 

1739 NXED: LD 
1740 LD 


k. ———À u u. 


HL, (NOWADR ) 
"HEXHL 


НІ.,5ТАСК 
А, (HL) 
HL 
?НЕХАСС 
ІХ 

DMP00 

1Х 

B,8 
HL,STACK 
A, (HL) 
HL 

3ARG 
DMPO1 


DUMP 


DE 
А, (DE) 
yw 


Z,MDUMP 

A 
Z,JSTDMP 
GETVAL 

с 
(NOWADR),HL 
CONSOL 
А,7 
(COLOR) ,A 
DUMPIL 
РЕ, WORK 
DELPRT 
CRLF 
BRKCK 

с 

DUMP 


DIS-ASSEMBLE 


WRKINT 
1X, WORK 
IY,STACK 
CKFEND 
CKVRAM 

HL, (NOWADR) 
^HEXHL 

А 

(DMYFG),A 
(CLRFG+1),A 
HL, (NOWADR) 
(OLDADR) , HL 
GETBYT 
COLNCK 

ФЕрН 

Z,ED SE 
освн 

Z,CB SE 
@DDH 

Z,DD SE 
@FDH 

Z,FD SE 

BC, 14 
HL,DATAO 


NZ,NXT SE 
BC 

B,C 

C,A 

HL, NMCO 
PUTNMC 

HL, (NOWADR) 
DE,(OLDADR ) 
А 

HL,DE 

B,L 
IX,WORK*5 
DE,WORK*23H 
HL,STACK 

A, (HL) 

HL 

(DE),A 

DE 

?HEXACC 
LOOP9 


GETBYT 
BC,21 
HL,DATAEO 


NZ,NXED 
BC 

B,C 

C,A 
HL,NMCEO 
EDO 


BC,4 
HL,DATAE2 


; MON 


CPIR 
JR 2,22? 
LD С,А 
LD HL,DATAE1 
JR NXEDSE 
CB SE: CALL GETBYT 
LD HL,DATAC1 
JR NNEDSE 
DD SE: LD А,17 
JR $+4 
FD SE: LD А,20 
LD (DMYFG),A 
CALL GETBYT 
СР освн 
JR Z,DFCB SE 
LD HL,DATAFD 
Ер???: LD BC,39 
CPIR 
JR NZ,??? 
JR NXT_SE 
DFCB_SE:CALL GETBYT 
CALL GETBYT 
LD HL,DATAFDC 
JR NXEDSE 
NXT SE: LD GA 
LD HL, РАТАТ 
NXEDSE: CALL SE NMC 
JR BP? 
PUSH HL 
INC HL 
LD B, (HL) 
LD HL,NMC1 
CALL PUTNMC 
LD IX , WORK+13H 
POP HL 
LD Е, (HL) 
LD р,@ 
LD HL,ADTABL 
ADD HL,DE 
LD Е, (HL) 
INC HL 
LD D, (HL) 
INC HL 
PUSH DE 
LD Е, (HL) 
INC HL 
LD D, (HL) 
POP HL 
PUSH DE 
PUSH BC 
CALL PUTOPE 
РОР BC 
РОР ні. 
CALL PUTOPE2 
JP PUTCODE 
і 
PUTOPE2:LD А,Н 
ов L 
RET 2 
LD А,2СН 
CALL ?ARG 
PUTOPE: LD A,C 
RRA 
RRA 
RRA 
AND 7 
ЈР (HL) 
299: LD А,1 
LD (CLRFG+1),A 
LD IX, WORK+QEH 
LD HL, DEFMSG 
CALL ?NMC 
LD IX, WORK*13H 
LD HL, (NOWADR) 
LD DE, (OLDADR) 
OR А 
SBC HL, DE 
LD B,L 
LD HL,STACK 
??0: LD А, (HL) 
INC HL 
CALL ?NNH 
DEC B 
JP Z,PUTCODE 
LD A,2CH 
CALL 2ARG 
JR 220 


^ 


; 
; 
WRKINT: EXX 


IOCS on DISASS 


LD B,27H 

LD А,20Н 

LD HL,WORK 
WKINTO: LD (HL),A 

INC HL 

DJNZ WKINTO 

LD (HL),00H 

EXX 

RET 


{+46 PLUS DD,FD 


LO 


ЈАК FDAS ソー ス ・ リ スト 


1850 GETBYT: PUSH HL 

1851 PUSH DE 

1852 PUSH BC 

1853 LD НГ, (NOWADR) 
1854 INC HL 

1855 LD (NOwADR ) , HL 
1856 DEC HL 

1857 PUSH HL 

1858 LD DE, (ENDADR) 
1859 INC DE 

1860 LD A,D 

1861 OR Е 

1862 SCF 

1863 JR 2,%+5 

1864 XOR A 

1865 SBC HL,DE 

1866 POP HL 

1867 JR NC,OUTERA 
1868 LD DE, (STADR) 
1869 XOR A 

1870 SBC HL,DE 

1871 JR C,OUTERA 
1872 ствтд: LD A, OFOH iLD A,78H 
1873 AND H 

1874 RRCA 

1875 RRCA 

1876 RRCA 

1877 GTBT1: RRCA УМОР 
1878 LD E,A 

1879 LD А, (РОІМТА) 
1880 СР Е 

1881 JR 2,ТАКЕ 
1882 LD А,Е 

1883 LD (POINTA),A 
1884 CALL GETCLUS 
1885 TAKE: LD DE,BUFFA 
1886 LD А,дЕН 

1887 AND H 

1888 LD Н,А 

1889 ADD HL,DE 

1890 LD А, (HL) 
1891 OUTERA: LD (IY*0),A 
1892 INC TY 

1893 POP BC 

1894 POP DE 

1895 POP HL 

1896 LD С.А 

1897 КЕТ 

1898 ; 

1899 ; 

1900 ; 

1901 ?HEXHL: LD A,H 

1902 CALL ?НЕХАСС 
1903 LD A,L 

1904 ?HEXACC:PUSH AF 

1905 AND дЕОН 

1906 КЕСА 

1907 RRCA 

1908 RRCA 

1909 RRCA 

1910 CALL CNGCHR 
1911 CALL ?ARG 

1912 POP AF 

1913 29 Е AND ФЕН 

1914 CALL CNGCHR 
1915 ?АВС LD (IX*00H),A 
1916 INC IX 

1917 RET 

1918 ; 

1919 ?28H: LD D,28H 

1920 ?DRG: LD (IX*00H),D 
1921 INC IX 

1922 RET 

1923 

1924 ; 

1925 ; 

1926 ; SET OPELAND 

1921 ; 

1928 


1929 ?GTNNH: CALL 
1930 ?NNH: CALL 
1931 ?48H: LD 


1932 JR 
1933. ; 

1934 2NNNNH: CALL 
1935 LD 
1936 CALI 
1937 CALL 
1938 LD 
1939 JR 
1940 ; 

1941 ; 

1942 ; PUT(xxH) 
1943 ; 

1944 ?28NNH: CALL 
1945 CALL 
1946 ?NNH29: CALL 
1947 ?29H: LD 
1948 JP 
1949 ; 

1950 ; PUT(xxxxH) 
1951 ; 

1952 ?28NNNNH: 
1953 CALL 
1954 LD 
1955 CALL 
1956 CALL 
1957 LD 
1958 JR 


GETBYT 
?НЕХАСС 
A,48H 
?ARG 


GETBYT 


CALL ?28H 
GETBYT 
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LO 


1959 ; 
1960 ?IR: 
1961 

1962 ?R: 
1963 

1964 ?1: 
1965 

1966 ?ZERO: 
1967 

1968 ?ONE: 
1969 

1970 ?TOW: 
1971 

1972 ?SP: 
1973 

1974 ?AF: 
1975 

1976 ?DE: 
1977 

1978 ?HL: 
1979 

1980 ?A: 
1981 

1982 ?28SP: 
1983 

1984 ?28HL: 
1985 

1986 ?28IX: 
1987 

1988 ?281Y: 
1989 

1990 ?C 10: 
1991 

1992 

1993 ; 

1994 ?DFDCB: 
1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 ; 

2006 ?REGB: 
2007 

2008 ?REGF: 
2009 

2010 

2011 

2012 ; 

2013 ?PRG2: 
2014 

2015 

2016 ?RG2: 
2017 

2018 

2019 

2020 ; 

2021 ?28RG2: 
2022 

2023 

2024 ; 

2025 227: 
2026 

2027 

2028 ; 

2029 ?PM: 
2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 PLAS: 
2040 

2041 PLAO: 
2042 

2043 ; 

2044 760: 
2045 ?CC: 
2046 

2047 

2048 ; 

2049 ?RST: 
2050 

2051 

2052 ; 

2053 ; 

2054 PUTNMC: 
2055 

2056 ?ADNMC: 
2057 DF11: 
2058 ?NMC: 
2059 

2060 

2061 

2062 


2064 PNMO: 


2067 DFD?: 
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3,C 
2,?1 
В,33 
21Н 
B,32 
21H 
B,34 
21H 
B,35 
21H 
B,36 
21H 
В,12 
21Н 
B,21 
21H 
B,10 
21H 
B,11 
21H 
B,8 
21H 
B,29 
21H 
B,7 
21H 
B,30 
21H 
B,31 
21H 
B,28 
HL,REGO 
?ADNMC 


A,(DMYFG) 


DFCB00 


A,C 

7 

HL, REGO 
A 

В,А 
?ADNMC 


6 

6 

2,?АЕ 
HL,REG@ 
A 


А,В 
?ВЕСЕ 


?28Н 
?RG2 
?29H 


?AF 
D,27H ein 
?DRG 


GETBYT 

HL, (NOWADR) 
D,0 

A 

P,PLAS 


E,A 


B,A 
?REGF 


А,С 
38H 
?NNH 


ІХ,МОВК%дЕН 
DF11 
DFD? 
SE_NMAD 
A, (HL) 
Т,А 

NZ, PNMO 
?ARG 

HL 

?NMC 
ТЕН 
?ARG 


A, (DMYFG) 


DF10: LD 


DFCB00: OR 


SE_NMAD: LD 
NMADO: CP 


SE_NMC: LD 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


DEFB 


ысзылы-ыз>шм> 
с с с т 
мнт 
= n = 


о 
т 
° 


А, (DMYFG) 
A.T 


В,А 


МС,ММАр0 
NMADO 


A, (HL) 
A 
2,5Е0 
HL 

© 

(HL) 
HL 

z 

HL 

HL 
SE_NMC 


9C9H 
9D9H 
9F3H 
9FBH 


44H 
45H 
4DH 
67H 
6FH 
дадн 
@А1Н 
9A2H 
дАЗН 
9A8H 
9A9H 
9AAH 


DATAFD: 


РАТАЕ1: 


LO 


УАР) FDAS ソー ス ・ リ スト 


9ABH ;OUTD 
овон ;LDIR 
9B1H ;CPIR 
0B2H ;INIR 
0B3H TIR 
9B8H DDR 
9B9H PDR 
9BAH ; INDR 
9BBH ;OTDR 


09H, 19H,21H, 22H, 23H , 29H 
2AH,2BH, 34H, 35H, 36H, 39H 
46H, 4EH, 56H, SEH, 66H, 6EH 
70H,71H, 72H, 73H, 74H, 75H 
77H, TEH, 86H, SEH, 96H, ЗЕН 
ОАбН, 0AEH, 0B6H , ОВЕН 

0Е1Н,ФЕЗН,0Е5Н,0Е9Н,0Ғ9Н 


24H, 25H, 26H, 2CH, 2DH, 2EH 
44H, 45H, 4CH, 4DH, 54H, 55H 
SCH, SDH, 6OH, 61H, 62H, 63H 
64H, 65H, 67H, 68H, 69H, 6AH 
6BH, 6CH, 6DH, 6FH, TCH, 7DH 
84H, 85H, BCH, SDH, 94H, 95H 
9CH,9DH,0A4H,0A5H, QACH , 9 の ADH 
0B4H, 0B5H, OBCH , OBDH 


63H, 6BH, 70H, 71H 


:CP,3:JUMP OFFSET,4:OPELAND 


0C0H,40H,ADO0-ADO0, 1 iLD r,r 
0C7H,6,ADI1-ADO,1 ;LD r,n 
ФЕЕН,2,А02-Ар0,1 ;LD (rr),A 
9EFH, の AH,AD3-AD9 , 1 iLD А, (гг) 
@FFH,3AH,AD4-AD0,1 ;LD А, (пп) 
OFFH,32H,AD5-ADO0,1 ;LD (nn),A 
OCFH,1,AD6-ADO0,1 ;LD rr,nn 
OFFH,2AH,AD7-AD0,1 ;LD HL, (пп) 
OFFH,22H,AD8-AD0,1 ;LD (nn),HL 
OFFH,O0F9H,AD9-ADO,1 ;LD SP,HL 
€F8H,80H,AD10-AD0,2 ;ADD A,r 
OFFH,9C6H,AD11-AD0,2 ;ADD A,n 
0CFH,9,AD12-AD0,2 ;ADD HL,rr 
OF8H,88H,AD10-AD0,3 АРС A,r 
9FFH, の CEH,AD11-AD9,3 ;ADC А,п 
9F8H,99H,AD13-AD9,4 ғ 
OFFH,0D6H,AD14-AD0,4 n 

9 の F8H,98H,AD19-AD9,5 ;SBC A,r 
9FFH, の DEH,AD11-AD9,5 ;SBC A,n 
9F8H, の 9A9H,AD13-AD9,6 ЗАМ” г 
OFFH,0E6H,AD14-AD0,6 ;AND п 
9F8H,0A8H,ADI13-ADO0, 7 ХОБЕ г 
ФҒЕН,ФЕЕН,Ар14-Ар0,7 ¡XOR n 
9F8H,9B9H,AD13-AD9,8 ;OR г 
OFFH,0F6H,AD14-AD0,8 ;OR n 
€F8H,0B8H,AD13-AD0,9 СР г 
9FFH,OFEH,AD14-AD9,9 ;CP n 
OCFH,0C5H,AD151-AD0,10  ;PUSH rr 
9CFH, の 9C1H,AD151-AD9,11 ;РОР rr 
ФҒЕН,ФЕВН,АП16-Ар0,12 ЕХ DE,HL 
OFFH,0E3H,AD17-AD0,12 ЕХ (SP),HL 
€FFH,8,AD18-AD0,12 ;EX AF,AF' 
0C7H,4,AD130-AD0,13 ММС г 
9CFH,3,AD15-AD9,13 ;INC rr 
0C7H,5,AD130-AD0,14 ;DEC r 
9СЕН,ӨВН,АП15-Ар0,14 БЕС rr 
9FFH,19H,AD19-AD9,15 ;DJNZ e 
9FFH, の CDH,AD29-AD9,16 ;CALL nn 
0C7H,0C4H,AD21-AD0,16 ;CALL cc,nn 
€FFH,0C3H,AD20-AD0,17 ;JP nn 
0C7H,0C2H, AD21-AD0,17 ;JP ccnn 
€FFH,0E9H,AD22-AD0,17 ;JP (HL) 
OFFH,18H,AD19-AD0,18 Же 
0E7H,20H,AD23-AD0,18 ;JR c,e 
9C7H, の 9C9H,AD24-AD の ,19 iRET co 
9C7H, の 9C7H,AD25-AD9 , 20 iRST p 
€FFH,0DBH,AD26-AD0,21 ЗІМ A, (п) 
OFFH,0D3H,AD27-AD0,22 ;OUT (n),A 
99H 

OCFH,4AH,ADI12-AD0,3 iADC HL, rr 
@FFH,46H,AD28-AD0,23 ;IM 9 
OFFH, 56H,AD29-ADO,23 ;IM 1 
OFFH,5EH,AD30-AD0,23 ма 


2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 


2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 


|2394 


DATAC1: 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


DATAFDC:DEFB 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


JUMP TABLE 


; 
ADTABL: 


ADO: 
AD1: 
AD2: 
AD3: 
AD4: 
AD5: 
AD6: 
AD7: 
AD8: 
AD9: 
AD10: 
AD11: 
AD12: 
AD130: 
AD13: 
AD14: 
AD15: 
AD151: 
AD16: 
AD17: 
AD18: 
AD19: 
AD20: 
AD21: 
AD22: 
AD23: 
AD24: 
AD25: 
AD26: 
AD27: 
AD28: 
AD29: 
AD30: 
AD31: 
AD32: 
AD33: 
AD34: 
AD35: 


NMC0: 


NMCE0: 


NIMONIC 


DEFB 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 


DEFB 
DEFM 
DEFM 
DEFM 
DEFM 


9C7H,49H,AD32-ADO,21 ;IN r,(C) 
9C7H,41H,AD31-AD9,22 0097 (C),r 
90CFH,42H,AD12-AD9,5 iSBC НЫ, гг 


9CFH,4BH, AD33-AD9,1 
9CFH,43H,AD34-ADO , 1 
0F7H,57H, AD35-ADO0, 1 
0F7H,47H, AD36-AD0, 1 
99H 


D гг, (пп) 


осон,адн,Ар37-А0д, 31 
0C0H,80H,AD37-AD0,32 
0COH,0C0H,AD37-AD0,33 
0F8H,0,AD13-ADO0,24 
9F8H,8,AD13-AD9,25 
9F8H,19H,AD13-AD9,26 
0F8H,18H,AD13-AD9,.27 


OF8H,20H,AD13-AD9,28 SSLA r 
9F8H,28H,AD13-AD9,29 ;SRA r 
0F8H,38H,AD13-AD0,30 SSRL r 

00H 

OFFH,06H,AD39-AD0,24 iRLC (INY+d) 


OFFH,0EH,AD39-AD0,25 

9FFH,16H,AD39-AD の ,26 

9FFH, IEH, AD39-AD0,27 

OFFH,26H,AD39-AD0,28 

OFFH,2EH,AD39-AD9,29 

OFFH,3EH,AD39-AD0,30 

OCFH,46H,AD38-AD0,31 

9CFH,4EH,AD38-ADO,31 

9CFH,86H,AD38-AD9,32 

OCFH,B8EH,AD38-AD0,32 

9CFH, の C6H,AD38-AD9,33 
0CFH, の CEH,AD38-AD9,33 
99H 


b,(1XY+d ) 


?REGF , ?REGB 
?REGF , 2GTNNH 
?28RG2,?A 
?A,?28RG2 
7A,?28NNNNH 
?28NNNNH , ?A 
?RG2 , ?NNNNH 
?HL , ?28NNNNH 
?28NNNNH , ?HL 
?SP,?HL 

?А, ?ВЕСВ 

?А, ?СТММН 
?HL,?RG2 
?ВЕСЕ,0 
?вЕав,0 
?GTNNH,O 
?RG2,0 
?PRG2,0 
?DE,?HL 
?28SP, ?HL 
?AF,?27 
?PM, 9 の 
?NNNNH , Q 
200, ?NNNNH 
?28HL,0 
?C0,?PM 
?CC,0 

?RST,9 

?A, ?28NNH 
?28NNH,?A 
?ZERO,0 
?ONE, 0 
?TOW, 0 

?C IO, ?REGF 
?REGF,?C IO 
?RG2 , ?28NNNNH 


?28NNNNH, ?RG2 
?A,?IR 

?IR,?A 

?0 F,?REGB 

20 F,?DFDCB 
?DFDCB,O 

80H ; DAMY 
'E','I' OR 80H 
'D','I' OR 80H 
'EX','X' OR вон 
'RE','T' OR вон 
'HAL','T' OR 80H 
'CC','F' OR B0H 
'SC','F' OR 80H 
'CP','L' OR 80H 
'DA','A' OR 80H 
'RR','A' OR 80H 
'RL','A' OR 80H 
'RRC','A' OR 80H 
'RLC','A' OR 80H 
'NO','P' OR 80H 
80H ; DAMY 
'OTD','R' OR вон 
'IND','R' OR 80H 
'CPD','R' OR 80H 
'LDD','R' OR вен 
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2395 DEFM 
2396 DEFM 
2397 DEFM 
2398 DEFM 
2399 DEFM 
2400 DEFM 
2401 DEFM 
2402 DEFM 
2403 DEFM 
2404 DEFM 
2405 DEFM 
2406 DEFM 
2407 DEFM 
2408 DEFM 
2409 DEFM 
2410 DEFM 
2411 DEFM 
2412 + 

2413 NMCI: DEFB 
2414 DEFM 
2415 DEFM 
2416 DEFM 
2417 DEFM 
2418 DEFM 
2419 DEFM 
2420 DEFM 
2421 DEFM 
2422 DEFM 
2423 DEFM 
2424 DEFM 
2425 DEFM 
2426 DEFM 
2427 DEFM 
2428 DEFM 
2429 DEFM 
2430 DEFM 
2431 DEFM 
2432 DEFM 
2433 DEFM 
2434 DEFM 
2435 DEFM 
2436 DEFM 
2437 DEFM 
2438 DEFM 
2439 DEFM 
2440 DEFM 
2441 DEFM 
2442 DEFM 
2443 DEFM 
2444 DEFM 
2445 DEFM 
2446 DEFM 
2447 ; 

2448 ; OPELAND 
2449 ; 

2450 REG0: DEFB 
2451 DEFM 
2452 DEFM 
2453 DEFM 
2454 DEFM 
2455 DEFM 
2456 DEFM 
2457 DEFM 
2458 DEFM 
2459 ; 

2460 DEFM 
2461 DEFM 
2462 DEFM 
2463 DEFM 
2464 ; 

2465 DEFM 
2466 DEFM 
2467 DEFM 
2468 DEFM 
2469 DEFM 
2470 DEFM 
2471 DEFM 
2472 DEFM 
2473 ; 

2474 DEFM 
2475 DEFM 
2476 DEFM 
2477 DEFM 
2478 DEFM 
2479 DEFM 
2480 DEFM 
2481; 

2482 DEFM 
2483 DEFM 
2484 DEFM 
2485 DEFM 
2486 DEFM 
2487 DEFM 
2488 DEFM 
2489 DEFM 
2490 DEFM 
2491; 

2492 ; 

2493 OPSION: DEFS 
2494 RET 
2495 

2496 ; 

2497 CKVRAM: LD 
2498 OR 
2499 RET 
2500 LD 
2501 CALL 
2502 JP 
2503 CALL 
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'OTI','R' OR 80H 
'INI','R' OR 80H 
'CPI','R' OR 80H 
'LDI','R' OR 80H 
'OUT','D' OR 80H 
'IN','D' OR вон 

'CP','D' OR 80H 


, 
, 

'LD','D' OR 80H 
, 


'OUT','I' OR вон 
'IN','I' OR вон 
'CP','I' OR вон 
'LD','I' OR 80H 
'RL','D' OR вон 
'RR','D' OR 80H 
'RET','I' OR 80H 
'RET','N' OR 80H 
'NE','G' OR 80H 
80H š 
"L",'D' OR вон 
'AD','D' OR 80H 
'AD','C' OR 80H 
'SU','B' OR 80H 
'SB','C' OR 80H 
'AN','D' OR 80H 
'XO','R' OR 80H 
'O','R' OR 80H 
'C','P' OR 80H 
'PUS','H' OR 80H 


'PO','P' OR 80H 
'E','X' OR 80H 


'IN','C' OR вон 
'DE','C' OR вон 
'DJN','Z' OR 80H 
'CAL','L' OR 80H 
'J','P' OR 80H 
'J','R' OR 80H 


'RL','C' OR 80H 
'RR','C' OR 80H 
'R','L' OR 80H 
'R','R' OR 80H 
'SL','A' OR 80H 
'SR','A' OR 80H 
'SR','L' OR 80H 
'BI','T' OR 80H 
'RE','S' OR 80H 
'SE','T' OR 80H 
80H 

'B' OR 80H 

'C' OR 80H 

'D' OR 80H 

'E' OR 80H 

'H' OR 80H 

'L' OR 80H 
'(HL',?)' OR 80H 
ЗА” OR 80H 
'B','C' OR 80H 
'D','E' OR 80H 
'H','L' OR 80H 
'S','P' OR 80H 
'N','Z' OR 80H 
'Z' OR 80H 
'N','C' OR 80H 
'C' OR 80H 


'P','O' OR 80H 
'P','E' OR 80H 
'P' OR 80H 
'M' OR 80H 


'A','F' OR 80H 
'IX','H' OR 80H 
'IX' ,'L' OR 80H 
'I','X' OR 80H 
'IY','H' OR 80H 
'IY','L' OR 80H 
'I','Y' OR 80H 


"с 
'(SP',' 
'(IX',' 
'(IY',' 
'I' OR 80H 
'R' OR 80H 
'0' OR 80H 
'1' OR 80H 
'2' OR 80H 


3,0 


А,0 

А 

2 

HL, (NOWADR) 
CKDEFW 
NZ,DWOR 
CRDEFB 


NEWTAB: 


NEWTBI: 


NEWTBO: 


CKDEFW: 


CKDEFB: 


CKDB1: 


CKDEFS: 


OKOK: 


DSOK: 


DWOK: 


рвок : 


(бе we s ss ж» 


ETVR: 


RESVR: 


BITVR: 
SRBVR: 


JP NZ,DBOK 
CALL CKDEFS 
JP NZ,DSOK 
RET 


New TAB routine 


LD HL, TBO+1 

LD А, (HL) 

OR A 

JR Z,NEWTBO 
XOR А 

LD (HL),A 

LD А,2 

LD (ONMSG+6),A 
RET 

INC A 

LD (HL),A 

LD А,3 

JR NEWTBI 

LD BC,0C000H 
CALL BITVR 

RET 2 

INC HL 

CALL BITVR 

DEC HL 

SCF 

RET 

INC A 

RET Б 

LD BC,0A000H 
CALL BITVR 

RET 

LD BC,0E000H 
CALL BITVR 

RET z 

INC HL 

CALL BITVR 

JR NZ,$-4 

OR 1 

RET 

PUSH HL 

LD HL, (NOWADR } 
LD (OLDADR ) , HL 
CALL ?HEXHL 

XOR A 

LD (DMYFG) , A 
LD (CLRFG+1),A 
LD IX,WORK4*0EH 
POP HL 

RET 

POP BC 

CALL OKOK 

LD DE, (NOWADR) 
LD (NOWADR) , HL 
SBC HL, DE 

EX DE, HL 

INC A 

LD (SCOLNF),A 
LD HL, DSMSG 
CALL ?NMC 

LD IX,WORK*13H 
EX DE,HL 

XOR A 

OR H 

JR 2,$9*6 

LD A,H 

CALL ?НЕХАСС 

LD A,L 

JP ?NNH 

POP BC 

CALL OKOK 

LD HL,DWMSG 
CALL ?NMC 

LD IX,WORK*13H 
CALL ?NNNNH 

JP PUTCODE 

POP BC 

CALL OKOK 

LD HL,DEFMSG 
CALL ?NMC 

LD IX,WORK*13H 
CALL ?GTNNH 

JP PUTCODE 


option routine 


LD А,9САН 
JR SRBVR 
LD A,84H 
JR SRBVR 
LD A,44H 
LD (5ЕВ0+1),А 
HL 
BC 
A 
H 


iDw flag check 


¿Next Byte ? 


¿Not DW -> DB ok 


;DB flag check 


;DS flag check 


LO 


UAR FDSA ソー ス ・ リ スト 


2613 

2614 

2615 

2616 

2617 

2618 

2619 

2629 

2621 

2622 

2623 SRBO: 
2624 

2625 

2626 

2627 

2628 

2629 

2630 SRB1: 
2631 

2632 

2633 

2634 

2635 ; 

2636 ; 

2637 VRAMOD: 
2638 VRMO000: 
2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 VACLSO: 
2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 ; 

2656 VRM001: 
2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 

2667 ; 

2668 VA CLS: 
2669 

2670 

2671 VB CLS: 
2672 

2673 VW CLS: 
2674 

2675 VS CLS: 
2676 

2677 V СІ,80: 
2678 

2679 

2680 

2681 

2682 

2683 

2684 ?COMPT: 
2685 

2686 ; 

2687 VRM100: 
2688 

2689 

2690 ; 

2691 ?BADMD: 
2692 

2693 

2694 

2695 

2696 ; 

2697 VRM010: 
2698 

2699 

2700 


2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 ; 
2709 ; 
2710 GETVAD: 
2711 
2712 
2713 
2714 
2715 
2116 
2711 
2718 
2719 
2720 
2721 ; 


А 


А 

A, の C4H ;5ЕТ ;84H,RES ;44H,BIT 
(SRB1*1),A 

HL,BC 

B,H 


0,H ;RES 0,H ;BIT 0,H 


CONSOL 
DE 

А, (DE) 

"e 

NZ, VRM010 

DE 

А, (РЕ) 

А” 
NZ,VRM001 
DE,YNMSG 
DEPRT 

INKEY1 

Dom 

NZ , ABORT 

A,1 
(CKVRAM+ 1) ,A 
VA_CLS 


A, (CKVRAM+1 ) 


A 
2,УЕМ100 
А, (DE) 
"B 
Z,VB_CLS 
ОМ 

Z,VW CLS 
"5" 

2,М8 CLS 


BC,0A000H 
DE, 6000H 
V CLSO 
BC,0A000H 
$+10 

вс, 9C999H 
8%5 
BC,0E000H 
DE,2000H 
A 


E 
NZ,V CLSO 
DE , COMPMS 
DEPRT 


?BADMD 
NZ,ABORT 
VACLS@ 


DE , BADMS 
DEPRT 
INKEY1 
"Y, 


А, (CKVRAM+ 1 ) 
A 

Z,VRM100 
A,(DE) 

TD 

Z,SET V 

"p" 

Z,RES V 

"LO 

Z LISI V 


DE,ADRNSG 
DEPRT 

DE, WORK 
LINPUT 

с 
DE,wORK+3 
А, (DE) 

DE 

"e 

2 

GETVAD 


2722 RES V: 
2723 
2721 SET V: 
2725 


BSET: 
BSETO: 
WSET: 


WSETO: 


М5ЕТІ: 


SSET: 


55ЕТ0: 


LIST V: 


BLIST: 


BLSTO: 


??ADR: 


?ADRS: 


HL, ВЕЗ\ К 

$+5 

HL,SETVR 
(BSETO*1),HL 
E TÓ*1),HL 
(WSETO* 1) ,HL 
(WSETI*1),HL 
DE 

А, (DE) 
BC,0A000H 
"p 

Z,BSET 
BC,0C000H 


GETVAD 
с 
GETVAL 
C 
SETVR 
?СОМРТ 
BSET 


GETVAD 
с 
GETVAL 
с 
БЕТУК 
HL 
SETVR 
?СОМРТ 
WSET 


GETVAD 
C 
GETVAL 
б 
HL 
GETVAL 
DE 


E 
NZ,SSETO 
?COMPT 
SSET 


DE 

A, (DE) 
BC,0A000H 
'B' 
Z,BLIST 
BC,0C000H 
"wt 
Z,WLIST 
BC,0E000H 
"s! 
Z,SLIST 


DE,BLMSG 
DEPRT 


NZ,BLSTO 
DE,EADMS 
DEPRT 
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2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2849 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2815 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
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WLIST: LD 
CALL 
LD 
WLST9: CALL 
CALL 
INC 
LD 
OR 
ЈЕ 
WLST1: LD 
JP 
SLIST: LD 
CALL 
LD 
51570: CALL 
CALL 
INC 
LD 
OR 
JR 
JR 
; 
?SLAD: PUSH 
POP 
INC 
LD 
ок 
JR 
CALL 
JR 
DEC 
EX 
CALL 
LD 
CALL 
LD 
CALL 
LD 
CALL 
EX 
CALL 
CALL 
RET 
; 
i Message 
EADMS DEFB 
BLMSG DEFB 
WLMSG DEFB 
SLMSG DEFB 
YNMSG DEFB 
COMPMS: DEFB 
BADMS: DEFB 
DEFB 
DEFB 
; 
DSMSG: DEFM 
DwMSG: ПЕРМ 
DEFMSG: DEFM 
; 
BINMES: DEFB 
BASMES: DEFB 
ASCMES: DEFB 
???MES: DEFB 
IPLMES: DEFB 
CPMMES: DEFB 
; 
HEADMSG: DEFB 
COLN99: DEFB 
TITL: DEFB 
SELMSG: DEFB 
ENDMSG: DEFB 
KILMSG: DEFB 
NFMSG: DEFB 
DEFB 
KLDMSG: DEFB 
DEFB 
CLUSMS: DEFM 
SECTMS: DEFM 
PONTMS: DEFM 
; 
CMDMSG: DEFB 
SCLNMS: DEFM 
TTLMS: DEFB 
CLUBMS: DEFB 
JUNMS: DEFB 
ONMSG: DEFB 
OFFMSG: DEFB 
ADRMSG: DEFB 
IPL?MS: DEFB 
DEFB 
DEFB 
DEFB 
UNITMS: DEFB 
DEFB 
DEVMS: DEFB 
DEFB 
DEFB 
DEFB 
SEMSG: DEFB 
NOWMSG: DEFB 
ABOMSG: DEFB 
WORK: DEFS 
DEFB 
NAMEMS: DEFS 


DE,WLMSG 
DEPRT 


NZ,WLSTO 
DE,EADMS 
DEPRT 


DE,SLMSG 
DEPRT 
HL,0 
BITVR 
Z,?SLAD 


WLSTI 


13,13,27,2,'End of Address',13,0 
13,27,6,'List of DEFB',27,7,13,0 
13,27,6,'List of DEFW',27,7,13,0 
13,27,6,'List of DEFS',27,7,13,0 
27,5,13,'Are you sure ? (Y or N) 
13,27,6,'Completed.',13,13,0 

27,2,'Bad V-RAM Mode !",13,13 

27,6,'V-RAM (&HA000-&HFFFF)',13,13 


un 


217, CLEAR ?? (Y or N) ”,0 
'DEF','S' OR 80H 
'DEF','W' OR вон 
'DEF','B' OR 80H 
'Bin 7,0 

“Вав ',0 

"Ase ',0 

0207 7;0 

'IPL ”,0 

"СРМ ',0 

'FILE No. ',0 
°’: °0 


Bs 
'SELECT FILE (RET=Next Ғі1ев)”,0 
'PUSH SELECT KEY [ 17,0 
27,4,' END of FILE 
KILLED FILE 
Your select No. 

‚0 
27,2,' Your select Ко. 
' KILLED FILE. ' Ј 


‚0 
"e 
ia^ 


is' 
'Glücter*," + 


* Secter',"' 
^ peint*',^ * 


OR 80H 
' OR 80H 
OR 80H 


1BH,3," 


We, d 4 


COMMAND: ',1BH,5,0 

"и" ов вон 
27,6,'FILE/DIS-ASSEMBLER Тег.',0 
27,5,"by X1 Player's Club",13,13,0 
27,7,'JUNJI KISHI',13,13,0 


OCH,1BH,4,'P:',1BH,2,'ON ”,0 


OCH,1BH, 4, ' P:', IBH, 1,'OFF ',0 
1BH,4,'ADR:', 1BH,6,0 
1BH,7,13,13,"1 : Hu-Files',13 


'2 : IPL Program',13 
"3 : CP/M Files',13,'4 
27,4,'Select No. ? ',0 
27,5,13,13,"'Input Unit No. 
27,7,' (0 = ',0 
27,5,13,13,' Input DEVICE',0DH, 13 
*(7,22,8, КҮ” 27,4, DISK ? 
27,6,'2' ,27,4,' :MEM * 


Get Cluster',13 


?',0DH, 13 


27,6,'3',27,4,' : EM',27,5,') ? ',0 
27,6,'SEARCH» :',27,7,0 
0DH,27,5,'Now Searching !”,13,13,0 


13,27,2,'ABORT !!”,13,13,0 


39,20H ;1 LINE WORK 39Byte 
0,0 
39,20H ;FILE МАМЕ MESAGE 


3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 


DEFB 
NOWADR: DEFW 
OLDADR: DEFW 
LRADR: DEFW 
DMYFG:  DEFB 
PRNF: DEFB 
LPCNT: DEFB 
CRTCN DEFB 
SCOLN DEFB 
STACR DEFS 
SEWORD: DEFS 
; 
UNITNO: DEFB 
DEVICE: DEFB 
STADR: DEFW 
ENDADR: DEFW 
: DEFW 
DEFW 
OLDBUF: DEFW 
NPNT: DEFW 
OPNT: DEFW 
POINTA: DEFB 
DEFS 
FCBLOC: DEFS 


VERSION:DEFW 


DEVICE 


; 
; 
; by X1 Player's Club / Junji Kishi 
; 
; 
; 


9 

9 ;NOW IBYTE Р.С. 

[] 31STATEMENT P.C. 

9 ¿LEFT or RIGHT NOWADR 
9 ;DD,FD NIMONIC FLAG 
0 ;PRINTER ON/OFF FLAG 
9 ;PRINTER COUNT 

9 ;CRT COUNT 

9 ;SEMICOLON FLAG 

16,0 ;USE on GETBYT 

33,0 ;SEACH WORD WORK 

0 ;Unit No. 

9 iDEVICE FLAG(0:DISK, 1:МЕМ, 2: EMM) 
9 ¿FILE 5ТАЕТ ADR 

° ¿FILE END ADR 

OFF99H ;Printer End Adr. 
BUFFA+0200H 

BUFFA+0200H 

BUFFA 

BUFFA 

9 ;NOW Cluster(0-F) 
16,0 

32,0 

VERSN 


DRIVER 


ERROR STATUS 


Set of Register 
Acc 90 :OK 
01 :DISK FULL 
Acc - UNIT No. 02 :DIR OVER 
03 :BAD UNIT No. 
Acc'= RECODE SIZE 04 :BAD FAT 


"ow non non nn non 
ә 
に 


; :R/W MODE ERR 

H DE - RECODE No. 96 :No File ERR 

; 07 :Write protect 
; HL = BUFFA ADR. 08 :Device Offline 
š ЕЕ :1/0 ERR 

; 

; CALL DSKRED,MEMRED , EMMRED 

; CALL DSKWRT , MEMWRT , EMMWRT 

; 

; 


た えま まま まる る まる る る まる る る る 】 


; MEM DRIVER 


;¿ttttttttttttttttt£ 


MEMCK: 
PUSH 
PUSH 
PUSH 


MEMSUB: 


JJ1: 


HL 

DE 

BC 
BC,4000H 
H,(C) 


BC=V-ADRES 


3049 
3050 
3051 

3052 
3053 
3054 

3055 
3056 
3057 

3058 
3059 
3060 
3061 

3062 
3063 
3064 

3065 
3066 
3067 

3068 
3069 
3070 
3071 

3072 
3073 
3074 

3075 
3076 
3077 
3078 
3079 
3080 
3081 

3082 
3083 
3084 

3085 
3086 

3087 

3088 
3089 
3090 
3091 

3092 
3093 
3094 

3095 
3096 
3097 

3098 
3099 
3100 
3101 

3102 
3103 

3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 

3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 

3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 


RET 
JJ2: 
LD D,A ;DE-SIZE 
POP HL 
RET 
; MEM READ 
+ ニ ーー ニニ ニニ ジニー ニニ ニニ ニー ニニ ニー ニー ニー ニニ ニニ ニー ニニ ニニ ニー 
MEMRED 
CALL MEMSUB 
RET c 
MMRDLP: IN А, (С) 
LD (HL),A 
INC BC 
INC HL 
DEC DE 
LD A,D 
OR E 
JR NZ , MMRDLP 
RET 
に コー ニニ ニニ ニュ ご ニニ ニー ニニ ニニ ニュ ニラ ニニ ジー ニコ ニニ ニニ 
; MEM WRITE 
MEMWRT: 
CALL MEMSUB 
RET с 
MMWTLP: LD A, (HL) 
ойт (С),А 
ІКС HL 
INC BC 
DEC DE 
LD A,D 
OR E 
JR NZ,MMWTLP 
RET 
И Т 
; EMM Driver 
1 まま ネネ ネネ ネネ キネ ネネ キネ ネネ ネネ 本 ネネ ネネ キキ ネネ ネネ キネ 
; 
EMADSET: 
XOR A 
ойт (С),А 
INC BC 
ойт (С),Е 
INC BC 
ойт (C),D 
INC BC 
RET 
EMMCK: 
RLCA 
RLCA 
LD С,А 
LD B,0DH 
LD HL,04FFH 
OR А 
SBC HL,DE 
JR NC,JJ5 
LD А,1 
ВЕТ 
425: 
PUSH BC 
CALL EMADSET 
IN H,(C) 
POP BC 
PUSH BC 
CALL EMADSET 
LD А, 4ЕН 
ойт (С),А 
РОР вс 
PUSH BC 
CALL EMADSET 
IN А, (C) 
POP BC 
СР 4ЕН 
JR Z,JJ6 
LD А,8 
SCF 
RET 
JJ6: 
PUSH BC 
CALL EMADSET 
OUT (C),H 
POP BC 
CALL EMADSET 
RET 
; 
EMMSUB: 
CALL ЕММСК 
КЕТ © 
ЕХ АЕ,АЕ'! 
PUSH AF 
ADD А,Е 
LD E,A 
LD А,0 
ADC A,D 
LD D,A 
LD HL,0500H 
XOR A 
SBC HL,DE 
JR C,JJJJ 


LO 


リス ト 2 FDAS ソー ス ・ リ スト 


3158 
3159 
3169 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 


РОР АЕ 
LD D,A 
XOR A 
LD E,A 
RET 
JJJJ: 
POP AF 
LD А,1 
SCF 
RET 
EMM READ 
EMMRED: 
PUSH HL 
CALL EMMSUB 
POP HL 
RET с 
EMRDLP: IN A, (C) 


; 
EMMWRT: 
PUSH HL 
CALL EMMSUB 
POP HL 
RET c 
EMWTLP: LD A, (HL) 
OUT (С),А 
INC HL 
DEC DE 
LD A,D 
OR E 
JR NZ,EMWTLP 
RET 
; 
НЕ52222222222222222222222222222222224) 


DISK DRIVER 


22222222222222222222222222222222222) 


; 


FSTDEV: 


DSKRED: 


; 
; 
DSKWRT 


LD (FSTDEV),A 
CALL READY 
CALL NC,AGNWRT 
JR C,DSKERR 
JR MOTOFF 

5 

; 

; 

DSKERR: PUSH AF 


LD (FSTDEV),A 
CALL READY 

CALL NC,AGNRDY 
JR C,DSKERR 
JR MOTOFF 


CALL MOTOFF 
POP AF 
RET 

; 

MOTOFF 
LD ВС, OFFCH 
LD A,(FSTDEV) 
AND 03H 
OUT (С),А 
ЕІ 
XOR A 
RET 

; 

SETDCM: 
LD BC, OFFAH 
OUT (C),E 
LD C,0F8H 
OUT (С),А 
LD А,7 
DEC A 34 
JR NZ,$-1 ;127 
RET 

; FDC INIT 

; 

READY: DI 
PUSH HL 
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LO 


リス ト 2 FDAS ソー ス ・ リ スト 


3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3291 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 


крудд: 


RDYWTI: 


RTRDYS: 


; 
AGNRDY: 
REDAGN: 
REDRTY: 


MPNYMI: 


; 
ENDRED: 


CNTRED: 


NXTSCT: 


PUSH 
CALL 


HL 
HL,FSTDEV 
A, (HL) 
дЕН 
(HL),A 
А,Е 


р 
р 
р 


NC,RDY00 
A, (HL) 


BC, OFF8H 
А,(С) 

81H 
Z,RTRDYS 
HL 

А,Н 

L 
NZ,RDYwT1 


Е 
NZ,RDYwT1 


NC,ENDRED 


NC,MPNYMI 


C,D 
MPNYMI 


ЛЕН 

DE 
Z,CNTRED 
HL 

AF 


A 

Z,DRER 
DRESET 
REDRTY 


2 

AF,AF' 
NNTSCT 
NC,REDAGN 
AGNRDY 


E 

A,10H 

E 

NC 

E,01H 

А, (FSTDEV) 
10H 
A,(FSTDEV) 
NZ,NXTTRK 
90H 


NXTTRK: 


5 
DKER: 


AGNWRT: 
WRTAGN: 
WRTRTY: 


MPNWRT: 


ENDWRT: 


DSKER2: 


CNTWRT: 


; FDC Check 


POWER: 
POWERL: 


; 
DRESET: 


POP 


(FSTDEV),A 
C,0FCH 
(C),A 


D 

OEFH 
(FSTDEV),A 
С, ОЕСН 
(С), А 


РЕ, OF8FBH 
А, (С) 


NC,ENDWRT 


NC,MPNwRT 
A, (HL) 


C,D 
MPNWRT 


5,А 
DE 
NZ , DSKER2 
7EH 
Z,CNTWRT 
HL 
AF 


AF 

AF 

AF,AF' 

А 

2 

АЕ, АЕ’ 
NXTSCT 
NC,WRTAGN 
AGNWRT 


А, ОЕСН 

А 

HL, (4193H) 
NZ,DERAYO 


D, の FFH 
ВС, ОБЕВН 
А, ОАБН 
(С), А 

А, 10 
DERAYO 
А, (С) 
ФА5Н 

2 

D 
NZ,POWERL 
A,8 


ВС, ОЕЕЭН 
(С), А 

© 

А,2 
(С),А 
DBUSY 

HL 

DE 

SEEK 


¿Write Plotect 
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LO 


UAM FDAS ソー ス ・ リ スト 


3485 POP AF 

3486 OR A 

3487 RET 

3488 ; 

3489 GETLST: LD HL,DSKTRK 
3490 PUSH DE 

3491 LD A,(FSTDEV) 
3492 AND 03H 

3493 LD E,A 

3494 LD D,@ 

3495 ADD HL,DE 
3496 POP DE 

3497 RET 

3498 ; 

3499 SEEK: LD ВС, ОЕЕВН 
3500 ойт (C),D 
3501 PUSH HL 

3502 CALL GETLST 
3503 LD A, (HL) 
3504 LD С, の F9H 
3505 OUT (С),А 
3506 LD (HL),D 
3507 LD C,0F8H 
3508 LD А,1ЕН 
3509 ойт (С),А 
3510 РОР НІ, 


3511 DBUSY: PUSH 
3512 LD 
3513 ITSELF: DJNZ 
3514 LD 
3515 BSYLP1: IN 
3516 RRCA 
3517 JR 
3518 POP 
3519 XOR 
3520 ВЕТ 
3521 ; 

3522 DSKTRK: 

3523 DEFB 
3524 ; 

3525 ; 

3526 : 

3527 END 


DE 

B,29 
ITSELF 
BC, の FF8H 
A,(C) 


C,BSYLP1 


DE 
А 


9,0,0,0 


Doa: ЖС ON BOE t 
ЖОЙ 7 , < КА 
%% Хр эф 959; 


X1 用 の BOX FILL し ルー チン で す (WIDTH 
8091). CLEAR & HEC00 を 実行 後 モ ニタ か 
ら 入 力 し て くだ さい . まず BASIC から の 使い 
方 で す が , 必ず 最初 に DEFUSR0 = &HFDE 
0 を 実行 し ます . 

次 に 具体 的 な 使い 方 で す . た と えば , (ХІ, 
Y1), £ (X2, Y2) を 対角線 と する 四角 形 の 中 
を 青 で 塗り つぶ し だ た いと き に は , 


A$ = USR0 (MKI$ (X1) + MKIS (Y1) 
+ МКІ8(Х2) + МКІ8(Ү2) + HEXCHR 
$("FF0000")) 


と し ます . HEXCHR$ の 中 身 は タイ ル ・ パ タ 
ー ン で , BASIC £ |ñ] Ú < B, R G の 順に な っ 
て いま す 。 た だ し 。 タイ ル ・> ペ ヾ ターン は 縦 1 
ドッ ト , 横 8 ド ッ ト に 固定 され て いる の で , 
これ 以上 書い て も 無視 され ます . いち お う エ 
ラー 処理 は し て あり ます が , メイ ン ・ ル ー チ 
ン の 中 で は や っ て いな い の で , マシ ン 語 で コ 


。 | 用 タイ ニ BOXFILL 


ー ル する と き に は 注意 し て くだ さい . 
最後 に 気 に な る スピ ー ド で す が , 全 画 面 を 
0.4 秒 弱 で 塗り つぶ し ます . これ は NEW BASIC 
の 4 倍 く らい の スピ ー ド で す が , この ルー チ 
ン で は PSET 以外 の モー ド を 持た な いため, 
GRAM の アク セス 量 が 半分 に な っ て いる こと 
№, タイ ル ・ パ ター ン の 長 さ が 固定 され て い 
る こと , ワー ルド 座標 に 対応 し て いな いた め 
13. 
マシ ン 語 か ら の 使い 方 
@ BOX ЕПЛ, (FC10H) 
入力 : DE=X1, В-ҮІ, HL= X2, C= Y2 
IX ニタ イル ・ パ ター ン 格 納 ア ドレ ス 
破壊 НГ, БЕ, BC, АЕ, AF 
€GRAM CALK (FD46H) 
入力 БЕ=Х1, В=У1 
出力 : BC=GRAM7 EL A, A= 
zx (HMO, 1, 2, 7) 
: HL, DE, ВС, АЕ, АҒ 


BIN + 


画 秋 田高 校 マイ コン 同好 会 YOP 


図 メモ リ ・ マ ッ プ 


FC00 
FCOF 
FD21 
FDA5 
FDD9 


FE57 


グラ フィ ッ ク 用 テー プル ワー ク ・ エ リア 
X1-X2 三 8 の と き の BOX FILL 
X1-X2< 8 の と き の BOX FILL 
GRAM ア ドレ ス 計算 ルー チン ( り ロケータ プル) 


BASIC 用 パラ メー タ ・ セ ッ ト ・ ル ー チ ン 


ロロ 参考 文献 


1) “エディ タ ア セン プラ ZEDAI Оһ! М2,785 


年 7 H>, 


3) や は ぎ だ た 


F= МОТ, 


日 本 ソフ トバ ンク 
2) X1 マ シン 語 活用 百科 , 


業 報 知 セ ンタ ー 
が ん の НАНУ y7 zs 
1/О'85% 5 H 5 
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マシ ン 語 ファ イル の 実行 開始 アド レス や ロー ド ・ ア ドレ 
ス を 忘れ た 場合 , LIMIT 文 の 指定 と か , CALL 文 の 実行 と か 
に 困っ て し まい ます . 

こん な と き は , 皆さん どう な さっ て いる の で し ょ うか . 
DEVS 文 で ディ レク トリ を 読み だ すか , DEVICE DUMP 


UTILITY な ど で デ ィ ス ク を の ぞ く か する し か あり ませ ん ね . 


また 他 の ディ スク に コピ ー す る 場合 な ども , アド レス が 必 
要 に な り ま す . そこ て で FILES 命 令 を 改造 し て みる こと に し 


202; 
КОО ОО к. 


対象 BASIC 

CZ8FB01 (V1.0) (IHDISK BASIC) 

CZ8F B01 (V2.0) (NEW DISK BASIC) 

CZ8FB02 (V1.0) (turbo BASIC) 
表示 

オリ ジ ナ ル の 年 月 日 な ど を 消し ,. そこ に イン フォ メー シ 
ョ ン に 書か れ て ある と お り , FAR, ロー ド ・ ア ドレ ス , 
実行 開始 アド レス , お よび , 先頭 クラ スタ ・ ナ ン バ を 16 進 
数 で 表示 し ます . 

な お , ファ イル ・ タ イプ の 区 別 は つけ ませ ん . HR, 
BASIC フ ァイル で は サイ ズ の み 意 味 を 持ち , ASCII フ ァ イ 
ル で は すべ て 意味 を 持ち ませ ん . 

方 法 

FILES 処 理 ル ー チ ン 部 分 に パッ チ を あて , パッ チ 用 の マ 
シン 語 フ ァイル を 作り , それ を LOADM す る こと に より 行 
な いま す . 当然 . オリジナル 処理 部 分 を は み 出 さ な い も の 
と し ます (実行 は し な いこ と )。. 


リス ト 1, 2 は それ ぞ れ 旧 BASIC, NEW BASIC の も の 
TH. 内 容 は どちら も まっ た く 同 じ し も の で す . た だ アド レ 
ス が 違う だ け で す . 

1НВА$1С 2", アド レス 6E27H か ら 6E63H ま で の 61 バ イ 
ト . 

NEW BASIC 用 が , アド レス 458EH か ら 45CBH ま で の 61 
バイ ト . 

リス ト 3 が , turbo BASIC 用 で す . アド レス 394DH か ら 
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Е 


Кош TEER ВИННИ 
ЖЕНЕН 


ЕЕ E 


ormat & Copy. Ut: 
Utility + 
лсе dum «Uty 


, 
, 

, 
, 
, 
, 
, 
, 
D 
D 
D 
D 
, 
р 
, 
, 
, 
, 


š 


398DH ま で の 65 バ イト (リス ト は D94DH か ら に な っ て い 
x34)» 

いずれ も 間違い の な いよ う 注 意 し て 入力 し て くだ さい . 

入力 が 終わ れ ば , 上 記 の アド レス 部 分 を SAVEM し ます 
その 際 , 実行 開始 アド レス は 0000H と 指定 し て お く 方 が よ 
いで し ょ う . な ぜ な ら , 誤っ て R オ プシ ョ ン に よる オー トラ 
ン を し た 場合 , BASIC の ホッ ト ・ ス ター ト で 終わ る か ら で す . 

一 応 , ファ イル 名 は “FILES.PAT* と し ます . 

жы, 以前 I/O 誌 に 掲載 され て いた , ミ ニア セン プラ で ソ 
ー ス を 入力 する 方 は , NEW BASIC 用 は , I 旧 BASIC 用 と 同 
じ で す の で , IHBASIC 用 で SAVEM し た も の を ロー ド ・ ア 
ドレ ス 指 定 で NEW BASIC 上 に LOADM し て くだ さい . 

ミニ アセ ンプ ラ を H 旧 BASIC 上 で 使う に は 若干 の 変更 で 
可能 で す (後述 ). 


ƏIIUII.IIIIIII ПІ 使用 


各 BASIC 立 ち 上 げ 後 , それ ぞ れ の FILES.PAT” を 
LOADM し ます . これ で , 以後 FILES を 実行 すれ ば , アド 
レス が 16 進 数 で 表示 され ます . turbo, NEW BASIC で は 
当然 の こと な が ら , 旧 BASIC に お いて も WIDTH40 時 に 
は , ファ イル ・ ネ ー ム の み の 表 示 と な り ま す . 


ミニ アセ ンプ ラ に つ U て 


ニア セン プラ を HHBASIC で 使う に は , 以下 の 内 容 を 変 
て くだ さい . 


し 


更 


7 FL АЕ025Н = 35Н, 7 Ки AE026H = A6H 
以下 の アド レス は すべ て 同じ 内 容 で す . 
EOABH, EOBDH, ЕОС6Н, EOECH, 
E135H, EI4CH, Е160Н, ЕТАН, 


E19BH, E1A3H, Е1ВАН, E1D5H, 
E1F8H, E213H, E22CH 


EOF8H 
E187H 
Е1ЕЗН 


以上 すべ て 。 A6H を セッ ト し て くだ さい 、。 


これ で 。 


旧 BASIC(CZ8FB01 V1.0) 上 で ミニ アセ ンプ 
ラ が 使え ます . 数 百 バ イト 程度 の マシ ン 語 な ら , 


この ミニ 


アセ ンプ ラ は 本 当 に 使い や すい アモ セ モン プラ だ と 思い ます . 


BASIC) A FELT, 
502%) C3. 


ア の 確保 は 必要 あり ませ ん . 


ソー ス ・ テ キス ト を エディ ッ ト で き 


ЖЫ, テー プ 版 と 違っ て , NEWON に よる ワー ク ・ エ リ 


turbo 用 の リス ト 3 に お いて , 


2100 行 に MEM $D94D と あり ます が , これ は ミニ アセ ンプ 
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LO 


ラ の 使用 説明 の 中 に は な か っ た の で す が , 作成 オブ ジェ ク 
ト ・ セ モッ ト の オフ セッ ト 命 令 で す . リ スト 3 の 場合 は , ORG 
394DH で 動作 する マシ ン 語 を アド レス D94DH か ら に 作成 
СЗ. ミニ アセ ンプ ブラ は H 旧 BASIC 上 で 動き ます の で , と 
りあ え ず アド レス D94DH か ら に オプ ジェ クト を 作成 し , > 
ィ ス ク に セ モー ブ プ 後 , Iturbo BASIC 上 に ロー ド し ます . 
今回 の 改 FILES は , X1 Player's Club の 中 で も な か な か 
評判 が 良かっ た も の で す . 簡単 な 改造 で す が , 目的 が は っ 
きり し て いる 場合 は 良い 結果 が 出る よう で す . 
最後 に 私 事 で 恐縮 で す が , 最近 通信 を 始め まし て テレ ス 
ター に も 入会 し まし た . この 改 FILES を BASIC の プロ グラ 
ム に 直し た も の を アッ プロ ー ド し て いま す の で , ぜひ 使っ 
て みて くだ さい . 
参考 文献 
1)dB ソ ツ ソフト: ミニ アセ シンプ ラ ?。 
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FILES PATCH 


W ooo эе зе o o 


for 


CZ-8FBO1 


by X1 Player's Club 
ト す すす すす する すす る する すす すす すす すす る する 3 る る 3 すす すす す 】 
If Version 2.0 then 


ORG 
If Version 1.0 then 
ORG 


$458Е 
$6E27 


DE,0002 
HL, DE 
А,%22 
81420 
А,(0007) 


03500 6E3F ЕВ ЕХ DE,HL 
03600 6E40 0603 LD B,3 
03700 6E42 LOOP: 

03800 6E42 1A LD А, (DE) 
03900 6Е43 13 INC DE 
04000 6E44 6F LD L,A 
04100 6E45 1А LD A, (DE) 
04200 6E46 13 INC D 
04300 6E47 67 LD Н,А 
04400 6Е48 Ср0212 CALL $1202 
04500 6Е4В 3Е20 LD А,” 
04600 6E4D CD2014 CALL $1420 
04700 6Е50 10Ғ0 DJNZ LOOP 
04800 6E52 

04900 6E52 210600 LD HL,$0006 
05000 6E55 19 ADD HL,DE 
05100 6E56 3E20 LD А, 
05200 6Е58 CD2014 CALL $1420 
05300 6E5B 7E LD A, (HL) 
05400 6Е5С CD0712 CALL $1207 
05500 6E5F SKIP: 

05600 6Е5Е CD4614 CALL $1446 
05700 6Е62 El POP HL 
05800 6Е63 C9 RET 

05900 6Е64 

06000 6E64 END 
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by X1 Player’s Club 


よ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ キネ ネネ ネネ ネネ ネネ ネネ ネネ ネ 


$394D 
$D94D 


DE,0002 
HL, DE 
53943 
A,($F87F) 
528 
Z,SKIP 
BC,$39BA 
3 


A, $27 
5399С 
DE,HL 
B,3 


А, (DE) 


HL,$0006 
HL,DE 

A, (HL) 
BC,$36E2 
3 


BC,$37AB 
3 


HL 


147 


今回 は 対話 調 で 書い て み ま し た .『 ず ん ちゃ ん 』 は 当 ク ラ 
プ の 少年 ,『 お っ ちゃ ん 』」 は 私 で す . それ で は まず , 700 
ー グ か ら 4... .. " 


フロ ロー グ 


『 ず ん ちゃ ん , 元気 に コン ピュ ー ト し て いる か い ?7』『 う 
А, お っ ちゃ ん も や っ て る か ? ボク は 毎日 ゲー ム で 頑張 っ 
る で ぇ .』『 ゲ ー ム で ば か り 遊 ん で びちゃ, ダメ だ よ .』『 を 
ん な こと な いて . お っ ちゃ ん の “DDED” t "FDAS" を 使 
BIT, ちゃ ん と 解析 し て る が な . ボク は な / だ た だ ゲー ム 
だ けし て 遊ん で る ん と ちゃ う で ぇ . ゲー ム の SHIP の 数 を 
増やし た だ たり , 好き な 場面 か ら 好 め ら れる よう , 一 所 懸命 解 
析 し て 改造 し て る ん や .』『 ほ う , どう や っ て る ん ね .』 r$ 
^, 最初 YFDAS” を 使う て 逆 ア モン ブル する や ろ . それ で 
SHIP の ワー ク を 見 つけ る ん や . 見 つけ だ たら, その 辺 の 数 バ 
イト を サー チ す る や ろ . そし た ら そ の アド レス の 書か れ て 
ある ディ スケ ッ ト 稚 の クラ スタ と セク タ が 表示 され る や ん 
>». 今度 は "DDED* で, その レコ ー ダ を ダン グ し て 書き 換 
えて オシ マイ や .』『 な る ほど , だ いし だ も の だ .』『 せ や け 
Еш», お っ ちゃ ん . 最近 うま いこ と いか へ ん の や .』『 ど 
うし て だ い ?』『 何 や 知ら ん けど ,。 う まい こと ディ スケ ッ ト 
が 読ま れ へ ん ね ん . “ЕРАЗ” СІРІ. の ファ イル を 選ぶ や 


5. それ は まぁ 読め ゆるし, 逆 ア セン ブル も で きる ん や けど , 


を その プロ グラ ム は 大 概 ロ ー ダ や ね ん . こい つが 曲 者 や Z な 

ん か よう わか らん けど , と ん で も な い セ モク タ ・ ナ ン バ を 読 

み に い っ だ り ,。 トラ ッ ク ・ ナ ン バ も けっ だ いや ね ん .』『 ふ 
ステ ー タ ス は “TRACK00? “INDEX” 


FOD CONTROL & 1D READ SYSTEM 


"m SS 14 is1)0 


"pem "| 


inar. | 


Lm" 
LES МЕ № 
Е: 80 


КЕ! 
:% 
|; 
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ぅ 一 ん . そこ まで わか っ だ と は 大 し た も の だ ね .』『 せ や か 
5, “DDED* で も エラ ー が 出 て , 読ま れ へ ん ね ん . 何と か 
し て ぇ な / お っ ちゃ ん .』 


フロ グラ ム の 使 り 方 


Баја 2700 ELE Zc Z) C + 25, 大 部 分 は BASIC 
C, どう し て も BASIC で は 不可 能 な と ころ だ け 若 干 の マシ 
ン 語 を 使っ て 作っ た の が , リス ト 1 の “FD コン トロ ー ラ ィ ^ で 
d 

削 違 い の な いよ うに よく 確か め て , 特に 1/O ア ドレ ス お 
よび IN, OUT す る デー タ な ど に は 極力 注意 し て くだ さい . 
BASIC プ ログ ラム の ファ イル 名 は 好き な よう に 付け て く 
だ さっ て 結構 で す が , マシ ン 語 の 方 は リス ト 中 に 使わ れ て 
いる ファ イル 名 と 同じ に する 必要 が あり ます . 

RUN さ せる と , 画面 に コマ ンド ・ メ ニュ ー が 表示 され る 
DT, 使い 方 は 大 体 わ か る と 思い ます が , 一 応 説明 し て お 
きま す . 
e0 (Head0 : : ディ スク ・ ド ライ ブ の モー タ を オン し ます . 
その 際 , ヘッ ド は 表側 を 選択 し ます . 

@1 (Head1) : や は り モ ー タ ・ オ ン し ます が , ~y FR 
側 を 選択 し ます . 

e, (カン マ ) : モー タ を オフ に し ます . 

ФК (Restore) : ヘッ ド を トラ ッ ク 0 の 位置 まで 移動 し ま 
+. 最初 に 必ず 実行 し て くだ さい . 

eN (Next): ステ ッ プ ・ イ ン し ます . ヘッ ド が 1 つ 内 側 へ 
移動 し ます . 


指定 セク タ を 読み 込み ダン プ す る 


en STATUS C Bit isi | 


ФВ (Вас): : ステ ッ プ ・ ア ウト し ます . ヘッ ド が 1 つ 外 側 
へ 移動 し ます . 
eS (Seek) : トラ ッ ク ・ ナ ン バ を イン プッ ト す る こと に よ 

り , その トラ ッ ク 位 置 ま で ヘッ ド を 移動 し ます . 
注意 N, B お よび S は , 移動 後 の ト ラッ ク と の トラ ッ ク ・ 
ナン ババ 照合 を し ませ ん の で , 純粋 に 物理 的 な 移動 と な り ま 
+. これ に より トラ ッ ク ・ ナ ン バ が 異常 な 数 値 と な っ て い 
て も エラ ー と は な り ま せん . 
eI(ID read) : 現在 選択 され て いる 側 の , ヘッ ド の 位置 し 
て いる トラ ッ ク の "ID field” を 連続 し て 32 回 読み 出し ま 
+. バッ ファ と し て 名 HD100 を 指定 し て いま す . 
eL(Load) : 現在 選択 きれ て いる 側 の , ヘッ ド の 位置 し て 
いる トラ ッ ク に 対し て , イン プッ ト さ れ た トラ ッ ク ・ ナ ン 
ババ お よび セク タ ・ ナ ン バ を 持つ セク タ を リー ド し ます . 
eW (Write) : 上 と 同じ 条件 で ライ ト し ます . ど ちら も バッ 
ファ は , 層 HD200 か ら に な っ て いま す . 

e D (Drive) : 使用 する ドラ イブ を 変更 し ます . ドラ イブ 0 
か ら 3 ま で で す . 

ФЕ (End): この プロ グラ ム を 終了 し ます . モー タ も オフ 
ср, 

な お , 選択 され て いる ドラ イブ , ヘッ ド お よび トラ ッ ク 
位置 が 画面 左下 に 表示 され ます . 初期 値 は ドラ イブ 0, ヘッ 
FO, トラ ッ ク 255 に な っ て いま す . トラ ッ ク が 255 な の は , 
プロ グラ ム を RUN し た 直後 は 物理 的 に ヘッ ド の 位置 が わ 
か ら な い の で , リス ト ア し て トラ ッ ク ・ ナ ン バ を イニ シャ 
ライ ズ し な さい と いう 意味 で , 大 き な 数 字 を 設定 し て あり 
ます . 

『 ず ん ちゃ ん , どう だ い ?」「『 う ん. RUN さ せる と 
“100000006 と 次 々 に 表示 され る けど , これ は 何 や の ん , 
お っ ちゃ ん .』「『 そ れ は ね , FDC (フロ ッ ピ ー デ ィ ス ク ・ コ 
ント ロー ラ , 富士 通 MB8877AO) の ステ ー タ ス ・ レ ジス タ の 
内 容 を 読み 出し て 表示 し て いる ん だ よ . その 上 側 に 0 か ら 7 
まで の 数 字 が 並ん で いて , 一 番 上 の 7 の と ころ に 赤色 で , 
'NOT-READY" と 表示 され て いる だ ろう . それ は , ステ 
ー タ ス ・ バ イト の 最上 位 ビ ピット が 立っ て いる , す な わ ち び 1? 
の 場合 の 意味 を 表示 し て いる ん だ よ . [| か [1] の キー を 押 
し て モー タ ・ オ ン し て みな さい .。 …… ほら , 消え た だ ろ . 
これ で 準備 は OK で す よ . っ て いう 意味 なん だ よ .』『 ふ ぅ 一 
A. 画面 左下 の 数 字 で , トラ ッ ク が 255′ っ て いう の は お 
か し いん と ちゃ うか ?』『 そ れ は ね , 最初 プロ グラ ム を RUN 
させ た と き は , ディ スク ・ ド ライ ブ の ヘッ ド が どの 位置 に 
いる の か わか ら な いわ け だ ろ . だ か ら , 最初 に [R] キ ー を 押 
し , リス ト ア し て ヘッ ド を い “0? iz, プロ グラ ム 内 の カウ ン 
タ も W に イニ シャ ライ ズ し な さい と いう 意味 な ん だ よ . 
も ちろ ん , モー タ を オン し て か ら 行 な うん だ よ .』『 あ れ / 
ステ ー タ ス 表 示 の 方 に “TRACK00′ っ て 表示 し た わ .」『 そ 
3, 物理 的 に ヘッ ド が 0 に 位置 し て いる と きだ け , 第 2 
ビ ピット が 立つ ん だ よ 。 ほら , よく 見 て ご らん . た ま に , 第 
1 ピッ ト の と ころ に INDEX” と 表示 され る だ ろ . あれ は 
ね , イン デック ス ・ ホ ー ル を 見 つけ た と きだ け , 第 1 ビッ ト 
が 変化 する ん だ よ . BASIC の INP 文 を 使っ て 読み 出し て い 
る ん だ けれ ど , 他 の 処理 も 実行 し て いる の で , 読み 出す タタ 
イミ ング が 一 定 し て いな いも の だ か ら 表 示 が バラ バラ に な 
っ て し まう ん だ よ . SERN] キー を 押し て 見 な さい .』『 あ 
>, "TRACK00" が 消え て し も うた .』」 い ドス テッ プ ・ イ ン ”" 
と 言っ て , ヘッ ド を トラ ッ ク 1 つ 分 内 側 に 移動 し た ん だ よ . 
[в] キー を 押す と , 逆 に 外側 へ 移動 する ん だ よ . ほら , また 
NTRACKÜ0" が 表示 され だ た だろ. こち ら は パス テッ プ ・ ア 
УК と 言う ん だ よ . ずん ちゃ ん の 使っ て いる ディ スク は , 


LO 


エプソン の TF-20 だ ね . その 機種 は ト ハ ー ド 的 に トラ ッ ク 0 よ 
о, トラ ッ ク 39 よ り 内 側 に は 移動 で き な い よう に され て 
いる の で , プロ グラ ム の 方 で も 対処 し て ある よ .』「『 何 で や 
の ん ? おっちゃん.』「『TF-20 は トラ ッ ク 39 の 位置 に いる と 
ас, バス テッ プ ・ イ ン ? 命令 を 使う と 当然 トラ ッ ク 40 に は 
いけ な いわ け な ん だ けど , それ だ け じ ゃ な く , 逆 に 1 つつ 戻 
っ て 38 に な っ て し まう ん だ . そう する と , プロ グラ ム 内 の 
カウ ンタ と 数 値 が 合わ な く な っ て し まう だ ろ . だ か ら プ ロ 
グラ ム で 対処 し て いる ん だ . も し トラ ッ ク 40 以 上 へ 移動 可 
能 な ドラ イブ を 使っ て いる 場合 は 行 番号 290, 300 の IF 文 を 
変更 すれ ば OK だ よ . 次 に , "SEEK" を 実行 し て 見 よう .』『 
[S] キー を 押す ん や ろ / 目 的 の トラ ッ ク ・ ナ ン バ を 入力 し て 
[キー を 押し た ら え え ね ん や ろ . 20 を 入力 し て みよ っ と .』 
『16 進 数 で 入力 し た い 場 合 は "&H" を 付け れ ば いい よ .』 
『 あ っ . パ ズー” っ て いう 音 が し て 動い た わ . 結構 うる さい 
音 が する ん や な ぁ .』『 そ うだ ね , この プロ グラ ム で は 
BASIC と 同じ ^ ス テッ プ ・ レ ー ト ? を 使っ て いる の で , ТЕ. 
20 じ ゃ 少々 タイ ミン グ が ずれ る ん だ ね .』」 い ステ ッ プ ・ レ ー 
Ë” っ て 何 や の ん 7 y "SEEK" の と き に FEDC が ドラ イブ に 
対し て 1 ステ ッ プ ずつ 命令 を 出し て いる ん だ けれ ど , ド ライ 
プ に よっ て 移動 速度 が 違う ん だ . TF-20 は 15ms, 最近 の も 
の は 6ms と か 3ms が 多く な っ て る ん だ . でも, 最初 に 出 た X1 
用 の ドラ イブ が 20ms だ っ た ん だ . だ か ら プ ログ ラム も それ 
に 合わ せ て ある か ら , 少し タイ ミン グ が ずれ て 振動 音 が 出 
ちゃ うん だ ね . それ じゃ ぁ , 本 当 に トラ ッ ク 20 (&Н14) に 
移動 し て いる か 確か め て 見 よう , [1] キー を 押し て ご らん .』 
『 モ ニタ ・ ダ ンプ する か どう か 聞い て る わ . [Y| £ #f Z > 
Е. Г) — НЕХ, ディス ケッ ト 内 に フォ ー マ ッ ト き さ 
れ て いる トラ ッ ク ・ ナ ン バ や セク タ ・ ナ ン バ を 読み 出し 
た も の な ん だ よ , これ に は お し じき さん る も 少々 苦労 させ られ た 
よ .』『 ど うい うこ と 7? 』『 ほ ら 見 て ご らん . ダン プ 表 示 は 8 
バイ ト で 1 行 に な っ て いる ね . ID Field” の 情報 は , バト 7 
ッ ク ・ ナ ン バ (シリ ンダ ・ ナ ン パ )/。 パ ヘ ッ ド ・ ナ ン パ 7。 
* セ クタ ・ ナ ン パ "。 パ セク タ ・ レ ング ス ” の 4 バイ ト t, 
“СЕС” の 2 バイ ト で , 合計 6 バイ ト な ん だ よ . それ で , 見 
や すい よう に それ ぞ れ の ステ ー タ ス の 1 バイ ト を その 後ろ 
に 付け 加え て , EDE, も う 1 バ イト は 表示 を 揃え る た め ス 
キッ プ さ せ て ある ん だ . ちょ っ と , 3 番目 の パ セ ク タ ・ ナ ン 
2" を 見 て ご らん . キチ ン と 1 か ら 順 番 に な っ て いる だ ろ . 
普通 ID” リー ド 命 令 は , 命令 され て か ら 最 初 に 出会っ た 
UD” フィ ー ル ド を 読み 出す こと に な っ て いる ん だ よ . 7 
ォ ー マ ッ ト さ れる と き は , さっ き 話し た パイ ン デ ックス ・ 
ホー ル ? の 後 か ら 始め る の で , や は り 読 み 出 す と きも その 
通り に 読み 出し た い だ ろ う .』」『 そ ら そ う や .』『 そ こ で , B 
じ さ ん は 考え た の さき . この プロ グラ ム で も , バイン デック 
ス ・ ホ ー ル / を 見 つけ る まで 待っ て , その 後 ID" リー ド 
命令 を 連続 し て 32 回 発信 し て いる ん だ よ .』」『 な ぁ ー ん だ . 
大 し た こと あれ へ ん や ん か . それ より , 何で 32 回 や の ン .』 
『 セ クタ ・ レ ング ス が “0” の と きのこ と を 考え た か ら だ 
よ .』『 え ー ノ わか ら な へ ん が な . ちゃ ん と 説明 し て えな .』 
『4 番 目 の 1 バ イト が セク タ ・ レ ング ス を 表わし て いる っ て 
さっ き 話 し た ね . この MB8877A と いう FDC は , 4 種類 の 大 き 
さ が 選 べ る ん だ よ . その 種類 は 表 E を 見 て よね . Wh, XIT 
は 256 バ イト / セ モク タ な ん だ けど , それ で 1 トラ ッ ク 当 た り 16 
セク タ あ る っ て こと は , 128 バ イト / セ クタ な ら そ の 倍 は あ 
る か も し れ な い だ ろ う . 実際 に は "ID? と か ギャ ッ プ ” が 
その 分 増え る の で , 倍 に は な ら な いん だ けれ ど , 一 応 念 の 
た め 32 回 に し た ん だ よ .。 LPL, フォ ー マ ッ ト さ れ て いな 
い ト ラッ ク の 場合 , 40 秒 ぐら いし な いと 戻っ て こない の で , 
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[ SHIFT |+ [ BREAK に より 強制 的 に や め さ せ る こと が 
で きる よ . それ と , 読み 出し 先 は 科 HD100 か ら に 固定 し て 
ある か ら ね . この 命令 だ け で な く , 他 の 命令 6 そう な ん だ 
けど , 必ず ^ モ ー タ ・ オ ン ” し て か ら と 実行 し な けれ ば いけ な 
いよ . マシ ン 語 を 小さ くす る た め , チェ ッ ク し て な いか ら 
無限 ルー プ に 入っ て 戻っ て こ な く な る か ら .』『 ふ ホー ん …… 
まぁ ええ わ . いろ いろ や っ て みた だ たら わか っ て くる や ろう し 
ee] [L]EMM は 何 や の ん ? TDATA の 読み 込み を 実験 し て 
みよ う . [を 押し て 目的 の トラ ッ ク ・ ナ ン バ と セク タ ・ ナ 
ン バ を 入力 する と, モー ニタ の ダン プ を し ます か , っ て 聞い 
て くる か ら , [WM を 押す と, 読み 出し た 内 容 が ダン プ さ れる 
ょ .』『 こ れ や っ た らい び DDED? の 方 が 何 ぼ か 使い や すい わ .』 
『 そ うだ ね , 普通 の フォ ー マ ッ ト さ る され て いる 場合 は ね . + 
ん ちゃ ん が お じ さ ん に 最初 に 頼ん だ , “DDED* で は 読め な 
い セ クタ ・ ナ ン バ や トラ ッ ク ・ ナ ン バ で も 読め る よう に な 
っ て いる ん だ よ .。 ず ん ちゃ ん , Оха" とかいう, ロボ 
ッ ト が 飛行 機 に 変身 する ゲー ム を 持っ て いた よね .』『 う ん , 
ここ に ある よ .』『 じ ゃ あ , ちょ っ と それ を 覗い て みよ う . 

[キー を 押し て , 今度 は ドラ イブ 1 を 使っ て みよ 5. [ОС 
表側 を 選ん で モー タ ・ オ ン し て か ら , [RI で トラ ッ ク 0 に し 
て ご らん . CS HSC AD’ リー ド し て ご らん .』『 あ れ 
ー!? モ クタ が 19 個 も ある ぞ .』『 そ れ だ け か い ? も っ と よく 
見 て ご らん .』『 あ ぁ ー グ 13H/ モク タ の 大 きる が 27 に 
な っ と ぉ る .」『 そ うだ ね . と りあ え ず い 13H? セ クタ を 読ん 
CA^£5.[L]&fRUL C, FISTS <F 70" だ ね . 

セク タ ・ ナ ン バ は “13H7 だ か ら 109" を 入力 する ん だ よ .』 
『 あ れ 一 っ ノ ス テ ー タ ス の と ころ に CRC-ERROR” っ て 
ЖЕ.) ГРА. きっ と セク タ 数 が 多 過ぎ て 1 トラ ッ 
ク 内 に 入り きら な か っ だ た ん じゃ な いか な . ちょ っ と タタ ンプ 
を 見 て みょう.』『「 何 か デー タ が 入っ と る わ .』『 で も 途中 か 
ら は 少し 変わ っ て いる だ ろう . 同じ デー タ が 並ん で いる ね . 
これ は きっ と , トラ ッ ク が 1 周 し て , フォ ー マ ッ ト の デリ 
アン ブル の 部 分 じゃ や あな いか と 思う ん だ .』『 ヘ ぇ ー. よ し グ 
僕 も 頑張 っ て いろ いろ 研究 し て 見 よっ と . お っ ちゃ ん , お 
お き に イグ 』 


ZHZ7AC€FDC 


プロ グラ ム お よび それ に か か わる FDC の 説明 を 少し し 
て お きま す . 表 2 は BASIC の 変数 表 で す . FDC コ マン ド の 
説明 は 富士 通 MB8877A マ ニュ アル か ら の 抜粋 で す . リ スト 
23, マシ ン 語 部 分 の アセ モン プル ・ リ スト で す . BASIC プ 
ログ ラム の サブルーチン と し て , 


700 行 - 1 初期 画面 表示 と ステ ー タ ス 表 示 用 の 文字 列 代 
入 を 行なっ て いる 。. 

1200 行 - ・ コ ー ル され だ とき に 持 っ て いる , ドラ イプ, 
トラ ッ ク , ヘッ ド の 各 変 数 値 を 表示 する . 

1300 行 - ・ ド ライ ブ ・ セ レク ト の サブ ルー チン . 

1400 行 - : 変数 A の 持つ ステ ー タ ス 値 に より , その ビッ 
ト を それ ぞ れ 調べ て ステ ー タ ス の 表示 を 行 な 
p 

15007- | : リ スト ア 時 に NOT READY" の 場合 , トラ 
ッ ク 変 数 を 初期 化し な いよ う 判 断 し て いる . 

1600 行 - ・ 変 数 A を 2 進数 で 表示 させ て いる . 

100 行 ・ マ シン 語 の ロー ド と , | SHIFT | + | BREAK 
が 効か な く な る よう に 処理 し て いる . 

20047 ・ メ イン ・ ル ー チ ン . 

230-250 行 : 図 4 を 見 て くだ さい . ドラ イブ ・ セ レク ト , = 
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図 1 セク タ が 19(13H) あ る ディ スケ ッ ト の ID リー ド ・ ダ ンプ 


ID199=99 
ID168G=99 
ID119=99 
ID118=99 
sD129=99 
10128=90 
10130-00 
ID138=99 
10140«00 
:р148=08 
10150-00 
20158-00 
10160-00 
10168-00 
10170-00 
:р178«00 
10180-00 
:0168=90 
10190-00 
10198«00 


ID299=33 
:0208=Е7 
5 D2 19= 人 Q9 
:2218=23 
1D220233 
ірг28 «55 
1D230879B 
:2238=ВЕ 
1D24821F 
1D248227 
1D25821C 
:0258=33 
:0268=4Е 
1D256824E 
sD270=4E 
:2278=4Е 


ID199=99 
10188200 
10110-00 
ID118=@9 
ID129=99 
sD128=00 
ір130-«00 
(0138-00 
:0140«00 
10148009 
1D150=00 
:D158=06 
:D160=00 
1D168=00 
ір170«00 
10178-00 
1018900 
ID188=99 
10190«00 
20198-00 
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図 3 CRC エ ラー の ある セク タ が 2 個 あ る 


01 01 01 CD 3C 88 28 /....^«. 

01 02 81 98 éF 88 41 /....3о. а 
Zo ^s. 
9: 04 91 32 С? 090 90 /....22.. 
01 05 01 0! ЕВ ee ee /.....%.. 
Lases TR.. 
01 07 01 67 ° A 00 00 /....9г.. 
Z........ 
01 @? 01 44 95 ee BO /....бһ. 
01 да 01 11 Cé ee ee /.....2.. 
01 eB @1 22 F7 00 00 /...."8.. 
の nas > 
01 ƏD 01 88 51 ee ee /....|0.. 
/....»." 
01 OF 0i EE 33 00 808 /....%3.. 
01 10 81 FD 7E 00 FF /7....A^7.* 
E7 СЗ FS 2а 4E 08 00 /.%7Жжы.. 
E7 СЗ FS 2A 4E 08 FF /.bh?J*«N. т 
01 01 81 CD ЗС 90 080 /....^‹.. 
01 02 @1 98 éF 08 FF /....30. т 
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ー タ 制御 , サイ ド (ヘッ ド ) 制御 は FDC で 処 
理 で き な い の で , 直接 CPU の デー タ ・ バ ス か 
ら 制 御 回路 を 介し て 行なう . 書き 込み 専用 レ 
ジス タ (ЏО &НОЕЕС). 


: 100 行 で , | SHIFT |+ | BREAK | が 効か な い 


よう に し た も の を , 元 に 戻し て 終了 する . 


・ マ シン 語 の “IDZ リー ド ・ ル ー チ ン を コー ル 


ЖІ FDC 


ボート ・ ア ドレ ス | IN/OUT 


ステ ー タ ス ・ レ ジス タ 


コマ ンド ・ レ ジス タ 


IN 
0FF8 
OUT 
0FF9 IN/OUT 


トラ ッ ク ・ レ ジス タ 


セク タ ・ レ ジス タ 


0FFA IN/OUT 


制御 |!/O ア ドレ ス 表 


読み 出し 専用 の 8 ビット ・ レ ジス タ で す . この レジ スタ は FDC の 内 部 状態 。 コ 
マン ド 実 行 に お ける 処理 状態 , ディ スク ・ ド ライ ノバ の 状態 を 示し ます . REY 
ト の 意味 は 実行 中 お よび 実行 完了 し た コマ ンド に より 変化 し ます . 

書き 込み 専用 の 8 ビッ ト ・ レ ジス タ で す . この レジ スタ に は FDC に 実行 させ る 
動作 に 応じ た コマ ンド を 書き 込み ます . コマ ンド の 書き 込み は , フォ ー ス ・ イ 
ンタ ラプ ト ・ コ マン ド を 除き , FDC が READY 状 態 で な けれ ば な り ま せん . 
書き 込み , 読み 出し 可能 な 8 ビッ ト ・ レ ジス タ で す . この レジ スタ は 通常 ディ 
スク の リー ド / ラ イト 用 ヘッ ド の ある トラ ッ ク 番 号 が セッ ト さ れ ま す . FDC は コ 
マン ド に より , この 値 を 更新 する こと も し な いこ と も 可能 で す . シー ク 動 作 で 
は この レジ スタ の 値 と デー タ ・ レ ジス タ の 差 で ヘッ ド を 移動 させ ます . リー トド ・ 
デー タ , ライ ト ・ デ ー タ ・ コ マン ド で は , この 内 容 と ディ スク か ら 読 み 出さ れ 
た ID フィ ー ル ド の トラ ッ ク 番 号 を 比較 し て , 一 致し た セク タ に 対し リー ド , > 
イト を 行ない ます . 

読み 出し , 書き 込み 可能 な 8 ビッ ト ・ シ フト ・ レ ジス タ で す .。 リー ド ・ デ ー タ , 
ライ ト ・ デ ー タ ・ コ マン ド で は , この レジ スタ と ディ スク か ら 読 み 出 され た ID 
フィ ー ル ド の セク タ 番 号 を 比較 し て , 一 致し た セク タ に 対し て リー ド / ラ イド を 
行ない ます . 

書き 込み , 読み 出し 可能 な 8 ビッ ト ・ レ ジス タ で す . ディ スク ・ リ ー ド 時 に は 
ディ スク か ら 読 み 出 され た デー タ が ロー ド さ れ , ディ スク ・ ラ イト 時 に は この 
レジ スタ に 書き 込ま ん た デー タ が ディ スク に 書き 込ま れ ま す . シー ク 動 作 時 に 
は 目的 の トラ ッ ク 番 号 を 書き 込み ます . 


ドラ イブ ・ セ レク ト / 
ディ スク ・ サ イド / 
モー タ ・ オ ン ・ レ ジス タ 


= Í| 


図 4 !/O ア ドレ ス 0FFCH の デー タ ・ ビ ッ ト 内 容 
27 06 05 04 03 02 D1 00 


Lirie] OE emmes 


[о | ディ スケ ッ ト ・ サ イド 0 
| 1 | ディ スケ ッ ト ・ サ イド 1 


[Di | po 目的 ド ライ ブ ・ ナ ン バ 
[ojo] ドラ ィ プ 0 | 
Ге ドラ ィ イプ 1 | 
ШЕ ドラ イブ 2 | 
ЕРИ  r247 3 | 


表 2 BASIC プ ログ ラム 変数 表 
各 ス テー タス ・ ビ ピット に 対応 する エラ ー 表 示 用 . 
оу | 現在 選ば れ て いる ドラ イブ ・ ナ ン バ を 持つ . 


各 ド ライ ブ 用 の トラ ッ ク ・ ナ ン バ を 持つ . 


ステ ー タ ス の 1 バイ ト が 入る . 
コマ ンド 入力 時 に その コマ ンド が 代入 され る . 
FOR NEXT 用 . 

FDC の タイ プ I コ マン ド 時 は 0』 タ イプ 』『, 四 コマ ンド 時 は 1. 
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T% トラ ッ ク ・ ナ ン バ 。 イ ンプ ブッ ト 用 . 
5% セク タ ・ ナ ン バ 。 イ ンプ ブッ ト 用 . 
АО% バッ ファ ・ ア ドレ ス 用 . 


| H | ヘッド ・ サ イド 0==, 1-Ж. 
&HD050=+* Z # - 24 F. 
&HD080=ID リ ー ド (リー ド ・ ア ドレ ス ). 
トラ ッ ク ・ レ ジス タ に 渡さ れ た パラ メー タ を セッ ト す 


する 前 に , 現在 ヘッ ド が 位置 し て いる トラ ・ 


ク を シー ク С, ステ ー タ ス を タイ プ 1 の も の 
に 変更 きせ て いる . こ れ に より , イ ン デ ッ ク 


ス ・ ホ ー ル の サー チ が 可能 と な る . モー タ 


オフ 時 に は 当然 イン デック ス ・ ホ ー ル が 見 つ 
けら れ な いた め , 無限 ル シープ に 陥る ( 表 J,K). 


る こと に より , 異常 な トラ ッ ク ・ ナ ン バ の も の で も ア 
クセ ス す る こと が で きる 。. 
1300 行 - ・ モ ー タ ・ オ フ し て , ドラ イブ ・ ナ ン バ を 変更 
する . 新しい ドラ イブ の ヘッ ド 位 置 を 確認 し 
<, 表示 の トラ ッ ク 数 が “255” の 場合 は や は 
В| | に より , イニ シャ ライ ズ す る . 
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310 行 - ・ 目 的 の トラ ッ ク ・ ナ ン バ を トラ ッ ク ・ レ ジス タ 
に セッ ト し た あと , 単純 に シー ク ・ コ マン ド о ” 
を 実行 させ て いる . 実行 終了 の チェ ッ ク は し エピ ロー ツ 
て いな い の で , ステ ー タ ス 表 示 の “BUSY” が 
出 て な いこ と を 確認 し て か ら 次 の 命令 を 実行 『 お っ ちゃ ん , お お き に . お っ ちゃ ん の 作っ て くれ た プロ 
する 。 こ の こと は すべ て に つい て 言え る 。 た УРА, 本 当 に 重宝 し て る で . いろ ん な ディ スケ ッ ト を 司 
だ し , BASIC に よる 制御 な の で , まず 時 間 的 いて 見 た けど , 本 当 に お も ろ い な ぁ . 全部 の トラ ッ ク ・ ナ 
に 心配 は な いと 思う . ン バ が WV” に な っ と うる も ん と か , “ID Field’ し か な い 
400-490 行 : リー ド , も し く は ライ ト ・ ル ー チ ン を コー ル も ん と か , セク タ ・ レ ング ス が 全部 512 バ イト / セ クタ に な 
する た だ ため, パラメータ を それ ぞ れ の ワー ク に っ て る ん と か , ホン ト , お も ろ い わ . せ や けど な ぁ ー, お 
セッ ト し て 実行 し て いる . っ ちゃ ん . ボク も ちょ っ と だ け 勉 強し た ん や けど , コマ ン 
ゼー ク は 。 ド が ちょ っ と ぬけ て る ん と ちゃ うか .』『 う ぅ 一 ん , 痛い と 


&HD000= 実 行 終了 後 の ス テー タス が セッ ト さ れる . 
&HD001 ニ セク タ ・ ナ ン バ を セッ ト す る . 
&HD002= F > 2 ° ナン バ を セッ ト す る . 
和 &HD003= ニ バッ ファ ・ ア ドレ ス を セッ ト す る 。. 

コー ル ・ ア ドレ ス は , 
&HD005=+*+ Z 7 - )—Е. 


ころ を 突 か れ た だ た ね. 確か に 2 つ , バ リー ド ・ ト ラッ ク ” k `> 
イト > トラック だ ろ ? T2 A, そう や .」 ド ライ ト ・ ト 
272" の 方 は , フォ ー マ ッ ト す る と き に 使う だ け な の で , 
この プロ グラ ム で は 省略 し た ん だ けど リー ド ・ ト ラック? 
の 方 は いろ いろ 実験 し た ん だ けど うま くい か な いん だ よね . 
VF “LOST DATA” エラ ー が 出る ん だ よ . 理論 的 に は 間 
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に 合う は ず な ん だ が …… . だ と えば , デー タ の 空 読み だ け 
を 行なっ て も ダメ な ん だ . FDC が 各 ア ドレ ス ・ マ ー ク で 同 
期 を と っ て くれ る ん だ が , な まじ っ か それ が 災い し て る ん 
だ よね . "LOST DATA" エラ ー が 出 て も 読み 出さ れ た デ 
ー タ に は 意味 が ある ん だ が , とりあえず , ず ん ちゃ ん に は 必 
要 な いと 思っ て 省略 し ちゃ っ た だ . 自分 で 研究 し て 理解 で きる 
よう に な っ た だ ら 付 け 加 を え だ ら いい よ .』 

『 を そう か あぁ あ . ほん な らら ガンバっ て 研究 し て みる わ . お お き に 


お っ ちゃ ん . ュ 
『 る よ な ら , ずん ちゃ ん . ュ 
避 参 考 文献 
1) MB8877A ユ ー ザ ー ズ マニ ュ ア ル , 富士 通 
2) МАСК : "FMO7 4 A7 tfl, The BASIC, "84 年 8 月 


га, 
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FDC コ マン ド の 説明 


コマ ンド 

各 コ マン ド に は 細部 を 決め る フラ グ が あり ます . これ ら の コマ ン 
ド は 4 種類 に 大 別 さ れ , これ を タイ プ I か ら IY と し ます (ЖА). Яс 
マン ド は タイ プ W コ マン ド を 除き ,、 ステ ー タ ス ・ レ ジス タ の ビッ ト 
7 € v POD “Н” の と き に 書き 込ん で は な り ま せん . 
タイ プ 1 コマ ンド 

タイ プ 1 コマ ンド は ヘッ ド の 移動 と トラ ッ ク の 照合 の 機能 を 持ち 
ます . 各 コ マン ド の コー ド と フラ グ を 表 B に 示し ます . タイ プ 1 コマ 
ンド は , ステ ッ プ ・ レ ー ト ・ フ ラグ (n, п), トラック 照合 フラ グ 
(V), ヘ ッ ド ・ ロ ー ド ・ フ ラグ (h), トラック ・ レ ジス タ 更 新 フ ラグ 
(и) を 持っ て いま す . 

リス ト ア ・ コ マン ド 以 外 , FDC に トラ ッ ク の 管理 を させ る に は , 
ドラ イブ 番号 と 最終 アク セス ・ ト ラッ ク だ け を 自分 で 管理 する か , 
ドラ イブ を 変え た た と き に リス ト ア ・ コ マン ド を 実行 し ます . さも な 
いと , 実際 の ヘッ ド の 位置 と ずれ を 生 し ます . 

シー ク 動 作 を 行なう に は , デー タ ・ レ ジス タ に 目的 の トラ ッ ク 番 
号 を 書き , コマ ンド ・ レ ジス タ に シー ク ・ コ マン ド を 送り ます . Е 
ライ ブ を 変え た た と き は トラ ッ ク ・ レ ジス タ に 最終 アク セス ・ ト ラッ 
ク 番 号 を 書き 込ん だ 後 , シー ク 動 作 を 行ない ます . 

ステ ッ プ ・ レ ー ト ・ フ ラグ (n, n) là, ステ ッ プ ・ パ ルス 出力 の 
出力 間隔 (ステ ッ プ ・ レ ー ト ) を 指定 し ます . ステ ッ プ ・ レ ー ト は 
т, r,E£FDCIz 2 429 > 7 (CLK) の 周波 数 、〒TEST 端 子 の 状態 
407 Е) ЕЖЕОЕЗ. 

ヘッ ド ・ ロ ー ド ・ フ ラグ (h) 4, コマ ンド 実行 開始 時 に ヘッ ド を 
ロー ド す る か , ヘッ ド を メデ ィ ア か ら 離 すか を 指示 する も の で す . 

h=1: コマ ンド 実行 開始 時 に ヘッ ド ・ ロ ー ド する . 

h=0: コマ ンド 実行 開始 時 に ヘッ ド を 離す . 

トラ ッ ク ・ レ ジス タ 更 新 フ ラグ は ヘッ ド を 移動 し . トラ ッ ク ・ レ 
ジス タ を 更新 する こと を 指示 し ます . 

и=1: トラ ッ ク ・ レ ジス タ を 更新 

u ニ 0: ト ラッ ク ・ レ ジス タ を 更新 し な い . 

トラ ッ ク 照 合 フ ラグ (V) は ヘッ ド 移 動 後 、 ディス ク の トラ ッ ク 番 
号 と トラ ッ ク ・ レ ジス タ の 照合 を 行なう か の 指定 で す . 

V=1: トラ ッ ク の 照合 を 行なう . 

V=0: ト ラッ ク の 照合 は 行なわ な い . 
タイ プ II コ マン ド 

タイ プ II コ マン ド は , ディ スク の デー タ ・ フ ィ ー ル ド に 対す る 書 
き 込 み と し て 読み 出し 動作 が あり ます . 対象 と な る セク タ 番 号 と ト 
ラッ ク 番 号 は それ ぞ れ , セク タ ・ レ ジス タ 。、 トラ ッ ク ・ レ ジス タ に 
用 意 き され て いる 必要 が あり ます . ディ スク と デー タ 転 送 は デー タ ・ 
レジ スタ を 介し て 行ない ます . トラ ッ ク 番 号 が 異な る 場合 は シー ク 
WERL, セク タ 番 号 が 異な る 場合 は セク タ ・ レ ジス タ に 目的 の も 
クタ 番号 を 革 き 込み ます . 

タイ プ II コ マン ド の コー ド を 表 D に が し ます . 

タイ プ HI コ マン ド は 対象 セク タ を 検索 し . その セク タ に 対し て リ 
ー ド / ラ イト を 行ない ます . 対象 セク タ 検 索 は ID フィ ー ル ド を 読み , 
トラ ッ ク 番 呈 と トラ ッ ク ・ レ ジス タ 。 セク タ 番 号 と セク タ ・ レ ジス 
タ を 比較 し ,、 ID フィ ー ル ド の CRC を チェ ッ ク し て 行ない ます . オプ 
ショ ン と し て , サイ ド 番 号 を チェ ッ ク す る こと も 可能 で す . 

1 セク タ に 対し て リード / ラ イト に 必要 を な バイト 数 は ID フィ ー ル 
ド を 読ん だ と き の セ クタ 長 指定 バイ ト に よっ て FDC 内 で 決定 きれ 
£d. セク タ 長 指定 バイ ト の 内 容 と モク タ 長 の 関係 を 表 E に 示し ま 


ORA コマ ンド 一 覧 


トラ ッ ク 0 へ , ヘッ ド を 移動 . 
所 定 の トラ ッ ク へ , ヘッ ド を 移動 . 
ヘッ ド を 1 トラ ッ ク 和 移動. 

ヘッ ド を 1 トラ ッ ク 内 側 に 移動 . 

ヘッ ド を 1 トラ ッ ク 外 側 に 移動 . 

ディ スク の (デー タ ・ フ ィ ー ル ド ) を 読む . 
ディ スク (デー タ ・ フ ィ ー ル ド ) に デー タ を 書く . 
ディ スク の ID フィ ー ル ド を 読む . 

ディ スク の 1 トラ ッ ク 分 の 全 デ ー タ を 読む . 
ディ スク ヘ へ 1 トラ ッ ク 分 の 全 デ ー タ を 書く . 


"ーー・ レ ジス タ ・ ビ ピッ ト 
3 2 1 0 (LSB) 


ジーグ 
ステ ッ プ 
ステ ッ プ ・ イ ン 
ステ ッ プ ・ ア ウト 


ORC ステ ッ プ ・ レ ー ト の 変化 


コマ ンド ・ レ ジス タ ・ ビ ピット 
(MSB) 7 6 5 4 3 2 1 0 (LSB) 
101mSEC0 
101mSECa 


ORE セク タ 長 
セク タ 長 指定 バイ ト 
00 

01 


128 バ イト 
256 バ イト 
512 バ イト 
1024 バ イト 


ORF タイ プ ルコ マン ド 


11000Е00 
11100E00 
11110Е00 


リー ド ・ ト ラッ ク 
ライ ト ・ ト ラッ ク 


す . 

タイ プ II コ マン ド は , マル チ ・ レ コー ド ・ フ ラグ (м), ディ レイ ・ 
727 (E), サ イド ・ フ ラグ (5), 比較 フラ グ (О を 持ち ます . ま 
г, ライ ト ・ デ ー タ ・ コ マン ド で は , アド レス ・ マ ー ク ・ フ ラグ (a。) 
も あり ます . 
マル チ ・ レ コー ド ・ フ ラグ (т): 

т=1: 連続 セクタ (セク タ 番 号 が 増加 する 方 向 ) で リー ド / ラ イ 

ト を 行なう . 

т=0: 単 1 セ クタ で リー ド / ラ イト を 行なう . 

ディ レイ ・ フ ラグ (D: 
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ORG ディ スク ・ イ ニシ ャ ライ ズ の た め の デ ー タ 
FM の 場合 (DDEN 
DR の 内 容 ディ スク に 書き 込む デー タ 


MFM の 場合 (DDEN —"L") 
ディ スク に 書 
き 込 む ど デ ー タ 


CRC1, CRC2 
ж. 


内 部 で 計算 され た CRC2 バ イト を 


CRC1, CRC2 


F8 


DAM と し て DDM を 書く . 
内 部 で は CRC を プリ セッ ト す る . 


F8 


内 部 で は CRC を プリ セッ ト す る . 


DAM と し て DM を 書く . 
内 部 で は CRC を プリ セッ ト す る . 


IDM を 書く . 


IDAM を 書く . 
内 部 で は CRC を プリ セッ ト す る . 


デー タ 


ЖТ) A1"3 バ イト に 続け て 書か れ た 場合 , デ リー テッ ド ・ デ ー タ ・ マ ー ク と な る . 


注 2) А1 *3 バ イト に 続け て 書か れ た 場合 , デ ー タ ・ マ ー ク . 
ЖЗ) C2 "3 バイ ト に 続け て 書か れ た 場合 , インデ ックス ・ マ ー ク と な る . 
注 4) A1"3 バ イト に 続け て 書か れ た 場合 , ID アド レス ・ マ ー ク と な る . 


Е=1: НГО “Н” と し た の ち 15ms 待 ち , HLT を サン プリ ング 
する . 
E-0: MLD を “Н” と し た の ち , た だ ち に HLT を サン プリ ング 
する . 
比較 フラ グ (C) : 
С-1: サイ ド 番 号 の 比較 を 行なう . 
C=0 : サイ ド 番 号 の 比較 を 行なわ な い . 
サイ ド ・ フ ラグ (5): 
5=1: サイ ド 番 号 の LSB が 1 の と き 一 致し た も の と みな す 
б-0: サイ ド 番 号 の LSB が 0 の と き 一 致し た も の と みな す 
Ж) この フラ グ は , C フ ラグ 1 の と きのみ 有効 
アド レス マー ク ・ フ ラグ (а): 


а=1: デー タ ・ ア ドレ ス ・ マ ー ク に $F8 (Deleted Data Mark) 
を 書く . 

タイ プ 凪 コマ ンド 

タイ プ 皿 コマ ンド に は リー ド ・ ア ドレ ス , リー ド ・ ト ラッ ク , 9 
イト ・ ト ラッ ク ・ コ マン ド が あり ます ( 表 F). こ れ ら の コマ ンド は 現 
在 ペ ヘッ ド の ある トラ ッ ク に 対し て 処理 が 行なわ れ ま す . 

リー ド ・ ア ドレ ス ・ コ マン ド は 最初 に 出会っ た ID フィ ー ル ド の 内 
容 を 読み 出し ます . ID フィ ー ル ド は 6 バイ ト あ り , その 順序 と 内 容 
は , 

⑱ ト ラッ ク ・ ア ドレ ス (トラ ッ ク 番 号 ) 

@ サ イド ・ ナ ン バ (ディ スク 面 番号 ) 

セク クタ ・ ア ドレ ス (セク タタ 番号) 

⑩ セ クタ 長 (セク タ 長 指定 バイ ト ) 

5. (本 ID フィ ー ル ド の CRC2 バ イト ) 

リー ド ・ ト ラッ ク ・ コ マン ド は , IP 入力 を 検出 し た 後 、 ディスク 
内 全 デ ー タ を 読み 出す も の で , デー タ の 同期 は イン デック ス ・ マ ー 
Я, ID ナド レス 。 マ ー ツ データ ・ ア ドレ ス ・ マ ー グ で 行なわ れ ま 
E 

ライ ト ・ ト ラッ ク ・ コ マンド で は 、 最初 の 1 パイ ト が デー タダ ・ レ ジ 
スタ に 書き 込ま れ て か ら IP を 検出 し , 第 1 バイ ト を 書き 込み ます . こ 
れ に 続い て ディ スク に 書き 込む べき デー タ を 1 バイ ト ず つ デ ー タ ・ レ 
ジス タ に 転送 し な けれ ば いけ ませ ん . b L, 1 バイ ト の デー タ が ディ 
スク に 書き 込ま れ て も デー タ ・ レ ジス タ に 書き 込み 用 の デー タ の 転 
送 を し な いと , FDC は 00H が 書き 込ま れ た も の と し て , ディ スク へ 


また, この コマ ンド で は ディ スク ・ イ ニシ ャ ライ ズ の た め に , $F 
5-$FE が デー タ ・ レ ジス タ に 書き 込ま れる と , 特別 の 処理 を 行ない 
ます . これ ら の デー タ に 対す る FDC の 動作 を 表 G に 示し ます . 
box و‎ 


ao 三 0 : デー タ ・ ア ドレ ス ・ マ ー ク に $FB (Data Мак) を 書く . 


書き 込み ます . この 動作 を 次 の IP が 検出 され る まで 繰り 返し ます . 


@⑯ 表 日 タイ プ IV コ マン ド 


コマ ンド ・ レ ジス タ ・ ビ ピット 


(MSB) 7 6 5 4 3 2 1 0 (LSB) 


1 1 01 lo le lı lo 


IRQ 発生 条件 
READY 入 力 の 立ち 上 が り て IRQ 発生 (IRQ= ニ *H?) 


READY 入 力 の 立ち 下がり で IRQ 発生 
各 イ ン デ ックス ・ バ ルス (|P) で IRQ 発生 
無 条件 で た だ ち に IRQ 発生 


タイ プ IV コマ ンド 

タイ プ W コ マン ド は , フォ ー ス ・ イ ンタ ラプ ト ・ コ マン ド で す . 
この コマ ンド は いつ で も コマ ンド ・ レ ジス タ に 書き 込む こと で 実行 
され ます . 他 の コマ ンド は 実行 中 の コマ ンド が ある と き に 新た に コ 
マン ド を 発する と , その 動作 は 保障 され ませ ん . 

フォ ー ス ・ イ ンタ ラプ ト が 書き 込ま れる と , 指定 に 応じ た 条件 で 
IRQ “Н” レベ ル に な り ま す . UU, この コマ ンド が 書き 込ま れ た 
EE, 他 の 実行 中 の コマ ンド が ある と , 実行 中 の コマ ンド は 打ち 切 
bh, フォ ー ス ・ イ ンタ ラプ ト ・ コ マン ド の 実行 を 行ない ます . た 
だ し , この 実行 中 の コマ ンド が , ライ ト ・ デ ー タ ・ コ マン ド の 場合 
書き 込み 中 の セク タ の 書き 込み 動作 が 終了 する まで フォ ー ス ・ イ ン 
タラ プ ト ・ コ マン ド は 待た され ます . 

表 H に フォ ー ス ・ イ ンタ ラプ ト ・ コ マン ド の コー ド , ВОЯЖ 
条件 を 示し ます . 

ステ ー タ ス 

FDC は コマ ンド 実行 の 結果 , 実行 中 の 状態 を 示す た め の ス テー タ 
ス ・ レ ジス タ が あり ます . コマ ンド が 実行 され る と , 所 定 の ピッ ト 
が プリ セッ ト さ れ , コマ ンド 実行 中 に 更新 され , コマ ンド 実行 終了 
直前 に 内 容 が 確定 し ます . 各 ビ ピット の 示す 意味 は 実行 中 の コマ ンド 
実行 終了 し た コマ ンド に より 変化 し ます . ステ ー タ ス ・ レ ジス タ の 
内 容 を 表 J り に 示し , 各 ス テー タス の 説明 を 表 K に 示し ます . 
IRQ, DRQ リ セッ ト 

FDC は コマ ンド 終了 打ち 切り を IRQ で 通知 し ます が , この 出力 
は ステ ー タ ス ・ レ ジス タ の 読み 出し も し く は 新 コ マン ド の 書き 込 
み で リセ ッ ト さ れ ま す . た だ し , タイ プ W コ マン ド の 書き 込み 後 , 
ステ ー タ ス ・ レ ジス タ の 読み 出し , また は 新 コ マン ド の 書き 込み に 
より リセ ッ ト き され ます . 

DRQ は デー タ ・ レ ジス タ の 読み 出し , も し く は , 書き 込み に よっ 
て リセ ッ ト き され ます . 
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| STR6 | STR5 | STR4 | STR3 | STR2 | STRI | STRO 


SEEK 
TRACK 00 BUSY 
RECORD т” LOST DATA 
TYPE DATA | R 
FOUND EQUEST 
WRITE WRITE пета LOST 
READY | PROTECT FAULT ERROR DATA 
FOUND 
: RECORD 
vods NOT eo LOST 
リー ド ・ ア ドレ ス NOT ERROR DATA 
FOUND 
иткон 0 


ライ ト ・ ラ ッ ク 
他 の コマ ンド 
実行 中 の 場合 


а) 


DATA 
REQUEST 


BUSY 


DATA 
REQUEST 


BUSY 


DATA 
REQUEST 
DATA 
REQUEST 


(いま ま て 実行 し て いた コマ ンド の ステ ー タ ス ・ ピ ビッ ト と 同様 の 意味 ) 0 


NOT WRITE HEAD 
0 0 TRACK I x 
ЕНІ АЯҢ ENGAGED | L | ск КӨЕ 5 


(( タ イプ I コマ ンド に 準ずる .) 


BUSY 


WRITE 
PROTECT 


タオ で | 
N 


ド の な い 場 合 
マス タッ リセ ッ ト 


ORK ステ ー タ ス の 意味 
コマ ンド IN | ステ ー タ ス | 意 чы == 
ーー NOT-READY NOT-READY =1 で ディ スク ・ ド ライ ブ が 動作 可能 状態 で な いこ と を 示す . こ れ は , READY 
(STRI) と MOTOR の 論理 和 で ある . 
WRITE-PROTECT МРІТЕ-РВОТЕСТ = 1 で ディ スク へ の 書き 込み が 禁止 され て いる こと を 示す . これ は , 
Е E CA. 


HEAD-ENGAGED HEAD-ENGAGED 1 で ヘッ ド が メデ ィ ア に 押し つけ られ て いる こと を 示す . こ れ は HLD 
_(STR5) と HLT の 論理 積 で ある . 
= x š な か っ た こと を 示す . これ は , = 
GEEK ERROR SEEK-ERROR- 1 で ベリ ファ イ 動 作 が 成功 し な か っ た こと を 示す . これ は , ID フィ ー ル 


ド が 検出 され な か っ た が , ID フィ ー ル ド の トラ ッ ク 番 号 と トラ ッ ク ・ レ ジス タ の 内 容 が 
一 致し な いこ と に よる . 

CRC-ERROR = 1 C, ID フィ ー ル ド 読 み 出 し 時 に 読み 出し エラ ー が あっ た こと を 示す . 
TRACK00 一 1 で ディ スク の ヘッ ド が トラ ッ ク 0 の 上 に ある こと を 示す .TRACK00 は TER00 
入力 の 反転 コピ ビー で ある . 

1МОЕХ = 1 で イン デック ス ・ ホ ー ル を 検出 し た こと を 示す , これ は IP 入力 の 反転 コピ ー 
で ある . 

BUSY = 1 で FDC が コマ ンド 動作 中 で ある こと を 示す . 

NOT-READY ニ 1 で ディ スク ・ ド ライ プ ブ が 動作 可能 状態 で な いこ と を 示す これ は ,READY 
と MOTOR の 論理 和 で ある . 

WRITE-PROTECTー 1 で ディ スク へ の 書き 込み が 禁止 され て いる こと を 示す .WRPT の 
反転 コピ ビー で ある . 

リー ド 動 作 の と き , RECORD TYPE の 表示 と し て , DAM が DDM の と き セ ッ ト さ れ , DM 


PE Амы : の と き リ セッ ト さ れる . 
(STRS) ライ ト 動 作 の と き , WRITE FAULT の 家 示 と し て , 書き 込み 動作 が 打ち 切ら れ た こと を 示 


+. この と き ス テー タス は WF の 反転 コビー で ある . | 
ВЕСОНО-МОТ-ҒООМО- 1 で 指定 され た トラ ッ ク 番 号 , サイ ド 番 号 , セク タ 番 号 を 持 
(STR4) b, 正しく 読出 され た ID フィ ー ル ド が な か っ た こと を 示す . 
CRC-ERROR CRC-ERROR= 1 で ディ スク か ら ID フ ィ ー ル ド も し く は デー タ ・ フ ィ ー ル ド の 読み 出し 
LOST-DATA- 1 で 所要 時 間 内 に DR の 読み 出し , も し く は 書き 込み が 行なわ れ な か っ た 
(STR2) デー タ が あっ た こと を 示す . 


DATA-REQUEST DATA-REQUEST = 1 T, FDC が プロ セッ サ に 対し て DR の 読み 出し , も し く は 書き 込み 
(STR1) を 要求 し て いる こと を 示す . これ は DRQ の コピ ビー で ある . 
BUSY(STR0 визу = 1 で FDC が コマ ンド 実行 中 で ある こと を 示す . 


 ——— хм FD コン トロ ー ラ ・ プ ログ ラム mw 


19 ^ жжжжжжжжжжжжжжжжжжжжжюжжжжжжжжж 
26 * 

зе ” F.D.C. CONTROLER 

40 * 

5е < X1 Player's Club 

60 * 

те = ЖЖЖЖЖЖЖЖЖЖИЖЖЖЖЖЖЖЖИЖЖЖЖЖЖЖЖЖ. 
ee * 


180 1NITICLEAR&HD9991POKE&H37D, &H3B !: POKE&H332, &HB7, &HC? :LOADM "READ SUB 5. Віп":рЕ 
FINT A-ZI!DIM ST$ (2, 8>:GOSUB 788 

110 D り =9ITR(@〉 =255: TR (1) =255 1 TR (2) =255 ТЕ (3) =255: 00508 1208 

120 ^ 

200 A=INP (&HFF8)>: IF (А АМО 22005081408 ELSE IF СМТ>28 THEN CNT*8:GOSUB 1408 ELSE 
CNT*CNT*1 

218 GOSUB 1600 
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リス ト 1 FD コン トロ ー ラ ・ プ ログ ラム 


228 КФ=ІМКЕҮФІ ІР К®="” GOTO 200 

238 IF K$-"8" THEN OUT&HFFC, (DU OR &H88) :Н=0:008081200:7=0 
248 IF K$-"1" THEN OUT&HFFC, (DU OR &H99)5 :Н= і :00508 1288: ;=8 
258 IF K$2"," OR K$="E" THEN OUT&HFFC, (DU AND &HF> 

288 IF K$2"E" THEN INIT:!POKE&HS37D; &H581POKE&H332, &HDB, &H 1: END 
278 IF K$z*R* THEN 1500 

288 IF K$-z"I" THEN TR=INP (8&HFF タ > 1 OUT&HFFB, TR1TOUT&HFF8, &H121PAUSE 18:CALL&HD8801J 
=14GOTO 08 

290 IF K$-"N" THEN IF TR (DV) (39 THEN TR (DU) *TR (DV) + 110UT&HFF8, &H52:G0SUB12809:J=0 
3080 IF K$2"B" THEN IF TR(DV) >® THEN ТЕ (DV) =TR (DV) -110UT&HFF8, &H72:G0SUB1280:J=0 
318 IF K$="S" THEN INPUT"TRACK No. ";ТИ11Р ТУ>З? ELSE TR(DV)*TZ!OUT&HFFB, ТУ: OUT&H 
FF8, 6812 00808 1200 с J=@ 

328 IF K$2"L" OR КФ= "М" THEN J=1:GOTO 488 

330 IF КФ%= "р" THEN 1388 

348 GOTO 208 

356 * 

400 INPUT"TRACK No. " j TZ: POKE&HD882, TX 

418 INPUT"SECTOR No. "j SZ:POKE&HD88081, SX 

420 AD ン =6HD299! ィ 7AD シ =ADZ+8&H1995 

438 IF ADZ>=&HE169 THEN PRINT"BUFFA OVER"I:K$="E":G0T0258 

440 AD$=RIGHTS (" 0000" +НЕХФ (АРУ), 4> 

450 POKE&HD993, り AL ("&h* *RIGHT$ (6D$, 22» , VAL ("&H" *LEFT$ (00%; 222 
460 IF K$2"L* THEN CALL&HD995 ELSE CALL&HD959 

478 A*PEEK(&HD88051!GOSUB 1408 

480 LOCATE40, 241PRINT"MON ? (Y or М "j1!X$2INKEYS$CID tPRINT! IF X$2"Y"THENKEY8, "DD 
208 D25F"«*CHR$(13) + "Юр" «CHR$ (29) 1G08UB1488 tLOCATE40, 24: MON 
490 GOTO 200 

508 * 

688 A*INP(&HFF8» GOSUB 14993LOCATE 40, 24 

618 PRINT"MON 2 (Y or N) "j!X$21NKEY$(C1»? 1PRINTI IF X$2"N* THEN 200 ELSE IF X$="Y" 
ELSE 610 

620 KEYO, "DD188 D15F"«CHR$(13)5 + "р" «CHR$ (29) 1MON!GOTO 280 

өзе < 

708 HIDTH88!CLS!COLORé, 81 SCREEN 

718 CONSOLE, 25, 0, 40 

729 PRINT"FDD CONTROL & ID READ SYSTEM" 

738 PRINT!COLOR7 

748 PRINT"@ ! MOTOR ON & ACTIVE HEAD Ө 

758 PRINT"1 t MOTOR ON & ACTIVE HEAD 1 

768 PRINT", : MOTOR OFF 

770 PRINT 

788 РКІМТ "В 1 RESTOR (TRACK to 8) 

790 PRINT"N t STEP IN (TRACK +1) 

800 PRINT"B t STEP OUT (TRACK -1› 

810 PRINT*S 1 ЗЕЕК CINPUT TRACK No.) 

626 PRINT 

838 PRINT"I : ID READ (READ START at INDEX) 

848 PRINT"L : SECTOR READ  (ABNOMAL» 

858 PRINT"H : SECTOR WRITE «АВМОМА > 

868 PRINT 

878 PRINT"D 1 DRIVE No. 

888 PRINT 

898 PRINT"E : END 

900 5ТФ (1, 1) 2"NOT-READY":ST$(1, 2) = "МК ІТЕ -РКОТЕСТ" 

918 ST$(1, 3» = "РЕ ЕТЕР D.M. ог WRITE FAULT" 

920 ЗТФ (1, 4) = "КЕСОРЕ NOT-FOUND " : 51$ (1,5) = "СКС -ЕККОК" 

930 БТФ (1, 4» -"LOST-DATA":ST$(1, 7) =>"рата-КЕОЏЕЗТ" 

940 57% (1,8) = "BUSY" 

950 БТФ (0, 1) = "МОТ-КЕАРҮ" :57% (0, 2) = "HRITE -PROTECT" 

980 5Т% (0, 3) = "НЕАР -ENGAGED " 

978 БТФ (0, 4) = "ЅЕЕК -ERROR" t ST$ (8, 5) = " CRC-ERROR" 

980 STS (0, é6) ="ТРАСК@ В": 5Т$ (0, 7) =" INDEX" 

990 БТФ (0,8) = "BUSY" 

1009 LOCATE18,22:COLORS:PRINT"DRIVE : " 

1010 LOCATE10,21:PRINT"TRACK : " 

1828 LOCATE10,20:PRINT"HEAD : " 

1030 COLOR7 ICONSOLE 9, 25, 40,40 

1040 РКІМТ"жжж STATUS Г Bit is 1 ] жжж":РКІМТ 

1958 PRINT"HSB 7 : " 

1860 FOR 1=6 TO 1 STEP-11PRINT" "515": "ІМЕХТ 

1078 PRINT"LSB 8 : " 

1880 CONSOLE11, 14, 40, 40: COLORS 

1878 RETURN 

1180 ^ 

1208 CONSOLE 

1218 LOCATE18, 221!COLORó РЕ INTDU 

1228 LOCATE18,21:1PRINT СНЕ (5) 3 TR (DVD, RIGHTS С" 00" *HEX$ (TR (ОУ) 2, 2) + "Н" 
1230 LOCATE18,20:PRINT H 

1248 COLORS:CONSOLE11, 14, 40,40 

1250 RETURN 

1268 ” 

1380 OUT&HFFC, (DU AND &HF) 

1318 INPUT"New DRIVE No.";DU 

1328 IF DUV>3 THEN PRINT"OUER"IGOTO 1310 ELSE GOSUB 1299 

1338 GOTO 288 

1340 * 

1400 АаФ-БКІСНТ%(" 00000000" +8 14$ (60,85 

1410 COLOR2:CONSOLE2, 9, 48, 32 

1420 FOR 1:1 ТО 8 


LO 
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リス ト 1 FD コン トロ ー ラ ・ プ ログ ラム 


r 
1438 D%=MID$(XA%$, 1, 1) 
1440 IF D$-"8" THEN PRINTCHR$ (5) ELSE PRINTST$(J, 15 
1458 NEXT 
1460 COLORSICONSOLE 11, 14,40, 40 
1478 RETURN 
1488 ” 
1509 OUT&HFFS8,2 
1510 PAUSE 1 
1520  AsINP(&HFF8»:GOSUB 1400:GOSUB 1600 
1539 IF «А AND 15 ТНЕМ 1510 ELSE PAUSE 3 
1548 A-:INP(&HFF8»5:1F са AND &H80) ELSE TR (DV) =@ 
1550 GOSUB 1200:J=0:GOTO200 
1568 “ 
1688 LOCATE45, 24:PRINT RIGHTS (" 00000000" +В IN$ (A), 8) 
1618 RETURN 
1628 < 
| 1788 END of Program жжжж by JUNJI КІЗНІ 


1 


нн |) スト 2 F D コ ント ロー ラ ・ ア セン プル ・ リ スト cT 


яз 
ORG *Deee 
ee STATUS: DEFB e 
e008 SECTR: DEFN ee 
99D2 BUFFA: DEFM $0200 97400 D078 
О 27508 D078 
ЕЗ READ: DI 07600 D080 
ED5601D0 LD DE, (SECTR> 87708 D080 ҒЗ 
2A93D9 LD HL, (BUFFA) 97890 D081 3E29 
3E80 LD A, ве 97700 ревз 32DAD0 
соззре CALL SECTORSET 88008 0084 D? 
1 1FBFB LD DE, ФЕВЕВ 98100 D087 11F8FB 
ав LD CE 08200 рева 210001 
ED78 IN ~ (C> 098388 ревр өіғвөғ 
ға LD CD 08400 DƏ?0 ED78 
ED78 MAINREAD! IN ~ (C> 88500 pe?2 CB4F 
er RRCA 98500 0074 28FA 
звес JR МС, ENDRE AD 88788 0995 3ECO 
er RRCA 08800 0998 ED7 ヶ 
39F8 JR NC, MAINREAD 88788 D0?A ЗЕӨЗ 
ав LD С,Е 090800 рвус сор 1ре 
ED78 RD: IN ~ (C> 99198 D0?F 4B 
77 LD (HL), а 89288 рвав ED78 
23 INC HL 09308 pee2 er 
4^ LD CD 99488 рваз зева 
C319De JP MAINREAD 09500 DBAS er 
, 89588 DBAS 30F7 
97 ENDREAD: RLCA 89708 рейв 4A 
згввре LD (STATUS), A 978960 DBA? ED78 
2293D@ LD (BUFFA) , HL 07788 DAAB 77 
FB El 10000 реас 23 
с ВЕТ 10108 DEAD 18F0 
' 19200 De^F 
B 1РАВЕ SECTORSET: LD ВС, SOFFA 18308 D@AF ӨІРВӘР 
EDS? OUT ‹С›,Е 19400 D0B2 ED78 
BEF? LD С, SF? 10580 рева 77 
ED51 OUT (C), D 10600 рев5 23 
eere LD C, る FB 18708 ревс 23 
ED7 ヶ OUT «са 18808 рев7 ЗЕ1А 
3Ee7 LD A, $07 10810 D8B? DB@1 
зо SECSETDLY: DEC ^ 10820 D9BB E681 
29FD JR NZ, SECSETDLY 10830 ревр 2094 
С? RET 18848 D9BF CD3793 
' 10850 ресг 288^ 
ORG +0056 19868 D0C4 F3 
' 10878 рес5 
F3 HRITE: DI 11188 DOCS зараре 
ЕОЗВФІрӘ LD DE, (SECTR> 11200 ресв 3D 
гаөзое LD HL, (BUFFA) 11300 Dec? зграре 
3EA9 LD A, SA0 11400 ресс 2ece 
соззое CALL SECTORSET 11500 D9CE D? 
11FBFS LD DE, ФРВЕВ 11688 ресе FB 
ға LD ср 11708 DODO С? 
ED78 MAINHRIT: IN ~ (С> 11800 DOD! 
oF RRCA 11980 рер! ES 
300C JR NC, ENDHRIT 12008 DƏD2 3D 
er RRCA 12180 D0D3 2A00D0 
3ere JR NC, MAINNRIT 12208 0904 20FA^ 
48 LD CE 12300 DƏDƏ Е! 
7Е LD LN 12488 DOD? C? 
ED79 OUT (са 12588 рера 
23 INC HL 12600 DODA өө 
4^ LD CD 12788 рерв 
C3 る 1D@ JP MAINHRIT 12800 рерв 


ЕМОНА ТТ: 


IDRED: 


LoOPe: 


LOOP2: 


LOOP1: 


FIN: 


BROK: 


BR: 


DLY: 
LPO: 


IDCNT: 


(STATUS), а 
(BUFFA? , HL 


реве 


А, 32 
CIDCNT) а 


DE, $FBFB 
HL, 0182 
ВС, $0FF8 
~ со» 


~ (C) 


~ (IDCNT> 
а 

CIDCNT) а 
NZ, LO0P2 


HL 

а 

HL, свовве» 
NZ, Ре 

HL 


| 


そ を わり に 
この プロ グラ ム は 、X1 の カモ セット ・ デ ッ キ で 、 Юй (音楽 な どの жив 


入っ て いる ) テー プ を 聴い ちゃ お う 、 と いう も の で す . 


プロ グラ ム の 方 は どう な っ て いる か と いう と 。 カモ セッ ト の 信号 が 入 ロロ 参考 文献 


っ て くる と ころ (8255 の B ト の ビッ ト 1) を 調べ PSG を コン トロ ー 


X1 リ ファ レン ス ノ ャ ゥ ト ,、 


お 許し を / 


MIA 


この プロ グラ ム は と っ て も 簡単 な の で 。 ぜひ 解析 を . 
も ん で 、 和 無駄 が 多い と 思い ます が 、 


Е 杉浦 勇一 №: 

ル す る と いう も の で す . 

ちな み に 音 の 方 は 、 は っ きり 語っ て 悪い で す . でも, プロ グラ ム は 短 +1 
ODT, 入れ て 試し て みて くだ さい ね . 98 
KIEL S ЕВ 

まず HuBASIC を 読み , モ ニタ に 移っ て プロ グラ ム を 入力 ,、 カ モッ ト 
(音楽 な どの 入っ て いる も の 、 な る べく 高め の レベ ル が よい ) を 入れ . 
実行 し ます (G D000[2]). 止め る と き は 、[SHWFT| + | BREAK | C 3. 


; +4 


07 


1А 


+6 
79 
o2 
78 


+A 
ED 
01 
2F 


га 
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X12U—Z 


で か い ゲ ー ム も 1 発 実行 / 
も う ロ ー ド 待ち は いら な い 


МВ- GAME DOS 


長い 間 ど う も すみ ませ ん . MB-GAME DOS X 1/0 '85#E 
4 月 号 に 発表 し た 後 , か な りほ っ た ら か し に し て いま し た . 

発表 以来 。 私 の 所 に 数 々 の ご 意見 ・ 感 想 ・ 相 談 な ど お 寄 
せい た だ きま し て 大 変 感謝 し て お り ま す . あり が と う ご ざ 
үзе, Ж. 

この 際 こ れ ら の 意見 を , 大 幅 に 取り 入れ , 次 の 段階 の 
DOS を 作っ て し まお うと 思い 今日 に 至り まし た で す , は 


V. 


=>аљаљаљаља МАДА ДАДА ЈА. 
AA A LA де АУУ 
ADAADA] р 28282 


У ТУТУ РУ 444; 53/5225 

* ど う 成 長 し た か で すね, 問題 は ノ 

で は 従来 の 物 と 比較 し て み ま し ょ うか . 
登録 ファ イル 数 

前 ・20 本 

ЖЕ > 40% 

の 対応 ファ イル 

前 ・ ノ ー マ ル の み 

ЖЕ + dis NL k [А] S£ 
ファ イル の 消去 

前 ・ デ ィ ス ク 単 位 

Жута УМА, Ta Z Z А. 

@ デ ィ ス ク 問 の 転送 

前 ・ な し 

НЕ. 0:2-1:, 1:-0 
ファ イル 名 の 変更 

前 ・ 不 可 

ЖЕ - "TüE 
Ө RS-232C 対応 

前 ・ 不 可 

ЖЕ - "TüE 
@ の 仕様 ドラ イブ 数 

前 ・1 台 

Ж. 2% 

と いっ た 感じ に な っ て し まっ た の で す が , 大 き な 変 更 点 は , 
や っ ぱり RS-232 と の サポ ー ト で す (F, 自信 を 持っ 
€ 1). 

0. Өз, 大 し て 変わ りな い の で す が , Ө, ©, Өй. 
か な り の 方 に 指摘 きれ た 部 分 で す . ӨЗ, まっ た く 役 に 立 
だ た な いか も し れ ま せん . な ぜ か と いう E, 登録 し て いっ た 
順番 と 逆 の 方 か らし か 消せ な い の で す . マシ ン 語 を 解す る 


: が 可能 


за Ела 


方 な ら お わか り で し ょ う が , ちょ うど PUSH と POP の よ 
うな 消し 方 に な っ て いま す . どう し て そう いう ふう に な っ 
た か の 言い 訳 は , 次 の と お り で す . 

© FAT 管理 が 嫌い だ っ た . 

FAT 管理 を 行なう と ファ イル の だ ため の フリ ー レ コー ド 

が 削ら れる こと に な る し , 結局 は , で き な か っ た だ た. LE 

っ た 方 が 早 そ う で すね . 
プロ グラ ム が 大 きく な 
e die o RR 
そう で を 

ӨЗ, 私 の 知人 の 1 人 に , ひど く TRANSFER を 付け ろ 
と 訴え て いる 者 が お り ま し た の で 付け まし た . まあ , あれ 
ば 便利 機能 で すし , この くら い は な いと ね を. に つい て 
は , 今 ま で 皆様 も 同じ と 思い ます が , DEVI$, DEVO$ を 使 
っ て ファ イル 名 を 書き 変え て いた で し ょ う . その 手間 を 省 
きま し ょ うと 思っ て 付け まし た (自分 が 必要 だ っ た か ら と 
いう こと で す )。 

さて , 問題 は @ で す . 

な ぜ , RS-232C の サポ ー ト を 行なっ た か ? 某 ワ ー プ 
ロ ・ ソ フト が サポ ー ト し て いる か ら か , 時 代 が 通信 の 方 向 
に 向い て いる か ら か , 電話 で ソフ ト を 送る と 郵便 料金 や 発 
送 の 手間 が 省け る か ら か , な ぜ な ん だ ぉ / 

「 だ た だ や っ て みた か っ た .」 これ だ け な ん で す . ЦЗ, こ 
れ が 完成 し た と き に , 工学 社 の 方 へ 報告 し まし た . 編集 部 
の 方 が 「 ほ ぉ ーー ぅ 面白 そう で すね ぇ .」 と は お っ し ゃ っ て く 
だ さい まし た が , 私 が 「 本 当 に 役に立ち ます か ね ぇ 」 と 言 
っ た だ た とき, 一 瞬時 が 止ま り ま し た . 

あと で 紹介 し ます が THUNDER FORCE を 送る の に 
37 分 33 秒 か か る の で すか ら 

し か し , ここ の 部 分 (RS-232C) は , SEHATI, 一 
番 の ポイ ント で も あり ます し , ОТТА X2 の 自信 で も あり 
2%. 

まあ , も っ と 理由 を た だ せ ば , 大 分 県 の 誇る , 地方 BBS・ 
COARA の 会 員 で ある と いう 誇り か ら , 通信 と 呼ば れる 未 
開拓 の 部 分 を 取り 入れ て みた か っ た こと も 事実 で す . 


А ТА LY LY ДАЈ АЈА ДАЈ ДАДА А 
ハハ ペペ 1 ДАУДА А), 
аал АЎ ЈА, 


DADADADADAD ADADA DADA 
%%, モニ タ か ら リ スト 1 を ひたすら 打っ て くだ さい . 

CLEAR&HC000 を 忘れ を いよ うに . この リス ト は 完 動 品 

の リス ト で す の で , も し お か し な 動き を し た 場合 は 、 あ な 
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< 


、 示 が 終わ っ た ら カ ー 


LO 


た が お か し い の で す . 
入力 が 終わ っ た ら , と りあ そえ ず SAVE し て くだ さい . L 
ゃ な いと , ひど い 目 に あい ます よ . 

そし だ た だら, リス ト 2 を 入力 で す . それ が 終わ っ た ら , 4 
れ も SAVE し まし ょ う 

ted, リス ト 2 を RUN させ ます . この と き に , フォ 
ー マ ッ ト 済 み の デ ィ ス ク を ドラ イブ 0 に 差し 込ん を で お いて 
くだ さい . 画面 に < スペ ー ス ・ キ ー を 押せ と 出 ま すか ら 
押し ます . ラン プ が つい て OK/ 

じゃ あ , 今 書 き 込 まれ た ディ スク を IPL より 起動 し て く 
だ さい . 画面 に , Insert X1 formated Diskket in FDO と 
で た ら , ОК! バッ チ シ | 雅 は あな た の も ん で す . た だ し こ 
の プロ グラ ム は 雅 メ ー カ ー で すん で , 画面 の メッ セー ジ 通 
り に ドラ イブ 1 に 新しい ディ スク を 入れ て スペ ー ス ・ キ ー 
を 押す と , ほんまもん の 雅 が で き あ が り ま す . こ の 雅 は ІРІ, 
で 起動 し ます . 

いっ ぺん に は 入れ な いで し ょ うか ら , ゆっ くり , 
入力 し て くだ さい . 


慎重 に 
前 の MB-GAME DOS より 短い か ら 


楽 で し ょ 。 

РЛАР ДАР ТАУДА ТАРДА)? ТАРТАР ДАУДА 
эла; Ууу 
Зала А < aAA 


ハハ ペペ スム ペペ うふ 
* ど う や っ て 使う か だ な ! う ん . 


で きる だ け マ ニュ アル な ど な く て も 使え る よう に し まし 


た が , な か な か 初心 者 の 気持 ち に 立つ の は 難し いで す よ . 
で は ひとつ, ひとつ 説明 し まし ょ う 。 


e 起動 方 法 


従来 の も の と 変わ り ま せん . IPL より 起動 し て くだ 
turbo を ご 使用 の 方 は , RESOLUTION SW に 注意 す 
要 は あり ませ ん . 自動 的 に 切り 替わり ます . 

#72, 立ち 上 げ ド ライ ブ も 0 : で も 1 : で も か まい ませ 
ん . 起動 し た ドラ イブ が 使用 ドラ イブ に 設定 され ます . 起 
動 後 の 変更 も 可能 で す . 


@ 宮 機能 の 説明 


Ш Go Program (写真 1) 
ディ スク に 登録 し た ファ イル の 起動 を 行ない ます . 
[ SPACE | キー を 押す と 画面 が 変わ り , 登録 ファ イル が 表 
示さ れ ま す . 登録 ファ イル が 無い と エラ ー メ ッ セ ー ジ が 出 
ます の で | ESC | キー を 押し て くだ さい . 登録 ファ イル の 表 
ソル ・ キ ー が 使用 で きる よう に な り ま 
ソル ・ バ ー を 動か し て 目的 の ファ イル 
[ SPACE | キー を 押し て くだ さい . |Ң 
ファ イル を 読み 込み , 起動 し ます . 
写真 1 Go Prograrm 画 面 


үэ, 


` 


さい 
る 必 


す の で 画面 上 の カー 
の 上 へ 持っ て 行き , 
面 が 消え , 


Dre 
-xnromo 


za 


ZO X0m2-02« 
2 


mo»? xx»momrmnmo 
2 


ACI 


a 
а 
8 
а 
а 
а 
1 
1 
2. 
1 
2 
1 
1 
1 


Nip ®@®@®@®@®® 
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写真 Tape 一 Disk 画 面 (BASIC と を ディ スク に 書き 込む ) 
€ €-€ €T 


Free 
Write 


: 2030 
d: 2020 


Push Space Load Program 


Loading: BASIC С28СВ@1 
END: BFFF EXEC: ロロ ロロ LENGTH: СӨ 
OK ! 
No 


Request-Space 


間違え て ここ を 選択 し た 場合 や , Menu に 戻る 場合 は 
[ESC | キー を 押し て くだ さい . な お , ここ の ファ イル の 選 
択 方 法 は , Transfer・Rename・RS-232C の と き に も 使用 
し ます の で 。 よく の みこ ん で お いて くだ さい 。 

Ш Tape ^ Disk (写真 2 ) 

テー プ か ら フ ァイル を 読み 込ん で , ディ スク に 登録 し ま 
3. 登録 で きる プロ グラ ム は TIPL 起動 の 64K 以下 の オー 
ル ・ マ シン 語 単体 の も の で す . SPACE | キー を 押す と 画 
面 が 変わ り , ディ スク の フリ ー レ コー ド お よび 書き 込み を 
する レコ ー ド の 先頭 番号 が 表示 され ます . 

カモ セット の 準備 が び で きた な ら [ SPACE |> — £ # L < < 
だ さい . テー プ か ら フ ァイル の 読み 込み を 開始 し ます . 7 
ァイル が 見 つか る と ファ イル 名 と イン フォ メー ショ ン を 表 
RL, ファ イル 本 体 を 読み 込み ます . ここ で 次 の 場合 は 
エラ ー に な り ま す 。 

@ Bin ファ イル 以外 を 読も うと し た . 
の ② の テー プ に 何ら か の 異常 が ある . 

© Break キー を 押し た . 

⑳ フ リー エリ ア が 無い . 
デッキ の 蓋 を 開け た . 

Ө etc... 

原因 は 無数 に ある と 思い ます が , エラ ー が 出 た 場合 は 
RET | キー を 押し て , や り 直 し て みて くだ さい . 

写真 3 Erase 画 面 


Erase of File 


File-MISTERY ROOM 


無事 に 読み 込み が 終了 する と , ディ スク に 登録 する か を 
Yes № で 聞い て くる の で , カー ソル ・ キ ー と [| SPACE |+ 
ー で 答え て くだ さい . 

Yes С, № で Menu に 戻り ます . 

Ш Erase (写真 3 ) 

ディ スク ・ フ ァイル の 初期 化 お よび 消去 を 行ない ます . 
[ SPACE | キー を 押す と , 画面 が 変わ り ま す . 74424 
部 を 消す か , それ と も 画面 中 央 部 に 表示 きれ て いる ファ イ 
ル の 消去 を 行なう か を カー ソル ・ キ ー で 選ん で くだ さい . 
SPACE | キー を 押す と , 消去 を 実行 し ます . キー を 押 


写真 4 TRANSFER 画 面 ( デ ィ ス ク 間 の 転送 ) 


«ХЖХХТ алп 


Drivei + Drive8 


す 前 に よく 確か め て くだ さい . 画面 中 央 部 に 表示 され て い 
る ファ イル は , 登録 ファ イル の 1 番 最後 の ファ イル が 表示 
され て いま す . ファ イル を 消去 すれ ば フリ ー レ コー ド な ど 
も 変わ り ま す (増え ます ). 
Ш Transfer (写真 4 ) 

ディ スク 間 の ファ イル の 転送 を 行ない ます . | SPACE 
キー を 押す と , 画面 が 変わ り ま す . 0 :—1 : ま だ は 1: 
— 0 : か を 聞い て きま す の で 答え て くだ さい . 

写真 5 Rename 画 面 ( フ ァイル 名 変更 ) 


Old name -MISTERY ROOM 


Go Program と 同じ 画面 (写真 1) に 変わ り ま す . Go と 
同じ 要領 で 転送 する ファ イル を 選択 し て くだ さい . 選択 す 
る と ディ スク に 登録 する か 聞い て きま す の で Tape — 
Disk と 同じ 要領 で 答え て くだ さい . 

Ш Rename (写真 5) 

ファ イル 名 を 変更 し ます . | SPACE | キー を 押す と , Go 
と 同じ 画面 (写真 1) に な り ま す の で , 名 前 を 変更 する 
ァイル を 選択 し て くだ さい . 選択 を する Е. 
旧名 を 表示 し 新 名 を 要求 し て きま す . 

次 の キー を 使っ て 入力 し て くだ さき さい. 13 文 字 ま で で す . 

写真 6 RS-232C 画 面 


КОН 5-2 223 


Program Receive 


文字 の 入力 ・・・ 


・ 任 意 の キー 


LO 


文字 の 削除 ・・・・| DEL |, 左向き カー ソル ・ キ ー 
名 前 の 決定 ・・・・[| ВЕТ | キー 

決定 を し て か ら , 変更 し て よい か 答え て くだ さい . 
Ш RS-232C (写真 6 ) 

RS-232C (通信 イン ター フェ イス ) を 使用 し , コン ピュ 
ー タ 間 の ファ イル の 転送 を 行ない ます . 

ik: この 通信 機能 は turbo で し か 使え ませ ん . 

転送 を 行なう に は , 次 の 周辺 機器 が 必要 で す . 

る @ コ ンピュータ 2 台 を 直結 する 場合 
・ ヌ ル モ デ ム (クロ ス ・ ケ ー プ ブル) 
信号 線 を 入れ 換え た 物 で す . 詳し く は , X1 turbo 
ユー ザー ズ マ ニュ アル の 150 ペ ー ジ を 参照 し て く < 
だ さい . 
@ 電話 回 線 を 使い , 転送 する 場合 
・ モ デム 装置 (モデ ム 内 蔵 電 話 ・ モ デム カー ド ・ 音 
2275) 
・ モ デム と の 接続 ケー ブル 

жы, 雅 が 互い の コン ピュ ー タ で 動い て いる こと が 一 番 
の 条件 で す . 

各 周 辺 機器 と の 接続 を 確認 し て くだ Bv. 電源 や コネ ク 
タ 部 分 の チェ ッ ク も し て くだ さい . また , 近く に 雑音 を 発 
生 す る 物 が あれ ば 遠ざけ て くだ さい . 

通信 途中 で | ESC | キー を 押す と , Break と な り , 通信 中 
断 に を なり ます . 互い に 申し 合わ せ て , Break が 出 た ら , X 
話 器 を 取る よう に し て くだ さい . 

を な か な か 面倒 くさ そう で す が , 実際 に や っ て みる と 非常 
に 簡単 に ファ イル が 転送 で きま す . 

また , 直結 の 場合 は 其 の プロ グラ ム の 変更 で 4800 ボ ー ま 
で 保証 し ます . 変更 点 に つき まし て は , ОТТА X2 の 方 まで 
ご 連絡 いた だ けれ ば お 答え いた し ます . 

Ш Drive n 

使用 ドラ イブ の 変更 を 行ない ます . ここ を 選択 する 度 に 
0:1:, 1 : 一 0 : を 繰り 返し ます . 

注意 : 各 処 理 の 実行 中 に エラ ー が 出 ま し た ら , ВЕТ | キ 
ー を 押し て くだ さい . Menu に 戻り ます . 音 が 無い エラ ー の 
場合 は , [ESC | キー を 押し て くだ さい . 


今回 は 。 アイ コン は 次 の 理由 に より や め ま し た . 
@ PCG 設定 に 時 間 が か か る . 

Ө РСС 設定 ルー チン が メモ リ を 取る . 

© PCGDATA が 大 きい . 

Өтнсљ 2, 


まち と UE 

今 か らい う 物 を 準備 し て くだ さい . 

・X1 シリ ー ズ (出来 れ ば turbo) 

・ 完 動 す る 雅 (単独 で 動く も の ) 

° RS-232C ケー ブル 

音響 カプ ラ 

・600 型 電話 機 

・TECNO SOFT の THUNDER FORCE (初期 版 ) 

・ 同 じ 装 備 と を し た 友人 

これ は あく まで も 雅 の 機能 全体 を 使い こなす た め に 必要 
な 物 で あっ て , 絶対 に 揃え な いと いけ な いと いう こと は あ 
り ま せん よ . 

また , THUNDER FORCE も 無理 に 揃え る こと は あり 
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LO 


ませ ん が , 前 作 を 作っ た きっ か け と な っ た ゲー ム で す の で , 
今回 も 利用 きせ て いた だ きま す . 
写真 7 オー プ ニ ン グ 画 面 


Request 
Space 

Кз и ағ агу 
Тареэрі sk 
Erase 
Transfer 
Rename 
RS-232C 
Drive Ө: 


P Е“ 
Tro: FM. BABA 
で は , ЕЗЖОЛЫс”ЯХ2ФЕЭ4ТЕЯЦАӘФЗ 
し ょ う . 電源 を 入れ た ら , 一瞬 画面 に ファ イル 名 が 表示 さ 
п, すぐ に オー プ ニ ン グ ・ ス クリ ー ン が で ます (БИТ). 
今回 は РСС 設定 が な い の で , こん な に 早く 表示 され ます . 
テー プ を セッ ト し て , Таре > Disk を 選択 し ます . 画面 ( 写 


OITA 


真 2 ) が 表示 され ます . 全て の 準備 が で きた ら , | SPACE 
キー を 押し て くだ さい . 読み 取り を 開始 し ます . うま くい 
НН, 選択 が 出 て ディ スク に 転送 きれ ます . 

で は , うま くい っ た か Go で 見 て み ま し ょ うか . Go を 選 
択 し ます . Go 画面 が 出 ま し た ね (写真 1). ちゃ ん と 1 番 
め に THUNDER FORCE と 書か れ て いま すか . うま くい 
っ た て た ら , 起動 し て み ま し ょ う . THUNDER FORCE と 
書い て ある 部 分 に カー ソル を 谷 わ せ , | SPACE | キー を 押 
С сте Huc, УБ, 

今度 は , ディ スク 間 の 転送 を や っ て み ま し ょ うか . 1, 
НЕ ЕМС. それ か ら , 今度 は 右 の ドラ イブ 
に も う 1 枚 別 の 雅 ディ スク を 差し 込ん を で くだ さい . Tra に 
合わ せ , | SPACE | キー を 押し ます . 画面 (写真 4) に な 
り ま し だ た か 。 

それ で は , さき ほど 0O: に 転送 し た THUNDER 
FORCE を 1 + に 送り まし ょ う ,. と いう こと は , 当然 上 の 部 
分 に カー ソル を 合わ せ ,| SPACE | キー を 押し ます ね . 0 : 
の 方 の ディ スク が 読み 込ま れ , 写真 1 が 表示 され ます . 4 
送 し た い フ ァイル 名 の 上 で , | SPACE | キー を 押す と , 7 
ログ ラム 全体 が メモ リ に 置か れ ま す . 

1 : の フリ ー エ リア を チェ ッ ク し て , OK な らら 書き込み 
許可 を 要求 し て きま す . Yes に 合わ せ SPACE |x — 2 Ff 
す と 1 : に 書き 込ま れ , 無事 終了 すれ ば オー プ ニ ン グ ・ ス 
クリ ー ン が 表示 され ます . 

で は , 使用 ドラ イブ を 1 に 切り 換え て , 1 : に ある 
THUNDER FORCE を 起動 し まし ょ う . オ ー プ ニン グ ・ ス 
クリ ー ン の 1 番 下 に ある Driven に カー ソル を 合わ せ , 

SPACE | キー を 押し ます . — ке, 画面 が ちら つき , ドラ 
イプ 番号 が 変わ っ て いま す . で は , Go を 選択 し て くだ さき 
Юю, どう で す , ちゃ ん と あり まし た か . 起動 し て みて くだ 
さい . 

さて , 最後 に RS の 説明 を し まし ょ うか . RS を 使っ た 通 
信 は , 結構 参考 書 が な く て 苦労 し まし た . 別に 付い て いる 
か ら っ て どう っ て こと は な いん で す が , な ん と な く 面 白 そ 
うだ っ た の で や っ て み ま し た . 

turbo を 持っ て いて , 通信 機器 を 持っ て いる 人 人 なら, Ш 
か ソフ ト の 転送 を や っ て みた は ず で す . と ころ が , 実際 や 
っ て みる と BASIC と か ASC フ ァイル し か 転送 で き な い 
こと に 気がつき ます 。 
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表 1 通信 手順 
送 信 側 | им 
Program Send を 選択 Program receive を 選択 
送信 ファ イル の 選択 (Go と 同 要 領 ) | 電話 を 待つ 


相手 に 電話 する 電話 を 受け る 

タイ ミン グ を 決め て 回 線 を 持続 する | タイ ミン グ を 決め て 回 線 を 接続 する 

[ SPACE | キー を 押す SPACE | キー を 押す 

Logon を 確認 する Logon を 確認 する 

10 秒 後 | SPACE | キー を 押す 10 秒 後 | SPACE | キー を 押す 

OK ! が 出る まで ひたすら 待つ ファ イル 名 が 表示 され る の を 確認 する 
Break が 出 た ら 電 話 を 取る 良けれ ば Yes を 選択 する 


END PACKET ま て 待つ 
OK ! が 出 て 送信 終了 


END PACKET ま で 待つ 
ディ スク に 登録 する か 答え る 
受信 終了 


通信 途中 て | ESC | キー を 押す と , Break と な り , 通信 中 断 に な り ま す . 互い に 
申し 合わ せ て , Break が 出 た ら , 受話 器 を 取る よう に し て 〈 く ださい. 


マシ ン 語 ファ イル は , 00-ЕЕ まで あり ます . と ころ が 
RS 通信 と いう も の は , ある コー ド を 送っ た ら ス トッ プ と 
か , この コー ド を 送っ た ら 終 了 と か , 00 一 FF の 間 で 使え な 
いも の が 出 て きま す . そこ で 今回 の よう な 方 法 を と ら ざ る 
を えな く な り ま す . 方 法 の 詳細 に つい て は あと で ね . 

と に か く や っ て み ま し ょ う ( 表 1 を 参照 )、 まず, 友人 か 
ら あ な た に 送っ て も ら う こと に し まし ょ う 。 友人 は 送り た 
い フ ァイル を 選択 し , SPACE | キー を 押し て 待っ て いま 
+. あな た は RS を 押し , RECEIVE で 待ち ます . 友人 に 電 
話 を か け , カプ ラ に セッ ト さ せま す . 友人 か ら の キャ リア 
пне 2.726, こっち も カ プラ に セッ ト し ます . そこ で 
[ SPACE | キー を 押し ます . 友人 か ら フ ァイル 名 が 送ら れ 
て きま す . 受け 取る な ら , Yes を 選択 . あと は , パパ ケット 
No が End に な る まで ひたすら 待っ て くだ さい . 終わ れ 
ば , 書き 込み 許可 を 答え ます . 電話 を 取っ て , あり が と う . 

どう で す , や っ て で みな た く な り ま し た か .。 だ た だし, 通信 だ 
け は 注意 し て くだ さい ね . 最後 の ほう の 資料 を みて 電話 料 
金 を 考え て くだ さい 


УТАУ УЬУ DIDS 


ы ы ы ы УУУУ 


図 1 メモ リ ・ マ ッ プ 


メイ ン ・ メ モリ 1/O メ モリ 
0000 —— 0000 
ユー ザー | /O 
1000 — 
= シス テム 1/O 
メイ ン ・ ル ー チ ン | 2000 
アト リピ ュー ト 
3000 3000 
RS ワー ク 
IN —] — 
3FE 0 
ЕСВ 7-? 
40001:------ 4009 
本 体 1 本 体 .2 
32 バ イト 32K バ イト 
BFFF —— T cow 
ワー ク 
GRAM 
FF00 ーー 
STACK 
FFFF LL — РРР LL 3 


* 内 部 的 な こと を 少し . 

Жы > жа) Ax, 図 1 の よう に な っ て いま す . 
ちょ っ と ぜいたく な 使い 方 の よう な 気 が し ます が , 別に 省 
メモ リ 化 し た っ て , 他 の プロ グラ ム を 同時 に 動か すわ け で 
は を な いし, わか りや すい 番地 に ワー ク を 設定 し た ほう が 作 
りや すか っ た の で す . 


氏 各 内 部 ルー チン に つい て 


イニ シャ ライ ズ ・ ル ー テ チン 
画面 の 幅 ・ 表 示 周 波数 ・SIO・CTC・ キ ー ベ クト ル の 設定 
を し ます . 画面 幅 は 40 文 字 ・200 ラ イン , 300 ボ ポー・8 ビ 
ッ ト ・1 ス トッ プ ビ ッ ト ・ ノ ー パ リティ で す . 

の ② の カセット ・ ル ー テ チン 
C000H を 超え た ら , GRAM に 読み 書き を する よう に 改 
造 さ きれ た ルー チン で す . 使い 方 は , Hu-MONITOR k IF] 
et, 

ディ スク ・ ル ー チ ン 
別に 特種 な 機能 は 持っ て な いで す . た だ , 指定 され た レ 
コー ド か ら 読 み 書 きす る だ け で す . 

図 2 コン トロ ー ル ・ コ ー ド 


0 0 =END 10 = СКЕМ 1 
01=C1 1 1 =СРЕУ 0 

0 2=C2 1 2 LOCATE 
03=C3 13-2 

04-С4 14- 

05=C5 15-РАСКЕТ ОМ 
06-С6 16-РАСКЕТ OFF 
07-С7 17-ВЕЖ 

0 8 =DEL 1 8 = ВЕАрУ 
09=CF1 1 9 = 5упс 

0 A 三 CF 0 1 A= ニ FILE END 
0B-BREAK 1В-Е5С 
0C=CLS 1 C=ー 

0 D=RET 1 D=ー 

0E= 1Е=1 

0F= |Е=] 


O PRINT キー ルー チン 
PRINT ルー チン は , 毎回 独自 な コン トロ ー ル ・ コ ー ド を 
使っ て いま す . 今回 の 使用 コー ド は , 図 2 の よう に 設定 
し まし た . キー 入力 は 割り 込み 無し で す . 
図 3 雅 マ ッ プ 


シス テム ・ イ ニシ ャ ライ ズ 


00AB 
||| | RS ルー テン 
0167 


が セッ ト ャ ルー チン 


ディ スク ・ ル ー チ ン 


PRINT ル ー チ ン 


雅 メ イン ・ ル ー チ ン 


オー プ ニ ン グ 画 面 デー タ 


Go PROGRAM 


TAPE—DISK 


RENAME 


RS-232C 


雅 作成 ルー チン 


М ды” дА ЈА. B у рч 
УУ УУ УУ УУ ТЫУ ТЫР ТЫ? 
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Q3É-&v—-T- 
ポト ム ・ ア デップ で 作っ て いっ た の で , 追っ か け て いる と 
わか ら な く な り ま す . 
⑨ RS ルー チン 
ッ パ ケッ ト の 送受 信 ・ ア ドレ ス 計 算 の レー チン で 構成 され ます . 
詳し く は , 3 を みて くだ さい . 


最初 に いっ と きま す が , これ は ХМОРЕМ の まね で は あ 
り ま せん 。 結果 と し て そう な っ た だ け で す 。 

а, マシ ン 語 プロ グラ ム を RS で 転送 する に は 2 つの 
方 法 が 考え られ ます . 

1 つ は , 00—FF まで を 文字 と し て 転送 する . つま り , 00 
は 30H・30H, ЕЕ は 46H・46H k LT, 各 16 進 を ASCII 2 
ー ド に 変換 し , 送る . これ が 1 番 簡単 な 方 法 だ と 私 は 思い 
Ed. 1 度 ,。 プ ログ ラム を 変換 し て し まえ ば ,。 どん な ター 
ミナ ル ・ ソ フト で も 転送 で きる し , また 変 な こと を 考え な 
CEDERE < 0) Ж #, 

し か し , ちょ っ と 問題 が あり ます . 1 バイ ト の 文字 を 送 
る た め に , 2 バイ ト の 情報 が 送ら れ ま す . 情報 , すなわち 
WR そし て 電話 料金 で す . 始め の ほう で 言っ た , THUN- 
DER FORCE を 転送 する の に , い っ た い ど の くら い の 時 間 
と 費用 が か か る こと か . 

そこ で , 2 つつ 目 の 方 法 と し て 今回 の ` 直 接 送 っ て し まう ? 
方 法 の 登場 と な る わけ で す . 通信 と 縁 の な い 方 に は , 実際 
どっ ち で も いい よう に みそ る か も し れ ま せん が ,. ここ に は 
大 き な を 違い が あり ます . 

00 一 FEF を 送り ます . い いで す よ , 別 に か まい ませ ん . こ っ ち 
が 00 を 送っ た ら , 向 こう で 00 を 受信 すれ ば いい . い いで し ょ 
J, し か し 受け 取り ミス が 起こ っ た ら , 送 り ミ ス が あっ た ら 
どう し まし ょ う 。 受信 し て , 動か し て みて , お か し く な っ た ら 
も う 1 度 送り 直し と し ます か . そん な こと は し ませ ん よね . 

それ な ら 送 っ て いる 時 点 で チェ ッ ク サ ム を 取り , お か し 
か っ た ら 送 り 直 し を その 場 で や り ま し ょ う . 

普通 の 転送 通信 方 法 ど と , エラ ー コ ー ド を 決め て いて , 
この コー ド が 帰っ て きた ら , ミス が 起こ っ た と し , や り 直 
し を し ます . ちょ っ と いい で すか , その コー ド は 何 に し た 
らい いで し ょ うか . 今回 の よう な マシ ン 語 プロ グラ ム の 転 
送 は 00 一 FF の 問 で 使わ な い ムコ ー ド が あり ます か . ао! 
な いん で す . СН を 使わ な い プ ログ ラム は な いと は 言え ま 
せん が , どの プロ グラ ム も 使わ な い は ず が あり ませ ん . 

<, 結局 , 雅 流 は こう な り ま し た . E] 4 を 見 て くだ さい . 
プロ グラ ム を 256 バ イト 単位 で 区 切り , そ れ を バケ ッ ト と 呼 
ん で アド レス と チェ ッ ク サ ム を 付加 し て 送り ます . 転送 開 
始 の 合図 に 17H を 送り ます . プロ グラ ム の 始ま り を 意味 し 
ます . そし て バケ ッ ト に 入り ます . 始め に 15H で バケ ッ ト 
の 始ま り を 知ら せま す . その後 , その プロ グラ ム の アド レ 
ス の 上 位 2 桁 を 送り ます . 2 桁 の 数 値 の 反転 を 送り , ビッ 
ト 化 け に よる 情報 の ミス を 無く し て いま す . 次 に 本 番 の デ 
ー タ が 256 バ イト 送ら れ ま す . 最後 は , 本 番 256 バ イト の チ 
ェ ッ クサ ム が 2 バイ ト で 送ら れ ま す . 受け 手 側 で は 15H が 
くる と , マケット 受信 準備 を 開始 し ます . アド レス を 受け 
取り , 反転 し た も の と 比較 し , 違っ て いた ら ミ ス を 出し ま 
3. デー タ を 受け 取り 終わ っ た ら , チェ ッ ク サ ム を 照合 し , 
違っ て いた ら ミ ス を 出し ます . うま くい け ば OK サイ ン に 
18H を 送り ます . 送 り 手 側 で は 18H を 待機 し ., そ の 間 19H 
を 送り 続け ます .17H は ミス ・ サ イン で す . これ を 受け 取る 
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図 4 パケ ッ ト ・ フ ォ ー マ ッ ト 


[os [> | хх [=e] 


[з= 7 | ( 


Б 
ШЕГІН [же | 《 | Ú [u] 


と も う 1 度 同じ パケ ッ ト を 送り ます . 全 部 パケ ッ ト を 送る 
と , 終 了 の 合図 に 1AH を 送り ます . こ うい っ た と ころ で すね . 

すなわち , エ ラー が 起こ っ た 時 点 で 知ら せる の で は な く , と に 
か く ッ パパ ケッ ト を 送り 終わ っ て か ら 文 句 を 受け 付け る わけ で す . 


べべ か さか さか る 


な か な か 準備 が 整わ ず , 85 年 11 月 に 完成 し まし た が , 結局 
発表 は 今 と な っ て し まい まし た . も っ と 早く 発表 し た か っ 
た の で す が , 調整 が だ うま くい か ず , 人 前 に 出せ る よう に な っ 
た の が 3 月 ご ろ で し た . や は り , 企画 1 箇月 ・ 制 作 1 箇月 ・ 
調整 3 筒 月 の ジン クス は 本 当 で すね . 半年 に 1 本 で すか . 

し か し 世の中 に は 同じ よう な こと を 考え る 人 が いる ん で 
342. XMODEM の 件 で 痛感 し まし た . 

あま り 役 に 立ち そう に な い 雅 で す が , DOS の 分 と し て は 
結構 満足 で す . MB-GAME DOS の コン バー タ を 近く 発表 
し ます . 資料 と し て , 雅 を 使っ て 雅 を 転送 し た 場合 の 例 を 
挙げ て お きま す ( 表 2). 

を な お, 今回 か ら COARA の ホス ト を 使っ て , オン ライ ン 
質問 を 受け ます . COARA の ホス ト へ は 次 の パラ メー タ で 
き て くだ さい . “1N81XNLLNZ” で す . 0975-32-9897 で 
3. よく わか ら な い 人 は , 私 の 所 まで 連絡 を くだ さい . 
〒870-02 


バケット ON 15 1 
アド レス хх 2 
デー タダ хх-хх 256 
SUM X X X X 2 
合 計 2 6 1 バイ ト 


表 2 Е СЕНО) 


所 要 時 間 
3 0 0 ボー 約 4 分 6 秒 
6 0 0 ボー 約 2 分 5 秒 
1 2 0 0 ポー 約 1 分 4 秒 
2400 ポ ボー 約 0 分 32 秒 
4 8 0 0 ポー 約 0 分 16 秒 
表 3 # 仕様 
+ # 


作成 言語 : アセ ンプ ブラ (MACRO- 8 0) 
プロ グラ ム 開 始 番地 : 0000H 
プロ グラ ム 終 了 番 地 : 1A4 DH 
プロ グラ ム 実 行 番地 : 0 020H 
ソー スリ スト 容量 : 56K バ イト 
大 分 市 宮 河 内 ハイ ラン ド 43-15 馬場 ih 
® (0975)28-1508 (РМ8 : 00~) ^ 
質問 ・ 意 見 ・ そ の 他 , どしどし どう ぞ . ボー レー ト の 変 
更 点 も どう ぞ . 決 回 また , 会 える 日 を 楽し み に し て いま す . 
See you again. 
Пе 
1) X1 IPL ROM 内 ルー チン 
2) DISK BASIC ディ スク ・ ル ー チ ン 
3) Hu-MONITOR カセット ・ ル ー チ ン 
4) Hu-MONITOR PCG ルー チン 


д | | ата E RE)‏ | --_________-_____-__ _– ڪڪ 


+6 +7 +8 +9 +A +В +С +D +E +F :Sum 
20 42 49 20 20 33 30 30 53 79 :9В 
20 00 00 00 00 00 00 00 00 00 :18 


80 16 78 ТЕ 
82 Ер 78 
ср 9F 00 
93 Е4 11 @E 
ТЕ 14 10 
да 01 00 
94 79 05 
92 97 60 
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0800 11 в@ С9 Ср ЕЕ 15 СВ FE 


1000 CLS:WIDTH 49 1040 IF A$=” 
1010 CLEAR &HC000Q 
1020 PRINT "PUSH SPACE KEY!" 


1030 A$=INKEY$(1) 


リス ト 2 


THEN ELSE 1020 
1050 FOR І-0 TO 31 

1060 MI$-MEM$(&HC00041*256,128) 
1070 М2%-МЕМ%(%НС080%1%256,128) 


1 和歌集 みそ ひ と も じ を マシ ン に よせ て 


人 間 と 無生物 と の 間 に 愛 が 生じ る 現象 は , 世の中 に し ば 
し ば 見 うけ られ る も の で す . た と えば ドラ イ バ ー と 車 , н 
貨 店 女性 従業 員 と エレ ベー タ , 金持ち と 札束, 怪盗 と ダイ 
や ヤ モ ン ド , 専業 主婦 と せん べ い , そし て ハッ カー と コン ピ 
===>. 

ここ に 正しき ハッ カー で あり , また 和歌 人 で も ある 安楽 庵 
子 電 (あん らく あん し で ん ) 先生 か ら 編 集 部 に 寄せ られ た 
1 冊 の 歌集 が あり ます . 今回 は X1 へ の 愛 を 詠 ま れ た その 歌 
を 皆様 に ご 披露 いた し まし ょ う . 

子 電 先 生 は , 新潟 県 の 巻 機 山 (まき は た や ま ) の 中 腹 に 
ある 風力 発電 付き の 庵 に X1 と 一 緒 に お 籠り に な っ て お られ , 
人 間 と コン ピュ ー タ の 真 の 姿 を 今日 も 見 つめ て お られ ます . 
一 昭和 57 年 , 1 世に 出し 秋 に 詠 め る 歌 二 首 


1080 DEVO$"0:",I,M1$,M2$ 
1090 МЕХТ 


1100 PRINT "OK '" 


Еге 


テレ ビジ ョ ン シャ ー プ に か か れ ば コン ピュ ー タ 
ia ああ お も し ろ し 落葉 も 舞う な り 
生れ な き 記 憶 装置 を 有 移 に 秘め 
我 と た わ む る うる は し の 君 
ШЕ 41594-10, X1 turbo 世 に 登場 せ し 日 に 詠 め る 歌 一 首 
だ た くま し き BIOS- ROM # iu 2. 
秋 に 現 る turbo な る か な 
WI FI605511H, turbo П に 寄せ る 歌 一 首 
ЖЖ» 価 は 下がる コン ピュ ー タ 
買う べき と き は 神 ぞ 知る の み 
画 昭 和 61 年 『 活 用 研究 」 を 手 に し せる と き 詠 め る 歌 一 首 
X1 骨 ま で し ゃ ぶっ て いい か し ら 
活用 研究 買っ ちゃ っ た 
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Хћигро 


ЛАЖЕ 


(@ 日 本 語 BASIC で 漢字 を サポ ー ト し た デー タバ ベース ⑲ 


WM RE SHEA 


X1turbo が 発表 され た と き の シ ョ ッ ク は 今 で も 忘れ ら 
れ ま せん . その 頃 は CZ-800C を 持っ て いま し た . 漢字 
ROM が 欲し く て 秋葉 原 ま で 行き まし た が , 結局 買わ ず に 
帰り まし た . と ころ が , その 直後 に turbo 誕生 を 知り まし 


それ ば か りか , RS-232C PFO ул, さら に は あこ が れ の 
ディ スク ・ ド ライ ブ 様 まで も が 1 つの 家 (本 体 ) の 中 に お 
住ま い に な られ て いら っ し ゃ っ た の で し た ノノ 

それ だ け で は あり ませ ん . グラ フィ ッ ク РАМ が お 2 人 
も いら っ し ゃ いま し た .CRT も 2 人 を 相手 に する の だ か ら 
200 ラ イン で な く 400 ラ イン に な り , 見 易く な り ま し た . 

они そし て , turbo の 最大 の 売り も の , 日 本 語 
BASIC が 搭載 され まし た . 学習 機能 付き 辞書 が サポ ー ト さ 
れ た の で す . な ん と と ど め は , 漢字 アト リ ビ ュ ー ト 方 式 の 
全角 文字 (16X16 ド ッ ト 文 字 ) 表示 だ っ た の で す . 従来 の 
グラ フィ ッ ク に 書く の と 違い 全角 文字 に 属性 が 付け られ る 
よう に な り ま し : た 。 


た . な ん と 漢字 РОМ が 最初 か ら 中 に いら っ し ゃ る の で す . 


今回 は , その 機能 も うま く 使 っ て み ま し た . も ちろ ん プ 
ログ ラム の 中 に も 変数 に も 漢字 が 使え ます . や は り 日 本 人 
は 日 本 語 で すね . 項目 メッ セー ジ で も バシ メイ ” kU “Б 
Ж” の 方 が パッ と 見 て すぐ で わかり ます よね . で も , よく 考 
える と “хл” は 3 バイ ト だ けど “ ヾ 氏名? は , 2 倍 の 6 
バイ ト な ん だ か ら 気 軽 に カナ を 漢字 に 置き 換え た っ て プロ 
グラ ム が ぶ 、 く れ あ が り , CZ-8FB01 な ら す ぐ メ モリ ・ オ ー バ 
ー に な っ て し まい ます . Có, や っ ぱり シャ ー プ さん は 偉 
OZ BIOS 部 分 を ROM 化し て メイ ン ・ メ モリ を 大 きく 解 
放し て くれ まし た . お まけ に グラ フィ ッ ク RAM を ディ メ 
ンジ ョ ン ・ エ リア と し て 使用 で きる よう に し て くれ まし た . 
シャ ー プ さん , あり が と う ノ 

と いう わけ で , 今回 は これ ら の 機能 た ち を うま く 使 っ て 
実用 プロ グラ ム を 作り まし た . 題し て “知人 情報 管理 * で 
す . 


ا 
管理 の 誕生 か ら 成 長 ,‏ 
そし て 現在 まで‏ 


ОТТА X2 を 活動 きせ る と , そこ に 必ず 人 と の 緑 と いう 
も の が 生ま れ ま す . そし て , その 数 も 大 き な も の と な り ま 
3. さら に その 人 達 の な か で も , 特に 親密 に な る 人 も 少な 
く あ り ま せん . RZ, 誕生 日 , 血液 型 。 住所, 電話 番号 な 
ど 1 人 分 の 情報 と し て は 大 変 な を こと も な い の で す が , PIF 
A, 何 百 人 と な る と , や は り ど こ か に 記録 が 必要 に な っ て 
きま す . 

せっ か く 身 近 に 電気 式 情報 処理 機 が ある の だ か ら 利 用 し 
な い の は 罪 に な り ま す . そこ で , この “知人 情報 管理 ′ の 
誕生 と な る わけ で す . 実は , この 管理 は 第 3 バー ジョ ン で 
あり まし て , 第 1 バー ジョ ン ( 図 1 参照 ) は, CZ-800C 用 
に 作り まし た . ちょ うど 84 年 の 夏 ご ろ で し た . し か し , ff 
い 勝手 の いい も の で な く , 当然 の こと な が ら "KE" で な 
< ЗНА" で し た , 

そし て 第 2 バー ジョ ン は , 84 年 の 秋 ご ろだ っ た で し ょ 
5. カナ を すべ て 漢字 に 上 直し, また, スト リン グ 処 理系 も 
変え た て いき まし た . 一 応 は turbo 専用 に な り ま し た . Ec 
D, ファ イル 名 の 入力 (その 頃 は ファ イル 番号 な ど な か な 
っ た ) が 大 変 面倒 な 上 , 時 間 も か か り 初 心 者 や キー ボー ド 
に 不慣れ な 人 に は , 絶対 と いっ て いい ほど に 作業 能率 を 低 


166 


図 1 第 1 バー ジョ ン の 画面 


人 
42999 п 85 ネン ӨВ NHY 25 24772 : 
ж 1.99% ファ イル 92%4 ж 
ж 2:29 7. ヘッ コウ ж 
ж 8.9%ч29 ж 
ーー ニニ ーー ニー * 
1 4.229139 Í 
1 キョウ の リラ コウ の 9 4/%925794:-? š 
* * 


図 2 ナン バ ・ メ ニュ ーー 方式 


: 友人 の 情報 2:8 : 学 4 : 部活 
: アル バイト 


ファ イル 番号 を 入力 し て くだ さい (取消 し = 0) : 18 


下 き せま し だ な た 。 
これ は 改善 する 必要 が あり まし た . OITA X2 の シス テ 
設計 上 の 注意 事項 に “で きる だ け 操 作 を 簡単 に ノ /” と あ 


ДРЕ TT СС 
sns: em 
шы: (о 1 — З 7 — 1 


ТЕТЕ, HAS < КУБЕ ж 
| ww: 03 (32050 1218 
к------------------------------:. 
==: 


る の を 思い 出し , いろ いろ 試み まし た . 初め は , “МВ- 
GAME DOS”? の よう に カー ソル ・ バ パー を 使い 選択 きせ よう 
と し まし た . し か し , 後 の 方 に ある ファ イル は , 決定 まで 
時 間 が か か り 過 ぎました . そこ で ファ イル の 1 つ 1 つ に 番 
号 を 付け る こと に し まし た . また 選択 の 箇所 は , すべ て を 
ナン バ ・ メ ニュ ー 方 式 ( 図 2 参照 ) に し まし た . 汎用 性 も 
な く 多 機能 で も あり ませ ん が , 個人 や 会 員数 600 一 700 人 ほ 
どの レコ ー ド や ビデ オ の レン タル 店 な ど で は , 充分 に 使え 
る も の だ と 私 は 信じ し て いま す . 


F Ë 


他 の 住所 録 や 顧客 管理 を 見 た こと が な い (知っ て いる が 
オペ レー ト し た こと が な い ) の で 比較 な ど で き ませ ん が , 
自分 で 信じ て いる 部 分 を 挙げ て お きま す . プロ の 方 や エキ 
スパ ー ト の 方 々 も 笑わ な いで お 付き 合い くだ さい . 

知人 情報 管理 の 目立ち た が り 屋 の 部 分 は , 

@ 各 操作 が 簡単 な メニ ュー 方 式 で す . 

@ の 必要 な と き は メッ セー ジ が 出 ま す . 
@ デ バイ ス の 許す 限り 登録 で きま す . 

@ 登 録 人 数 は 最大 976 人 で す . 

@ 葉 書 ノ 封筒 へ の 印字 が 可能 で す . 
生年 月 日 か ら 年 齢 が 自動 算出 され ます . 
Qr (シス テム 辞書 ) が 使え ます . 
登録 順 庁 を 変え られ ます . 

それ ぞ れ は , 日 本 初 で は な いで すし , わざ わ ぎ 列記 する 
ほど で も あり ませ ん が , 以上 7 つが 第 1, 2 バー ジョ ン か 
ら 向 上 し た 部 分 で す . 

1 番 の 主役 は の で し ょ う . 漢字 が 使え を る うえ , シス テム 
辞書 に よっ て 入力 の 手間 を 大 きく 削減 し て いま す . 本当は 
9 番目 に オー ト ・ ダ イア ラ に よる 自動 発信 を 追加 し よう と 
思っ て いた の で す が , そこ まで 必要 と する 人 が いる だ ろう 
か ? 発信 装置 は どう する か ? な ど , いろ いろ な こと を ま と 
DEIF, 考え 抜い た 結果 , 今回 の この プロ グラ ム に は 付け 
な いこ と に し まし た . 必要 , 不 必要 は 個人 に よっ て さま ざ 
まな の で 情報 を 収集 し . いずれ 取り 入れ た いと 思っ て いま 
deu 


知人 情報 管理 の 使い 方 説明 


@ 必 要 機 器 (最低 限 ) 


E, 次 の 物 を 用 意 し て くだ さい . 
Ө Хишљђо Model30/40 (本 体 十 専用 ディ スプ レイ ) 
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図 3 ファ イル 書き 込み 順序 (2 ドラ イブ ) 


2drive の 方 


61 Clusters free 

Palh пале "g: 

Bins "0: ВЅІС CZGFBR2.Sus" 
Bas "Ва up Bas” 
Rsc "B:Slarl up data.Sub" 
Bas СТЕМАЯЖЕН Ваз” 


"84/18/15 WN 12:00 
"95/08/24 SAT 23:35 
"94/18/15 МОМ 12:00 
"95/98/24 SAT 23:41 


図 4 メイ ン ・ メ ニュ ー 


kkkkkkkkkkkkkkkikkk 
x о е x 
* 2 Z n * 
; і 
ән КӨЕ * 
x 5・ 終 了 * 
x 作業 番号 を 入れ て くだ さい 9? 
大 大 大 大 大 大 大 大大 大 大 大 大大 大 大 大 大 


の ② の シス テム ・ ユ ー ザ ー 辞 書 (CZ-111SF) 

プリ ンタ (BASIC で サポ ー ト され て いる 物 ) 

ië: 1 ドライブ で どう し て も 使い た い の で あれ ば 1 ドラ 
イプ へ の 変更 ” の と ころ を 読ん で みて くだ さい . 


@ 実 稼動 シス テム の 作成 


実用 され る 場合 , 次 の 手順 で 実 稼働 シス テム を 作成 する 
こと を お 勧め し ます . 

ここ で は , リス ト 1 と リス ト 2 が すでに 別 の ディ スク に 
準備 され て いる と し ます . FORMAT ユ ー テ ィ リ ティ で フ 
ォ ー マ ッ ト し た 後 , DISK SYSGEN で CZ8FB02 を 書き 込 
ACRES V, 

CDK, リス ト 1 を 書き 込み ます . 必ず ファ イル 名 を 
"Start up. Bas? と し て くだ さい . 次 に Start up data を 
COPY 命令 で 転送 し て くだ さき さい, 1 ドラ イブ の 方 は , この 
後に 音 訓 辞書 を 書き 込み ます . 最後 に リス ト 2 を 書き 込ん 
で 終わ り で す . 

注 : 2 ドラ イブ の 方 は , 次 の 順 で 書き 込ん で くだ さい (m 


© CZ8FB02 
О Start up (リス ト 1) 
@ Start up data 
@ 知 人 情報 管理 (リス ト 2) 
これ で OK で す . 
ik: この ディ スク を 以下 管理 と 呼び ます . また , 
28, この ディ スク に 書き 込ま れ て いき ます . 


@@ 各 処理 (作業 ) に つい て 


画 メ イン ・ メ ニュ ー 内 モー ド ( 図 4 ) 

ө 作業 番号 1 : 新規 ファ イル 作成 

作業 番号 1 を 選択 し ます . 新規 ファ イル の 名 前 を 全角 6 
文字 以内 で 入力 し て くだ さい . ここ で | 半 の み 入 力 す る と メ 
イン ・ メ ニュ ー に 戻り ます . 

新規 ファ イル の 1 人 目 の 情 報 を メッ セー ジ に 従っ て 入力 
し て いっ て くだ さい . すべ て の 入力 を 終了 し [Rv] を 選 
択 す る と 新規 作成 を し て メイ ン ・ メ ニュ ー に 戻り ます . 

@ 作業 番号 2 : 日 付け 変更 


シス テム か ら 書 き 込 む 


シス テム か ら 書 き 込 む 


情報 デー 
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図 5 入力 用 メッ セー ジ 図 6-・ サ プ メ ニュ ー 


жп A IHF =з 理 
mmm: ООО 1 
иби: А 


: А, Е43-15 
DO" 


これ で v 


\ い で すか ? 
[良い = Е ECL れ 以 外 の キー] 


= 2 
anc ЕЕ, enims 


作業 番号 2 を 選択 し ます . 年 か ら 月 , 日 と 順番 に 各 2 桁 
で 入力 し て くだ さい . 
年 数 は 西暦 下 2 桁 で 入力 し て くだ さい . 
ik : 月 数 日 数 は 必ず 2 桁 で 入力 し て くだ さい . ELLA 
力 さ れる まで は 次 に 進み ませ ん . 
@ 作業 番号 3 : 実行 
作業 番号 3 を 選択 し ます . 実行 する ファ イル を 番号 で 選 
択 し て くだ さい . Пом, また は [0| を 入力 する と メイ ン ・ 
メニ ュー に 戻り ます . 
注 : フ ァイル が な い 場 合 は エラ ー に な り , メイ ン ・ メ ニュ 
ー に 戻り ます . 番号 が 正しく 入力 され る と , その 番号 
の ファ イル を オー プン し レ し , 実行 に 入り ます . 
注 : 実行 に つい て は , 別記 し ます . 
e 作業 番号 4 Z ファ イル 削除 
作業 番号 4 を 選択 し ます . 削除 する ファ イル を 番号 で 選 
択 し て くだ さい . IDA, また は [0| を 入力 する と メイ ン ・ 
メニ ュー に 戻り ます . 
削除 し て よい か , [Y/N] で 入力 し て くだ さい . 
注 : フ ァイル が な い 場 合 は エラ ー に な り , メイ ン ・ メ ニュ 
ー に 戻り ます . 
@ 作業 番号 5 : 終了 
作業 番号 5 を 選択 し ます . ここ を 選択 する と 良否 を 問わ 
ず に 終了 し ます の で 注意 し て くだ さい . 
Ж: 入力 に つい て の 注意 
右 部 に 表示 され る メッ セー ジ に 従っ て 入力 し て くだ さい 


e[F2]: 情報 変更 

[F2] を 押す と 情報 変更 モー ド に な り ま す . 

ファ イル 内 に ある 情報 を 変更 し ます . 

登録 番号 を 表示 し て 氏名 か ら 入 力 待ち に な り ま す . 

入力 の 注意 に そっ て 各 項 目 の 変更 する と ころ の み 入 力 し 
て いっ て くだ さい . 

変更 し な いと ころ は , ЛОЖА С < да. 

ж: も し 間違え て [『2| を 押し た 場合 は 全 項 目 以 の み 入 力 
し て くだ さい . サ プ メ ニュ ー に 戻り ます . 

全 項 目 の 入力 が 終わ る と 登録 し て よい か メッ セー ジ が 出 
Ed. よい 場合 は , A 悪い 場合 は 。 その 他 の キー を 押し 
て くだ さき さい. また 氏名 か ら 再 入力 し て くだ さい . [7213 
と 終了 と な り サ プ メ ニュ ー に 戻り ます . 

注 : 変更 する 場合 は , その 項目 を 全部 入力 し て くだ さい . 
( 例 ) 150-01 一 150-02 に する . 
郵便 番号 : 150-02[ 選 と 入力 し ます . 全 項 目 を 入力 し 終 
えた ら メ ッ セ ー ジ に 従っ て くだ さい . 

@ | F3 | : 情報 検索 

[F3] を 押す と 情報 検索 モー ド に な り ま す . 

ファ イル 内 に ある 情報 か ら 検索 し ます . 

登録 番号 か ら 入 力 待ち に な り ま す . 

入力 の 注意 に そっ て 検索 する キー の み 入 力 し て いっ て く 
だ さい . 

注 : も し 間違え て [F3| を 押し た 場合 は 全 項 目 以 の み 入力 


(545). し て くだ さい . Э7Хла-сы)) S $. 
入力 文字 数 を 守っ て くだ さい (超え る と 再 入力 に な り ま 全 項 目 を 入力 が 終わ る と 検索 を 開始 し て よい か メッ セー 
す ). ジ が 出 ます . 


よい 場合 は , Ы, 悪い 場合 は , その 他 の キー を 押し て く 
だ さい . また 氏名 か ら 再 入力 し て くだ さい . ов НЕ 
を 押す と 検索 を 開始 し ます . 

検索 する キー は それ ぞ れ の 項目 の 一 部 で も か まい ませ ん . 


Я ++ : [Л 


@ 実 行 (作業 番号 3) 


画 サ ブ メ ニュ ー 内 モー ド ( 図 5 ) 
e[F1]: 情報 追加 (545) 
[F1] を 押す と 情報 追加 モー ド な り ま す . 


起動 し た ファ イル 内 に いま まで あっ た 情報 の 次 か ら 追 加 
し て いき ます . МА ои 左 の 例 は , 氏名 に 河 と 
注 : 起動 し た ファ イル : 以下 ファ イル と し ます . VUOLE SU, MURUS 
全 録 番号 を 表示 し て 氏名 か ら 入 力 待ち に な り ま す . TE AM bcne f rs 
入力 の 注意 に そっ て 各 項 目 を 入力 し て いっ て くだ さい . Мыс Жалел 
+: за 


注 : も し 間違え て [FT | を 押し た 場合 は 氏名 の と ころ で 回 d 
の み 入 力 し て くだ さい . サブ メニュー に 戻り ます . 注 : 二 の マ ー ク の 付い て いる 行 は , 実際 の 画面 上 の 動作 を 
全 項 目 の 入 力 が 終わ る と 登録 し て よい か メッ セー ジ が で 表わし て いま す . 以下 使用 . 
ます . よい 場合 は | ん | 悪い 場合 は , その 他 の キー を 押し て 検索 は レコ ー ド ・ ナ ン バ 1 から 順に 捜し て 行き , エン ド ・ 
くだ さい . また 氏名 か ら 再 入力 し て くだ さい . レコ ー ド で 止ま り ま す . 


よい を 選び 選 を 押す と 決 に 追加 を 続け る か を 選択 し ます . 
その 他 の キー を 押す と 終了 と な り サ プ メ ニュ ー に 戻り ます . 
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該当 デー タ が あれ ば 一 時 停止 し , 情報 を 表示 し て , メッ 
セー ジ が で ます . 


547 ファ イル の 順序 変更 


この ニニ つ j^à 


置き 換え 


ここ で 次 候補 に 行き た けれ ば [ SPACE | を 押し て くだ さ 
い . 

[ESC | を 押す と サ プ メ ニュ ー に 戻り ます . 

該当 デー タ が な い 場 合 は メッ セー ジ を 出し サ プ メ ニュ ー 
に 戻り ます . 

検索 速度 は , 100 人 目 ま で 到達 する まで に , 約 30 秒 ぐら い 
76%; 
注 : 誕生 日 / 郵 便 番号 / 電 話 番号 な ど は で きる だ け 全 体 入 力 

Жай 

e|FA|: o£ Fl 
[FA] を 押す と 現 レ コー ド が イン クリ メン ト さ れ 改 頁 が 
表示 され ます . 

押し た まま に する と リピ ー ト され ます . 
注 : エ ンド レコ ー ド まで 行く と 止ま り ま す . 

e[F5]: МА 

[F5] を 押す と 現 レ コー ド が デ ク リ メン ト さ れ 前 真 が 表 
示さ れ ま す . 

押し た まま に する と リピ ー ト され ます . 
注 : 第 1 レコ ー ド まで 行く と 止ま り ま す . 
el Fe | : 印字 
[F6] を 押す と 印字 モー ド に な り ま す . 

印字 モー ド 内 で は 現在 , 印字 の 対象 に を っ て いる 人 の 登 
録 番号 及び 氏名 を 表示 し ます が , [F4 | /[F5 | を 押す こと で 
いつ で も 印字 の 対象 が 変え られ ます . 
画 印 字 モ ー ド 内 メニ ュー 
⑥:…… 全 デー タ ・ リ スト アッ プ 

第 1 レコード か ら 順 に エン ド ・ レ コー ド ま で 全 項 目 を 印 
字 し て いき ます . 
@ 指 定 デ ー タ ・ リ スト アッ プ 

第 1 レコ ー ド か ら 順 に エン ド ・ レ コー ド ま で 指定 項目 を 
印字 し て いき ます . 
@… び 葉書 / 封 筒 ′ 印字 

対象 の 人 の 宛名 を 印字 し ます . 
Ж: ERLT, あな た の プリ ンタ に 合っ た 印字 位置 を つ 

か ん で くだ さい . 
Ө--ЕХІТ 

印字 モー ド か ら 抜 け て サブ プ メ ニュ ー に 戻り ます . 

@| FZ | : ファ イル の 順序 変更 ( 図 7 参照) 

[F7] を 押す と 順序 変更 モー ド に な り ま す . 

第 つつ 〇 〇 レコ ュー ド の 人 と 第 へ へ へ レコード の 人 を 入れ 換 
AG. 

メッ セー ジ に 従い 前 者 と 後者 の レコ ー ド を 入力 し ます . 
それ ら の 氏名 が 表示 され ます . これ で よい 場合 は , [V] で 
答え て くだ さい . [М] と 押す と レコ ー ド の 入力 に 戻り ま 
す . 


LO 


[608 コマ ンド ・ マ ッ プ 


作業 番号 1 


新規 ファ イル 作成 


作業 番号 2 


作業 番号 3 


全 デ ー タ 
指定 デー タ 
3E / £608 
EXIT 


作業 番号 4 


作業 番号 5 


ж: 間違っ て [FZ | を 押し た 場合 は , 固 の み 入 力 し て くだ き 


e. 
e[F10]: 終了 
情報 管理 を 終わ り メ イン ・ メ ニュ ー に 戻り ます . 


@ 実 際 に や っ て みる 


ここ で は , 先程 の 必要 機器 お よび 実 稼働 シス テム 管理 が 
準備 され て いる と し て , 進め て いき まし ょ う . モー ド は 高 
解像度 に し て くだ さい . 

知人 情報 管理 の 起動 の 手順 
管理 を ドラ イブ 0 に 挿入 
の シス テム 辞書 を ドラ イブ 1 に 挿入 
© CRT/ 本 体 を POWER ON 

約 20 秒 で すべ て が 起動 し ます . 起動 後 は , 終了 宣言 する 
まで 各 ド ライ ブ プ の ディ スク は 抜か な いで くだ さい . 

メイ ン ・ メ ニュ ー が 表示 され まし た . 

初め に 日 付け を 確認 し まし ょ う . 今日 は 86 年 9 月 30 日 で 
+. と ころ が 日 付け を 見 る と , 84 年 1 月 1 日 に な っ て いま 
す . 変更 し まし ょ う . 

作業 番号 2 を 押し て , 画面 が 変わ り ま し た ね . 年 か ら 入 

カカ し て いき まし ょ う . 
+ МГ: 277) : 86 
-H (01-12: 272): 9 
+H (01-31: 277) : 30 
ТӨК CS. 

日 付け が よく な っ た の で ファ イル の 新規 登録 を し まし ょ 
J. ファ イル 名 は 何 に し まし ょ うか ? まあ , “友人 の 情報 ” 
ぐら い に し て お きま し ょ う . 

作業 番号 1 を 押し て . ファ イル 名 の 入力 を し まし ょ う . 
+ ファ イル の 名 前 を 入力 し て くだ さい Ло 

画面 が 項目 入力 画面 に 変わ り ま し た . 氏名 か ら 入 力 し て 
eEGXLESY. 

+ 氏名 : 馬場 雅治 ノッ 
十 性 別 [1 三男 2= 女 ] 104 
十 生 年 月 日 (昭和 ) : 421015 (4 
ーー . 


А RJ RJ 


職業 : [1 


+ + + + 


キミ で いで すず すず が? 

ここ で 較 を 入力 し まし た . ディ スク が 動い て メイ ン ・ メ ニ 
ュー に 戻り ま 45. 

これ で “友人 の 情報 と いう ファ イル が 使え る よう に な 
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LO 


549 ファ イル 書き 込み 順序 (1 ドラ イブ ) 
1drive の 方 
64 Clusters free 


Path name 7g: /" 
Bins "0: ВАСІС CZ8FB2.Sys” "84/10/15 МОМ 12: 


08 
Bas — "KSlarl up .Bas" — '85/88/24 SAT 23:33 
Asc "B:Slarl up dala.Sub" "94/18/15 MON 12:88 


Asc СЕНИ ЖӨЛС — 85/89/25 SUN 00:00 
Bas "КАЕШ. "95/08/25 SUN 00:01 


り ま し た . 今度 か ら は , 起動 し た あと 日 付け を 確認 し , ТЕ 
業 番号 3 を 押し て , 追加 な り 変 更 な り 印 字 な ど や っ て くだ 
86, コマ ンド ・ マ ッ プ (ВВ) を 見 て 階層 構造 を 把握 し 
€ Ni だ さい 。 


ўм ^^ 
1 ドライブ へ の 変更 

この 知人 情報 管理 は 2 ドラ イブ 用 で す が , 別に シス テム 
辞書 を 使わ な けれ ば , 1 ドラ イブ で も 完璧 に 動き ます . 

それ で は , 改造 し て し まい まし ょ う . リス ト 1 の 150 行 と 
310 行 の DEVICE 命令 を 消し て くだ さい . 300 行 に ある , 
KEYO, CHR$(&HFF, &HF9, &HFF) o &HF9 Z &HF8 
に 変る て くだ きい , 

ХЕ, リス ト 2 の 1100 行 を 消し て くだ さい . ディ スク に 
書き 込む 順序 は , 次 の 通り で す (219 参照 ). 
@ CZ8FB02 
@ Start up (リス ト 1) 
@ Start up data 
@ 音 訓 辞 書 
知人 情報 管理 (リス ト 2 ) 
これ で OK で す . 

つま り 1 ドラ イブ で は , シス テム 辞書 は 使え を ませ ん . Š 
ら に どう し て も と お っ し ゃ る 方 は , 自分 で や っ て みて くだ 
きい. 


プロ グラ フラム の 入力 に つい て 


リス ト 1 も リス ト 2 も , それ ぞ れ 問 違 わ ず に 入力 すれ ば 
完 動 し ます . 皆様 の 中 で 入力 の 手間 を 少し で も 減ら そう と 
する 方 も いら っ し ゃ る で し よう が , その 場合 の 注意 点 を 少 
lb. 

@ リ スト 1.,2 共通 の 注意 
© REM i3, は ず さ な い 方 が よい で し ょ う . GOTO, 

GOSUB, THEN な どの 飛び 先 は , すべ て REM 行 に な 

っ て いま す の で , 単に REM だ け 省 く と 後 の 修正 が 大 変 

だ と 思い ます . 

@ マ シン 語 の コー ル 番 地 や POKE な どの 番地 に は , 注意 

し て くだ さい . 

ө LIST1 の 注意 

⑯110…130 行 は , 自由 に し て も 動き ます が , 私 と し て は , 
その まま 入力 し て いた だ きた いと 思い ます. 

Ө1504113, 1 ドラ イブ の 方 は , 消し て くだ さい . 

ӨЗ004113, 1 ドラ イブ の 方 は, “НЕӘР“НЕ8І L < < 7E 

SU, 

@360 行 は , CZ-800P DKE 2 倍 の 印字 指定 な の で , 他 の プリ 

ンタ の 方 は 消し て くだ さい . 

430…500 行 の 後ろ の КЕМ は , 入力 し な く て も か まい ま 
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せん . 

@510 行 の ファ イル 名 は , リ スト 2 と 同じ に し て お いて くだ 
さい . 

@ LIST2 の 注意 

⑯1100 行 は , 1 ドラ イブ の 方 は 消し て くだ さい . 

@ REM i3, アポ スト ロフ ィ が あれ ば , 後ろ の 文字 は 書か 
な ぐ で よ w ぬ で す 、。 

от, 人 に よっ て , 要 / 不 要 が さま ざま な の で , 不満 が 
ある 人 は , 自分 に 合っ た 印字 パタ ー ン を 作成 し て みて く 
だ さい . 
と に か く 長 い の で 間違い を し な いよ う , ゆっ くり 入れ て 
くだ さい . それ と , 完 動 す る まで , 1110 行 の STOP OFF 
は , 入力 し な いで くだ さい . 


知人 情報 管理 の 内 部 公開 


内 部 の お も な 点 に つい て 少し 話し まし ょ う (RIYA 
ト 2 の も の で す ). 

@ 1160-1400 行 (初期 選択 , メイ ン ・ メ ニュ ー) 

メニ ュー の 表示 . 作業 番号 の 入力 , 分 岐 を し て いま す . 
1, 2, 3, 4, 5 以外 は 受け 付け ませ ん . 
© 1580-175047 (日 付け 変更 ) 

日 付け 変更 の た め デ ー タ を 入力 し ます が , その デー タ が 
13 年 や 54 日 で あっ て は な ら な い の で す . そ の た め に [月 日 ]$ 
に 01…31 を 入れ て あり , INSTR で 含ま れる か を 調べ , か つ 
2 桁 か を 調べ ます . その 2 つの 条件 に 合っ た も の を 採用 し , 
合わ な けれ ば 再 入力 に し ます . 
@1980-2000 行 (漢字 入力 終了 ) 

漢字 入力 モー ド か ら 抜 け 出す サブ ルー チン で , ここ は あ 
な た が 自作 の プロ グラ ム に その まま 組み 込ん で も 使え ます . 
余談 で す が , KEYO, CHR$( ) の カッ コ の 中 に 必 HF1 か 
ら &HFF まで を 入れ る と ファ ンク ショ ン ・ キ ー や [| XFER] 
キー を 押し た も の と し て プロ グラ ム 中 で 使え ます . 参考 に 
し て くだ さい . &HFF が | XFER | キー. 

@ 2120-2240 (MAIN) 

サ プ メ ニュ ー の メイ ン ・ ル ー チ ン で INKEY$(0 € 7 7 
ンク ショ ン ・ キ ー を 読み 込ん で いま す . [F1]-[F1O | が q- 
270. 

@2250-2330 行 (ХА, 前 真 , 出力 ) 

[ra]/[F5] を 押す と レコ ー ド ・ ナ ン バ を 1 つ +/ 一 し て 
エン ド ・ レ コー ド / ト ッ プ ・ レ コー ド か を 検査 し て そう で な 
けれ ば , RECORD READ を コー ル し 出力 し ます . 

• 4290-5190 行 (DATA 検索 ) 

検索 する キー を 入力 し な が ら , キー に な る 項目 に フラ グ 
を 立て その 項目 数 を 数 を ます. レコ ー ド を 読み , INSTR で 
キー と 比較 し ます . 全 項 目 の 比較 が 終わ る と 比較 が 成立 し 
た 項目 数 と キー の 項目 数 と を 比較 し , 成立 な ら 検索 OK. そ 
う で な けれ ば 次 の レコ ー ド に 行き ます . 

@ 5200-5400 行 (FILES) 

新規 , 実行 , 削除 で 使い ます . DEV1I$ で 16 レ コー ド 目 か 
ら 読 み , FCB の 先頭 が 04 で エク ステ ンション が いび FIL* の 
も の を 採用 し , 配列 に 格納 し て 行き ます . 先頭 が FF な ら 終 
了 と し ます . 
e5570-5670 行 (年 齢 計算 ) 
誕生 日 の 記録 フォ ー マ ッ ト は 次 の 通り に 格納 され て いま 
す . 

42 年 12 月 30 日 の 人 の 場合 
[誕生 日 1$ ニ "8331421230" 


жі リス ト 2 の 内 容 と 行 番号 


プロ グラ ム 見 出し 
初期 設定 1 


1000 — 1080 
1090 — 1130 


1140 — 1150 初期 設定 2 初期 選択 , メイ ン 
1160 — 1400 初期 選択 , メイ ン ・ メ ニュ ー 
1410 — 1520 終了 

1530 — 1570 本 日 日 付け 

1580 — 1750 日 付け 変更 

1760 — 1970 新規 ファ イル 作成 

1980 — 2000 漢字 入力 終了 

2010 — 2110 知人 情報 管理 実行 

2120 — 2240 MAIN 

2250 — 2330 “и 

2340 — 2510 DATA 追 加 

2520 — 2660 RECORD WRITE 

2670 — 2810 RECORD READ 

2820 — 2860 RANDOM OPEN 

2870 — 3230 画面 作成 ЖЖ 

3240 — 3480 DATA 変 更 

3490 — 4280 印字 

4290 — 5190 DATA 検 索 

5200 — 5400 FILES 

5410 — 5560 ファ イル 削除 

5570 — 5670 年 齢 計算 

5680 — 6170 各 デ ー タ の 入力 

6180 — 6310 各 デ ー タ の 消去 

6320 一 7080 デー タ 入 力 に 関す る 説明 
7090 — 7190 説明 アト リピ ビュー ト 
1210 — 7560 ファ イル の 順序 変更 
7570 一 7760 NO FILE 


制作 者 の 氏名 な ど 
BASIC に 関す る 設定 

ディ メン ジョ ン 設 定 

作業 番号 の 入力 か ら 分 岐 
F-KEY の 設定 な ど 

本 日 の 日 付け を 表示 

日 付け の 変更 
新規 ファ イル の 作成 

漠 字 モー ド か ら の 抜け 出し 
実行 ファ イル の 選択 

サ プ メ ニュ ー 

GRE, XF, 出力 F4/F5 
DATA の 追加 F1 

1 レコ ー ド 書き 込み 

1 レコ ー ド 読み 込み 

ラン ダム ・ フ ァイル ・ オ ー プ ン 

サ プ メ ニュ ー 画 面 作 成 

DATA の 変更 F2 
各種 印字 Ев 
DATA の 検索 F3 
新規 , 実行 , 削除 FILES 
ファ イル の 削除 
誕生 日 か ら 年 齢 の 計算 
新規 , 追加 , 変更 で 使用 
項目 , バッファ の クリ ア 
項目 別 の 入力 注意 の 表示 
アト リピ ビュ ー ト 計算 , 実行 
ファ イル の 順序 変更 F7 
エラ ー 処 理 , メッ セー ジ 


今日 の 日 付け (年 ) か ら 生 まれ た 年 と 25 を 引き ます ( 西 
歴 / 昭 和 の 変換 )、 その 結果 を NEN7 と し ます . 

日 付け (月 ) より 生ま れ た 月 が 小さ いと き は 更に МЕМ? 
に 1 を 加え ます . 

月 が 等 し い 場 合 は , 生ま れ た 日 に よっ て 判断 し ます . 


@turbo の 新 命令 に つい て 


今回 は turbo に 備わっ た , いま まで に あま り 見 られ な か 
っ た 命令 を いく つか 使っ て み ま し た . な か な か 便利 な も の 
も 多く , 楽に な っ た と 思い ます . し か し , 気がつか ね ば 使 
うこ と も な いと 思わ れる の で ,。 使用 し た 命令 の 中 で , 使え 
ば 便利 な も の を 紹介 し まし ょ う . 
@ STOP OFF 1110417 
キー を きか な くす る も の で ,END や ВЕЗЕТ + 
で 止ま り ま せん . 今回 の よう な プロ グラ ム を 実用 に 使う と 
誰が オペ レー ト す る か わか り ま せん . 不慣れ な 人 が 
[BREAK | キー を 押さ な いと も 限ら な い の で 付け まし た . 
Ө АКСМУ$ (n$) 154041 
ASCII 文字 を 全角 文字 に 直す 命令 で す . 

( 例 ) В$=АКСМУ$ (70123”) 

ЖЖ, B$ は 0 123 と な り ま す . 


Ө KACNV$ (n$) 561017 fth 
全角 文字 を ASCH 文字 に 直す 命令 で す . 

(fi) В$=КАСМУ$ (“0123”) 
結果 , B$ は 0123 と な り ま す . 
@ PUSH 7340 行 
後に 続く 変数 の 内 容 を ある 場所 に 格納 し ます . 
@ POP 7520 行 


РОЗН で 格納 し た 変数 の 内 容 を 変数 に 返し て や り ま す . 


これ か ら の 管理 の 成長 


知人 情報 管理 と し て は , 今回 の プロ グラ ム を 最高 バー ジ 
ョ ン と し , 今回 の 中 か ら 多 く を 取り 入れ , 改名 (RE) L, 


図 10 PUSH と POP に よる A と 号 の 順序 変更 


いた いこ ん な こと と 思っ て くだ さい .。 


先ほど の オー ト ・ ダ イア ラ や 可変 性 項目 の 採用 , 検索 の 高 
ЖИЕ, 印字 パタ ー ン の 追加 .、 ハ ヘ ハードディスク の サポ ー ト , 
その 他 シ ステ ム 設 計 ま で に 思い つく こと は すべ て 取り 入れ , 
ЦО 誌 に 発表 きせ て いた だ きま す . その と き は , また 読む だ 
け で も 読ん で や っ て くだ さい . 


E$ = 
их 後に 

意見 や 質問 、 相談 交流 な ど , お まち し て お り ま す . 
〒870-02 
大 分 県 大 分 市 宮 河 内 ハイ ラン ド 43-15 
馬場 鈴 治 まで . 

な お , 質問 , 相談 お よび OITA X2 入会 応募 の 方 は , 必 
ず 返 信用 封筒 を 入れ て くだ さい . それ と ディ スク や テー プ 
を 送っ て くだ さっ て も , いっ さい 御 返 送致 し ませ ん . 特に 
お 金 な ど 送 っ て こら れ て も 私 が 困る ば か り で す の で , そう 
いう こと は , 絶対 に し な いで くだ さい . また , 市 販 ソ フト 
な どの 交換 , 低額 コピ ー, プロ テク ト な ど に は , いっ さい 
応じ られ ませ ん . 返事 も 出し ませ ん の で ご 了承 くだ さい . 
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188 (15 
118 LOCATE 16,19:PRINT"SHRRP HuBRSIC С2-ӨҒВФ2 Version1.9" 

128 LOCATE 16,11:PRINT"OITQ X2 知人 情報 礼 理 Versionš. Ba” 

158 LOCATE 16,12:PRINT" Programed by OITA X2 馬場 Жа” 

148 KLIST9: KMODE1: INIT : MAXF ILES2: CL ICKON 

158 DEVICE"1:" 

168 KEY 1,736” 

178 KEY 2,75%” 

188 KEY 5,7%Ж” 

190 KEY 4," R" 

200 KEY 5,"R]A" 

218 KEY 6, "Еп" 

228 KEY 7, "Да" 

238 KEY 8,7” 

248 KEY 9,"" 

258 KEY18, "fX Y” 

268 D$-DATE$: IF MID$CD$, 1,2)="22" THEN MID$CD$, 1,2) -"85": DRTE$=D$ 
278 PRINTOHR$ (38,28); 

280 CLERR&HEF88: POKESHF876, #88: POKESHFD72, B 

298 PRLET1,9:PRM 2:LINE<B, 176)-(639, 199) ,РЅЕТ, 1, BF 

588 КЕУВ, CHR$(8HFF , &HF9, &HFF) 


UAM "Start up.Bas" mw n —V s 


318 A$=INKEY$: DEVICE"8: " 
528 CLS@:KLIST1:INIT 
558 OPEN"I",1,"Starl up data. Sub” 

348 INPUTH1 , A$, B$: MEMSCEHF885, 48)=HEXCHR$(B$) 
358 CLOSE 

368 POKE&HFSR2 ,PEEKC&HFSR2)OR&HS9: РОКЕВНЕВА7, 15 
578 OPTION SCREENB 

388 FOR 1=8 TO 15 

590 READ ЯМФ:РОКЕ ЗНЕРВВ+1 , VAL ("aH +PME) 


400 NEXT 

419 "マシ ン 語 デー タ 

428” ғғ 3t77"5 ATP 

438 DATA 81, 08,56 E^ LD ВС,5000Н / 18 BC=8H3000 
448 DATA 3E,15 * LD 8,158 / 28 ñ=8H15 
458 DATA 26,11 š LD H,11H / 30 H=8H11 
468 DATA ED,79 : "LOOP: OUT «O,R / 48 OUT BC,A 
478 DATA 85 ” INC BC / 58 BC=BC+1 
488 DATA 25 B DEC H / 68 H-H-1 

498 DRTR 28,Fñ st JR NZ,LOOP ^ 78 IF 時 9 THEN 48 
588 рата C9 ды КЕТ 7 88 RETURN 


518 RUN "知人 情報 管理 .Bas” 


1000 'пзажж жа яя я ааа ааа а заза няня 


1018 '* * 
1820 '* ЖАНМЫН (個人 用 住所 録 ) * 
1858 '* * 
1840 '* 製作 者 名 : KB 雅治 Ы 
1658 '* 製作 協力 :OITA X2 =: 
1968 '* CZ—-852C/862C* 
1678 '* シス テム 辞書 Ы 
1080 '»s»s2222222222222»222»2»2222»»2225 
1090 "初期 設定 1 


1108 DEVICE"1:" 

1119 STOP OFF:CLICK OFF 

1128 ON ERROR GOTO 7658 

1150 KLIST9:CLS4 

1140 "初期 設定 2 

1158 DIM C(12) ,D$(12) , BF ILE$(20) 

1160 "初期 選択 ・・・・ メ イン メニ ュー 

1178 WIDTH 89,25,9,2:CLS:CSIZE3:KEY 8,"" 

1188 LOCATE 8, &:PRINTHG,"OOOO0 知人 情報 管理 ОООО" 
1198 KLIST9:CSIZE 

1288 LOCRTE22, 4:PRINT" ЖА Ж А А СА САСА r АСА АС АС АСА" 


1218 (ОСАТЕ22, 5:РВ1МТ”Ж ж" 
1220 LOCATE22, G:PRINT": ”;:GOSUB 1539:PRINT" Ж” 

1250 1 ОСАТЕ22, 7:PRINT kK ж" 
1248 LOCRTE22, 8:РЕІМ"А 1・ 新 規 フ ァイル 作成 * 
1258 LOCRTE22, 9:PRINT" 食 2・ 日 付け 変更 ж” 
1268 LOCATE22,18:PRINT"X 3・ 実 行 ~" 
1278 10САТЕ22,11:РАІМ"ж 4・ フ ァイル 削除 ж" 
1288 LOCRTE22,12:PRINT c --------------- *" 
1298 LOCATE22,13:PRINT" — 5・ 終 了 *" 
1588 |ОСАТЕ22, 14: PRINT": ж" 
1818 LOCRTE22,15:PRINT" 食 作業 番号 を 入れ て くだ さい ? * 
1328 1 ОСАТЕ22, 16:РВ1МТ” Ж ж" 


1538 LOCRTE22, 17:РКІМТ "АА А АИ ИСА И kk k ААС АСА АСА А" 
1248 КЈФ-ІМКЕҮФ: IF KJ$-"" THEN 1340 

1358 IF KJ$-"1" THEN 1768 

1360 IF KJé-"2" THEN 1580 

1370 IF KJ$-"5" THEN KLIST1:GOTO 2010 

1888 IF KJ$-"4" THEN 5418 

1590 IF KJé-"5" THEN 1418 

1488 СОТО 1548 

1418 "終了 

1428 KEY 1,CHR$(12)+"MI.80:FIL."+CHR$(34)+" 6: "*CHR$C13) 
1430 KEY 2, CHR$ C12) "UL. 88: FIL. "4CHRSCE4) 4" 1: "4CHR$(13) 
1448 KEY 3,"KEY ” 

1458 KEY 4,"LIST "«CHR$(26, 13) 

1468 KEY 5, "RUN "+CHR$(13) 

1478 KEY 6, "LORD ”+CHR$(13) 

1488 KEY 7,"WIDTH ~ 

1498 KEY 8, "CHR$C 

1588 KEY 9,"PRLET " 

1518 KEY18, "CONT"+CHR$(13) 

1528 CLOSE: INIT:CLS4: KL IST1: DEVICE"Q: " : END 

1538 "本 日 日 付け 

1548 PRINT "本 日 は ":RKCNU$(LEFT$CDRTE$,2) ) ; 

1558 PRINT"zE";GKCNUS (MIDS (DATES, 4,2)) ;" B"; 

1560 PRINTAKONV$ (RIGHTS (DATES, 2)) ;" BC d^"; 

1578 RETURN 

1588 "日 付け 変更 

1598 ГА Н1%-"01020504050607080910111215141516171819200122252425262728 


172 


295051" 

1688 DE$-"" 
1618 CLS:CSIZE3 
1628 LOCRTE14, 9:PRINTH9," ネ ネネ 日 付け 変更 ok x x 
1638 LOCRTE26, 6:PRINT" 日 付け は 年 月 日 それ ぞ れ を " 
1648 LOCRTE26, ?:PRINTT の 2 ケタ で 入力 し て くだ さい " 
1658 LOCRTE24, 18: GOSUB 1558 

1668 LOCRTE24, 12: PRINTCHR$(5) ; 

1678 INPUT* 年 (PSI T: 2 2) : ",DES 

1680 IF LEN(DE$)=2 THEN ELSE BEEP:GOTO 1668 

1698 LOCATE24, 13: PRINTCHR (5) ; 

1788 INPUT" A (017-12: 27 >) : ",D$ 

1718 IF INSTR(LEFT$([ A 818,24) ,D$) «98 AND 1 ЕМ(0%)-2 THEN DE$=DE$+"/"+ 
D$ ELSE BEEP:GOTO 1698 

1728 LOCRTE24, 14: PRINTCHR$(5) ; 

1758 INPUT"B (801—531: 27 2) : ",D$ 

1748 IFINSTRC[ A 83$, D$) «»8 AND LENCDS) -2THEN DE$-DE$«^/"«D$ ELSE ВЕЕР 
:GOT01729 

1758 DRTE$=DE$:GOTO 1168 

1768 "新規 ファ イル 作成 

1778 CLS: KLIST8:CSIZES 

1788 LOCATE 4, @:PRINTH8,”< <<< 新規 ファ イル 作成 >>>>" 

1798 CSIZE:GOSUB 1988 

1808 LOCATE 6,19:PRINTCHR$ く 5) ; 

1810 INPUT* 新 規 フ ァイル の 名 前 を 入力 し て くだ さい : ",[ フ ァイル 名 ]$ 

1828 IF [ファ イル 名 ]$="" THEN GOSUB 1989:GOTO 1168 

1858 IF LEN([ フ ァイル 名 ]$)>13 THEN BEEP:GOTO 1800 

1848 GOSUB 1988 

1858 RECORDEND-1 

1868 KEY 0,CHR$(8HFF) 

1878 CLS4:CSIZE2 

1888 RESTORE7288: GOSLIB 6520 

1898 LOCATE 8, @:PRINTH8," 18 D А Т  A":CSIZE " 

1988 [3$ 59 1$-RIGHTS$C" O O O "*RIGHT$(AKCNUS (ТКФ CRECORDEND)) , (LENCSTR$〈R 
ECORDEND))-1)*2) ,8) 

1918 LOCATE 8, 2:PRINTCHR$(5)+" 登 録 番号 : ":[ 番 号 ]$ 

1920 GOSUB 6188 

1938 IDRTR=9:GOSUB 5688: GOSUB 1988 

1948 LOCRTE6,16:PRINTT こ れ で いい で すか ?" 

1958 PRINT*[ 良 い 王 RET, 悪 い ニ = それ 以外 の キー]": 

1968 IF INKEY$〈1)<>CHR$(13)THEN 1860 

1978 GOSLIB2828: GOSLIB2528: CLOSE: 60701168 

1980 "漢字 入力 終了 

1998 KEY 0,7”:КЕУ 8,СНЕФСЕНЕР) :A$=INKEY$ 

2888 RETURN 

2010 'XLAMRSEFEHESE(T 

2828 CLS:KLIST8:CSIZES 

2838 LOCATE 4, @:PRINTH8,”< <<< 実行 ファ イル 遷 択 >>>>" 

2040 GOSUBS288: [7 > 4 3$ 81-0 

2058 IF BFILE-1 THEN BEEP:GOTO 7578 

2868 LOCATE 6,28: PRINTCHR$(5) ; 

2878 INPUT" フ ァイル 番号 を 入力 し て くだ さい (取消 し =0)}:", [ファ イル 番号 
2888 IF 【 フ ァイル 番号 ]=<8 THEN 1168 

2898 IF [ファ イル 番号 ]>BFILE-1 THEN BEEP:GOTO 2060 
2188 [ファ イル 名 ]$=BFILE$(【 フ ァイル 番号 ]) 

2118 GOSLB 2820 

2128 'MA IN 

2138 GOSUB 5118 

2148 GOSUB 2500 

2158 R$-INKEYSCOD : ТРАФ=""ТНЕМ 2158 


2168 IF 8%-"4” THEN GOSUB 2340 

2178 IF ñ$="r" THEN GOSUB 5240 

2188 IF A$="s” THEN GOSUB 4298 

2198 IF А$=”1” THEN GOSUB 2259:GOTO 2150 
2288 IF ҒФ-"и” THEN GOSUB 2288: GOTO 2158 
2218 IF ҒФ-"о” THEN GOSUB 3499:GOTO 2120 
2228 IF ҒФ-"ы” THEN GOSUB 7210:GOTO 2120 
2230 IF n$-"z" THEN CLOSE:CLERR:GOTO 1140 
2240 A$="":GOTO 2158 

2250 "А 


2268 IF (RECORDEND-1)>RECORD ТНЕМ RECORD=RECORD+1 ELSE RETURN 


2278 GOTO 2388 

2288 "前 頁 

2290 IF RECORD>1THEN RECORD=RECORD-1 ELSE RETURN 
2308 'DATA 出力 

2319 GOSUB 2679 

2528 GOSUB 2878 

2558 RETURN 

2548 'РАТА 追加 

2358 WIDTH 88,25 

2368 KEY B, CHR$(8HFF) 

2578 (154:С612Е2 

2580 RESTORE7299:GOSUB 6520 

2398 LOCRTE19, B:PRINTHO, "D А Т А 38 Jm":CSIZE 


CORDEND))-1)*2),8) 
2418 LOCATE 8, 2:PRINTCHR$(⑤)+" 登 録 番号 : "; [番号 ]$ 
2420 GOSUB 6189 

2458 IDATA=1:GOSUB 5688 

2448 LOCATE 6,16:PRINT" こ れ で いい で すか ?" 

2458 PRINT*[ 良 い =RE 下 , 悪 いこ それ 以外 の キー]": 
2468 IF INKEY$(1)=CHR$(13)THEN 2478 ELSE 2368 
2478 RECORD-RECORDEND: GOSUB2S29:RECORDEND=RECORDEND+1 
2488 KEY8,CHR$(255) 

2498 LOCATE 6,19:PRINT" 続 け ま すか ?" 

2588 PRINT*〔 続 く =RET, 終 了 ー そ ね れ 以 外 の キー]": 
2518 IF INKEY$(1)=CHR$(13)THEN2369ELSERETURN2129 
2528 "RECORD WRITE 

2550 LSET ROW=[ 番 号 ]$ 

2548 LSET RB$=〔 名 前 ]$ 

2558 LSET RC$-LhtRIIS 

2568 LSET RD$=[ 誕 生日 ]$ 

2579 LSET RE$=〔 郵 便 番号 ]$ 

2588 LSET RF$=[ 血 液 型 ]$ 

2598 LSET RGW=〔 住 所 11% 

2688 LSET RH$=【 住 所 2]$ 

2618 LSET RI$=[ 住 所 31$ 

2620 LSET Б19-Г4НЕЕЕ1% 

2638 LSET RK$=【 備 考 ]$ 

2648 LSET RL$- MENOS 

2658 PUT H1,RECORD 

2668 RETURN 

2678 'RECORD RERD 

2688 GET H1,RECORD 

2698 [番号 J を $=RA$ 


2408 [番号 ]$=RIGIT$(" O О О "+RIGHT$(AKCNVS (STRS (RECORDEND) ) , (LEN(STR$(RE 
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5888 PRINT КІСНТФ(ЯКСМУ%(5ТБ%(МЕМ?)),42:72" 
3010 LOCRTE28, 7:РЕТМТ” 血液 型 : “:[ 面 液 型 ]$ 
5020 LOCATE 8, 9:PRINT" 都 道 府 県 市 :“:[ 住 所 1 1$ 
5858 LOCATE 8,11:PRINT" 町 村 プ 番地 :“:[ 住 所 2]$ 
5048 LOCATE 8,13:PRINT" 下宿 代表 :"; [住所 31]$ 
3858 LOCATE 0,15:РКІМТ” 電話 番号 :"; (WESS 
3068 LOCATE 8,17:PRINT" 備考 :“:[ 備 考 ]$ 

3678 LOCATE 0,19:РКІМТ” MPK:";LMPIIS 

5080 1 ОСАТЕ22, 19:PRINT” L. 2 — Кі” 
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3898 PRINT RIGHT$C" O 0"+RIGHT$(RKCNV$(STR$〈RECORD) ) , (LEN(STR$〈RECORD) > 


-0325,6); 

3100 RETURN 

3118 "画面 作成 LINE 

3120 WIDTH 49,25:SCREEN 8, B, 8:CLS4:C-4 

5158 LINE(67,4)-(251,20) ,PSET, C, B 

3148 LINE(8,20)- (319, 148) ,PSET,C,B 

3158 FORI=1TO8:LINE(@, 28+1*16)-(319, 28+1 ¥16) , PSET, C: NEXT 
3168 1 1МЕС8, 148)- (175, 164) ,PSET,C, B 

5178 LINECI46,20) - (147, 36) ,PSET, C, B 

3188 LINE(66, 36)- (67,52) ,PSET,C,B 

3198 LINE(138,52)- (131,68) ,PSET,C,B 

3288 LINE(226,52)- (227,68) ,PSET,C,B 

3218 LINE(176, 148)-(319, 164) ,PSET,C,B 

3228 PRINT178,159) ,1,4 

3250 PAINT (71,5) ,2,4:RETURN 

3240 'DATA 変更 

3258 WIDTH 88,25 

3268 GOSUB 1988 

3270 CLS4:CSIZE2 

3288 RESTORE7299:GOSUB 6520 

3298 GOSUB 6658 

3508 LOCRTE18, 9:РАТМТИВ, "D А Т А 変更 “:CSIZE 
3518 LOCATE 8, 2:РАІМТ" ЕЕ: "; [番号 ] を 
3320 D$: 1)=〔 名 前 ]$ 

3330 D$C 2)=[ 性 別 ]$ 

3340 D$ 3)=RIGHT$([ 許 生日 ]$,12) 

3358 D$ 4)=[ 郵 便 番 号 ]$ 

3368 D$C 5)=[ 血 液 型 ]$ 

3570 D$C 6)=【 住 所 1 1% 

3588 D$ の =[ 住 所 21$ 

3398 D$C 8)=[ 住 所 31% 

3400 D$ 9)=[ 電 話 番号 ]$ 

3410 D$19)=[ 備 考 ]$ 

3428 D$〈11)=[ 職 業 ]$ 

5438 GOSUB 5680 

3448 KEYB, CHR$ (255) 

3458 LOCRTE6,16:PRINT" こ れ で いい で すか ?" 

3468 PRINTER - RE T, - X npo —1"; 
3478 IF INKEY$CI) -CHR$(12) THENGOSUB2529: 60702128 
3480 GOT03269 

3498 ' ETF 

3588 WIDTH 48,25 

3518 KEY 9,"":CLS 

3528 LOCRTE19, 9:PRINTT 印 字 M Е N U^ 


2788 
2718 
2728 


〔 名 前 ]$=RE$ 
[性 別 ]$=RC$ 
[REE 日 ]$=RD$ 


3538 LOCATE 4, 5:PRINT" 1... DATA LIST UP" 
3548 LOCATE 4, 7:PRINT"2. . . 指定 DATA LISTE” 
3558 LOCATE 4, 9:PRINT"3, .. “ЖЕУНЕ” в?” 

3568 LOCATE 4,1L:PRINT"4, .. EXIT" 


| 


2750 〔 郵 便 番号 ]$=RE$ 
2748 [血液 型 ]$=RF$ 
2758 [住所 1 1$=RG$ 
2768 [住所 2 1$=-RH$ 
2778 [住所 3 1$-RI$ 
2789〔 電 話 番号 ]$=RJ$ 
2798 〔 備 者 ]$=RK$ 
2800 LMPKIS-RL$ 
2818 RETURN 


3578 LOCATE 8,15:PRINT" 殺 T 字 指定 を し て くだ さい 。『": 

3588 CFLRSHI: PRINT" "; :CFLASH 

3590 LOCATE18, 3:PRINT" KB: "LRANS 

3688 LOCRTE19, 2:PRINT" 登 録 番号 : ":[ 番 号 ]$ 

3618 121$- INKEv$ CO) 

3620 ЈЕ 1Z1$="1"THEN3689 

3630 IF 121%-”2”ТНЕМ5900 

3640 IF 121$="3"THEN3829 

3650 IF IZI$-"L"THEN IF (RECORDEND- 1 ) >RECORD THEN RECORD=RECORD+1:GOSUB 2 
2828 "RANDOM FILE INIT 678:GOTO 5590 

2850 ОРЕМ "R",81,78:"*L7 у 4 ме FIL" 3668 IF IZI$-"u"THEN IF RECORD>1THEN RECORD-RECORD-1:GOSUB 2678:GOTO 359 
2848 "FIELDH1,8 AS RA$,16 RS RB$,2 RS RC$,16 AS RD$,12 RS RE$,4 RS RF$,2 8 

1 8 RS RG$,28 RS RH$,28 RS RI$,39 RS RJ$,34 RS RK$,16 RS RL$ 3678 IF 121%="4"ТНЕМ RETURN ELSE 3598 

2858 RECORDEND=LOF〈1)+1 5688 $L IST UP 

2868 RECORD-1:RETURN 5690 '"ФРАТ АНТЕ 

2878 "画面 作成 文字 5700 LPRINT* 登 録 番号 : “:[ 番 号 ]$:" 氏名 : “":[ 名 前 ]$:" TER: "; [FERIS 
2889 CLS:KLIST 1 3710 LPRINT* 生 年 月 日 : ”; 

2898 LOCATE 8, РЕМ" XO А #8 $98 м 理 " 5728 LPRINT MIDSCOKCNUSCLEEAE 日 ]$) ,5,4)+” 年 "WIDS(RKCNV$([ 許 生日 $), 9,4) 
2988 LOCATE 0, 3:PRINT" 登録 番号 :“:[ 番 号 ]$ +” Я "+АТСНТ$ (АКСМУ ( [BEE 879) ,4)+” B; 2 :”; 

2918 LOCRTE18, 3:PRINT" 氏名 :"; [名 前 ] を 5758 GOSUB 5578 

2928 LOCATE 8, 5:PRINT" 性 別 :": ІРЕРІП9 8748 LPRINT RIGHT$(OKCNUSCSTRS(NENDO ,40;"7r";" — ШЫ: "i Ufo AS 
2958 LOCATE 8, 5:PRINT" 生年 月 日 :"; 5758 LPRINT"'T : "; [郵便 番号 ] を 

2948 PRINT MID$RKCNV$〈[ 誕 生日 ]$),5,4+" 年 ": 3768 LPRINT" 都 道府県 市 : "; 
2958 PRINT MID$(RKCNV$〔 誕 生日 1$) ,9,4)+" A"; 5778 LPRINT" 町 村 プ 番地 
2968 PRINT RIGHT$(RKCNV$([ 誕 生 日]$) ,4>+” A” 5788 LPRINT" 下 宿 プ 代表 
2978 LOCATE 8, 7:PRINT" 幸 :":[ 郵 便 番 号 ]$ 3799 LPRINT" 電 話 番号 : 
2988 LOCRTE16, 7:PRINT" ға”; 3888 LPRINT" RAS : “:[ 備 者 ]$:" MER: ”; (MERI: 
| 2998 GOSUB 5578 | 3818 LPRINT:LPRINT:GOTO 3518 
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5828 "жауым 
3858 LPRINT""F"; (REESS 

3848 LPRINT [住所 1 J$ 

3850 LPRINT [住所 2]$ 

3868 LPRINT [住所 3]$ 

3878 LPRINT 

3888 LPRINT [名 前 ]$+" 様 " 

3898 GOTO 3518 

5900 "指定 DATA LI STEFF 

3910 WIDTH 88, 25: КЕҮй,”” 

5920 CLS4:FOR 1-1Т0 12:С(12-0:МЕХТ 

3938 LOCATE 18, &:PRIN"D A T A # E" 


5948 LOCRTE19, 1:PRINT"T 字 = 1. = RET" 
3950 LOCATE 8, 3: INPUT" 登 録 番号 : ":C( D 
5968 LOCATE 8, 4: INPUT” 氏名 ";CC 2) 
3978 LOCATE 8, 5:INPUT" 性 別 ";CC 3) 
5988 LOCATE 9, 6:ІМАЛ” ЖЖАН”С( 4) 
3998 LOCATE 8, 7:INPUT" 血液 型 ";CC 6) 
4000 LOCATE B, 8:INPUT" 郵便 番号 ":C( 5) 
9 


4010 LOCATE 0, 9: INPUT* 都 道府県 市 ":C( 7) 

4028 LOCATE 8,10: INPUT" 町 村 ン 番地 "iC 8) 

4830 LOCATE 9,11:INPUT" 下 宿 プ 代表":CC 9) 

4949 LOCATE 8,12: INPUT" 電話 番号 ":C(19) 

4058 LOCATE 8,13: INPUT” 備 者 ":C〈11) 

4068 LOCATE 8,14: INPUT” 職業 ":C(12) 

4078 LOCRTE9,16:PRINTT こ れ で いい で すか ?" 

4080 PRINT"[ 和 良い =RE T, Bv - npo —1^; 
4098 IF INKEY$C1) OCHR$(13) THEN. 3920 ELSE LPRINT 
4108 ‘ED AT АНТЕ 

4118 IF CC 1)=1THENLPRINT" о Ва : "; 88$ 

4128 IF СС 2» -1THENLPRINT" 
4130 IF СС 3) -1THEN PRINT" 
4148 IF СС 4)=1THEN_PRINT* 生年 月 日 "; ELSE 4198 

4150 LPRINT MIDSRKCNVW[ 誕 生日 】$),5,4)+" E^; 

4168 LPRINT MIDWRKCNV$([ 誕 生日 }$),9,4)+" Я”; 

4178 LPRINT RIGHT$〈RKCNV$([ 放 生日 】$,4)+" 日 "年齢": 

4188 GOSUB 5570 

4198 IF CC 4)=1THENLPRINT RIGHT$(ñKCNV$(STR$(NEN7)) ,4); "27" 
4208 IF CC 5)=1THEN_PRINT" һы: "пије 

4218 IF СС 6)=1ТНЕМРЕШМТ" w: 
4228 IF CX の =1THENLPRINT" 都 道府県 市 : ”; [住所 1 ]$ 
4258 IF CC 8)=1THENLPRINT" 町 村 ン 番地 : 
4248 IF СС 9)=1THENLPRINT" 下 宿 ン 代表 : 
4258 IF C(100 -1THEN PRINT" REGES : "i [電話 番号 ]$ 

4268 IF C(11) -1THENL PRINT" 備考 : ":[ 備 者 ]$ 

4278 IF C12)=1THEN_PRINT" 職業 : ": [職業]$ 

4288 LPRINT:LPRINT:GOTO 3518 

4298 DATA 検索 

4308 WIDTH 88.25 

4510 GOSUB 1988 

4528 CLS4:FOR 1=1Т0 12:1%(12-"а”:С(12-й:МЕХТ:СНЕ-й:СНя-й 
4338 RESTORE7288: GOSUB 6520 

4348 С612Е2 

4550 (ОСЯТЕ10, G:PRINTHO,"D А Т А % 3":CSIZE 

4368 GOSUB 7010 

4578 LOCATE 8, 2:PRINTCHR$(5); 

4588 INPUT" 登 録 番号 : ",D$〈1) 


4398 IFD$(1)<>"*"THENIFLENCD$(1)) >8THEN4379ELSE CHE= て HE+1:C(1)=1:GOTO 48 
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4408 GOSUB 7898 

4418 LOCRTE12, 4:PRINTCHR$(⑤) ; 

4420 INPUT" 氏 名 : ",D$(2) 

4438 1FD$(2) <>"»"THENIFLEN(D$ (2) ) >16THEN4419ELSECHE=CHE+1 :C(2)=1 
4448 GOSUB 7898 

4458 LOCATE 4, 5:PRINTCHR$⑤) ; 

4468 INPUT"PERI [1 = 8,72 ==] ",D$CDD 


4478 ІҒІ9(52<>7%"ТНЕМІҒІ%(5)-” 1 "THEND$ (5) =" 88" : CHE=CHE+1:C(3)=1ELSEIFDS 


(5) =" 2 "THEND$(3)=" 女 "CHE=CHE+1:C(③)=1ELSE4459 

4488 GOSUB 7090 

4498 LOCATE 0, 6:PRINTCHR$(5) : 

4500 INPUT" 生 年 月 日 (昭和) : ",D$CD 

4518 IFD$4)<>"*"THENIFLEND$(4))>12THEN4499ELSE CHE=CHE+1 :C〈4)=1 
4528 KEY B, CHR$(8HF4) 

4538 GOSUB 7090 

4540 LOCRTE18, 7:PRINTOHR$(5); 

4550 INPUT* 血 液 型 ",D$(6) 

4568 IFD$6)<>" ぇ "THENIFLEND$(⑥) )>4THEN4549ELSECHE=CHE+1:C(6)=1 
4578 KEY 8,CHR$(8HF5〉 

4588 GOSUB 7090 

4598 LOCATE 8, 8:PRINTCHR$(5); 

4608 INPUT* 郵 便 番号 : ",D$(5) 

4618 IFD$(5) <>" #"ТНЕМГ FLEN(D$(5)) >12THEN4599ELSECHE=CHE+1:C〈⑤5) =1 
4628 GOSUB 7898 

4650 LOCATE 6, 9:PRINTCHR$(5) ; 

4648 INPUT" 都 道府県 市 ",D0$CD 

4658 IFD$C?) O"*"THENI FLEN(D$ C2) >28THEN4639ELSECHE=CHE+1:C(?)=1 


4668 GOSUB 7898 
4678 LOCATE 6,19:PRINTCHR$ く 5) : 
4688 INPUT" 町 村 プ 番地 : ",D$CO) 


4698 IFD$(8)<>"*"THENIFLEN(D$(8) )>28THEN4679ELSECHE=CHE+1:C〈8)=1 
4788 GOSUB 7898 

4718 LOCATE 6,11:PRINTCHR$ く 5) ; 

4720 INPUT" FTE {EK : ”,0%(9) 

4758 12049) <>" ="ТНЕМИРСЕМ( $ (9) )>28THEN4719ELSECHE=CHE+1:C〈9) =1 
4748 GOSUB 7098 

4758 LOCATE 8,12:PRINTCHR$(5) ; 

4768 INPUT* 電 話 番号 : ",D$ (10D 

4778 IFD$CI8) O" s" THENIFLENCD$CL82) »58THENATS8ELSECHE-CHE : CC190 =1 
4788 GOSUB 7098 

4798 LOCRTE12, 15: PRINTCHR&(5) ; 

4898 INPUT" 備 考 : ”,D$(11) 

4810 IFDW(11)<>"*"THENIFLEN(D$(11))>34THEN4799ELSECHE=CHE+1:C(11)=1 
4820 GOSUB 7898 

4858 LOCATE12, 14: PRINTCHR$(5) ; 

4840 INPUT" ER : ",D$C12 

4858 IFD$C12) O"*"THENIFLENCD$C12)) >16ТНЕЧ485@Е1 ЗЕСНЕ-СНЕ+1 : C(12) 21 
4868 FORI-1T012: IFC(I)=1THEN 和 Mt1 

4879 NEXT 

4888 IFM-BTHENGOSUB1988: 60702120 

4898 KEYB, CHR$ (255) 

4988 LOCATE 6,16:PRINTT" こ れ で いい で すか ?" 

4918 PRINT"〔 良 い =RET, 悪 い = そ れ 以 外 の キー]〕": 

4928 IFINKEY$(1) <>CHR$(13)THEN 4319 

4938 IFC(1)=1THENRECORD=URL СКАСМУФ CD$ C1) ) ELSE4980 

4948 IF RECORD>8 AND RECORD<RECORDEND THEN GOSUB3119:GOSUB2679:GOSUB2870: 
RETURN 

4958 CLS:CFLRSH1 

4968 LOCATE 8, 4:PRINT“ 登 録 番号 が 規定 外 で す " 

4978 CFLASH: BEEP1 :PRUSE14 : ВЕЕРВ: СОТО 4318 

4988 GOSUB 5110 

4398 FORRECORD=1TORECORDEND- 1 : СНЯ-В: 605082670: 60585080 

5000 IFC(1)=1THENIFINSTR(RF$,D$(1))<>9THENCHR=CHR+1 

5010 IFC(2)=1THENIFINSTR(RB$,D$(2))<>9THENCHR=CHRT1 

5020 IFC(3)=1THENIFRC$=D$(3)THENCHR=CHR+1 

5838 IFC(4)=1THENIF INSTRCRD$, 0$ (4) ) <>ВТНЕМСНЯ=СНЯ+1 

5040 IFC(5)-1THENIF INSTR(RES, D$(5)) <>ВТНЕМСНЯ=СНЯ+ 1 

5858 IFC(6)=1THENIFINSTR(RF$,D$ く 6))=1THENCHF=CHF+1 

5868 IFCC?) -1THENIFINSTR(QGS, D$ C72) <>ВТНЕМСНЯ=СНА+1 

5878 IFC(8) -1THENIFINSTR(RH$, 0%(8) 2 <>ВТНЕМСНЯ=СНЯ+1 

5888 IFC(9)-1THENIF INSTR(RIS$, D$CO)) <>ВТНЕМСНЯ=СНЯ+1 

5898 IFC(10)=1THENIFINSTR(RJ$,D$(10)) <>ВТНЕМСНЯ=СНЯ+1 

5100 IFC(11)=1THEN1FINSTR(RK$,D$(11))<>9THENCHR=CHR+1 

5118 IFC(12)=1THENIF INSTR RL$, D$C12)) <>ВТНЕМСНЯ-СНЯ+1 

5128 ТЕСНЕ<>СНЯ THEN5159ELSEGOSUB2879:LOCRTE9,21:PRINT" 次 ペー ジ : SP A 
CE/ZMENU:ESC" 

5138 M$-INKEY$COD : [FM$-" "THEN LOCATE 8,21:PRINT $РЯСЕ$ (58) ; : СОТО 5150 
5140 IF M$-CHR$(RHIB) THEN 2128 ELSE 5158 

5158 NEXT 

5168 COLOR2:CFLASHI 

5178 LOCATE 9,21:PRINT" も う 該 当 DATA は あり ませ ん 。 

5188 BEEP1:PRUSEZU: REEP9:CFLHSH:LOCRTEB,21 :PRINTSPRCE き (38) ; 

5190 COLOR7:RECORD=RECORD-1 : GOTO2158 

5208 'F ILES 

5218 FORI=0TO?7:FFILE$(I)="":NEXT 

5228 FORI-8TO19:BFILE$CI)-"":NEXT 

5250 PRS=9:BFILE=1:LOCRTE 8,6 

5240 DEVI$"0:",16+PRS,FFILE1$,FFILE2$ 

5258 FORI=9T03 

5268 FFILESCD -MIDSCFFILE1$, 153241, 32) 

5278 NEXT 

5288 FORI=8T03 

5298 FFILESCI*4) -MIDSCFF ILE2$, 133241, 32) 

5308 NEXT 

5310 FORI=0TO? 

5520 IF MIDSCFFILE$CID, 15, 5) -"FIL" AND LEFT$CFFILESCID, 1) =СНАФС4) THEN 
GOSUB 5578 

5550 IF LEFT$(FFILE$(1) ,2) =CHR$(255,255) THEN RETURN 

5348 NEXT 

5350 PRS=PRS+1 

5368 СОТО 5248 

5378 BFILE$(BFILE)=MID$(FFILE$(I),2,13) 

5388 PRINT" ”+AKCNVS$(RIGHT$(” ”+RIGHT$(STR$(BF ILE) ,LENCSTR$(BFILE))-1), 
2)+":"”)+BFILE$(BFILE); 

5390 BFILE=BFILE+1 

5488 RETURN 

5418 ' "ファ イル 削除 

5428 CLS:KLIST9:CSIZE3 

5438 LOCATE 8, @8:PRINTHg8,”< <<< ファ イル 削除 >>>>" 

5448 GOSUBS299:[ フ ァイル 番号 ]=9 
5459 IF BFILE=1 THEN BEEP:GOTO 7570 
E LOCATE 6,28: PRINTCHR$(O) ; 


5478 INPUTT フ ァイル 番号 を 入力 し て くだ さい (取消 し =ー01 : ”, [2 7 4 л #1) 
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5488 IF [ファ イル 番号 ]=<9 THEN 1168 

5498 IF [ファ イル 番号 ]>BFILE-1 THEN BEEP:GOTO 5460 
5588 LOCRTE29,22:CFLRSH1 :PRINT BFILE$([ フ ァイル 番号 ]): :CFLRSH 
5518 PRINT" 削除 OK [Y/N] 7: 

5528 NF$-"": INPUT"",NF$: IF NF$=”” THEN 5420 
5558 IF NF$-"N" THEN 5428 

5540 IF NF$C"Y" THEN 5428 

5558 KILL "9:"+BFILESC[ フ ァイル 番号 ])+".FIL" 
5568 СОТО 5428 

5578 "年 齢 計算 

5588 NEN1=MRL (LEFTSCDATES, 2)) 

5598 NEN2-VAL (MI D$ (DATES, 4, 2)) 

5600 NEN3=VAL (RIGHT$(DATE$, 2)) 

5610 NEN4=VAL (МИ (KACNVS ( [REE E 1$) , 5, 2)) 
5628 NENS=VAL (MI D$ (KACNVS СГ АФ) , 7,25) 
5650 NEN6=URL(RIGHT$(KRCNV$([ 誕 生日]$) ,2)) 
5640 NEN7=NEN1-NEN4-25 

5658 IF NEN5>NEN2 THEN МЕМ?=МЕМ7-1 : 60705670 
5668 IF NENS=NEN2 THEN IF NEN6>NEN3 THEN МЕМ?-МЕМ?-1 
5678 RETURN 
5688 " 各 デ ー タ の 入力 
5690 GOSUB 7090 
5788 LOCRTE12, 4:PRINTCHR$(5); 

5710 INPUT" 氏 名 : ",D$CDD 

5720 IFD$(1)=""THEN GOSUB 1988:0М IDATA+1 RETURN 1169,2129 
5738 IFLENCD$(1))>16THEN5?799 ELSE 〔 名 前 |]]$=[$(1) 

5740 GOSUB 7898: GOSUB 6950 

5750 LOCATE 4, 5:PRINTCHR$ く 5) ; 

5768 INPUT" 性 別 [1 = 男 プ 2 =>] ”,D$(2) 

5778 IFD$(2)=" 男 ” OR D$(②)=" 女 "THEN [性 別 ]$=D$(2) : GOTO5799 
5780 IFD$(2)-" | "THENCPERITS-" SS"ELSETFD$C2) =” 2 "THEN[ 性 別 ]$=” 女 "ELSE5758 
5790 GOSUB 7898: GOSUB 6758 

5888 LOCATE 8, 6:PRINTCHR$(5); 

5818 INPUT" 生 年 月 日 (昭和) : ",D$CDD 

5820 ІНІ ЕМ(І%(522212ТНЕМ5800 ELSE [ 許 生 日 ]$=" 昭 和 "+D$(3) 
5850 KEY @,CHR$(8HF4) 

5840 GOSUB 7898: GOSUB 6950 

5858 LOCRTE16, 7:PRINTCHR$(5) : 

5868 INPUT* 血 液 型 ”,D$(5) 

5878 IFLEN(D$(5))» 4THEN5859 ELSE 〔 血 液 型 ]$=D$⑤〉 

5888 KEY 9,CHR$(8HFS) 

5890 GOSUB 7090 

5988 LOCATE 8, 8:PRINTCHR$⑤) : 

5918 INPUT" 郵 便 番 号 : ",D$CD 

5928 IFLEN(DW(4))>12THEN5999 ELSE [郵便 番号 ]$=D$〈4) 

5950 GOSUB 7090 

5948 LOCATE 6, 9:PRINTCHR$(5); 

5958 INPUT" 都 道府県 市 ",04(6) 

5968 ІҒІ ЕМ(0%(6)) >28ТНЕМ5940 ELSE [住所 1 3$-D$C6) 

5978 GOSUB 7090 

5988 LOCATE 6,10:РКІМТСНҒФ(5); 

5990 INPUT"BTTI/ Ætt : ",D$ CD 

6888 IFLEN(D$(7))»28THEN5988 ELSE [住所 21%-06(7» 

6010 GOSUB 7898 

6828 LOCATE 6,11:PRINTCHR$ く 5) ; 

6838 INPUT" 下 宿 プ 代表 : ", D$ COD 

6040 IFLENCD$8) > >28THEN6829 ELSE [住所 3 1$=D$(8) 

6058 GOSUB 7898: GOSUB 6850 

6868 LOCATE 8, 12: РКІМТСНАФС) ; 

6070 INPUT"WEREGE 8 : ",D$(O) 

6888 1Р1 ЕМ(0%(9)) >39THEN6969 ELSE [電話 番号 ]$=D$(9) 

6898 GOSUB 7898:GOSUB 6950 

6188 LOCRTE12,13:PRINTCHR$ く 5) ; 

6110 INPUT" 備 者 : ”,D$(10) 

6128 IFLEN(D$(19))>34THEN6S189 ELSE 〔 備 者]$=D$〈19〉 

6139 GOSUB 7090 

6148 LOCRTE12, 14:PRINTCHR$ く 5) ; 

6158 INPUT"MPIE : ",D$C1D 

6168 IFLENCD$(11))>16THEN6148 ELSE CMPIEIS-DSCIDD 

6178 RETURN 

6180 ' 各 デー タ 消 去 

6198 [名 前 ]$="" 

6208 [性 別 ]$="" 

6210 [ 許 生 日 ]$="" 

6220 СФЕ 19-”” 

6239〔 血 液 型 $="* 

6248 [住所 1 )$=”” 

6259〔 住 所 21$="* 

6268 [住所 3 ]$="" 

6279〔 電 話 番号 ]$=“”" 

6288 (備考 ]$=“" 

6298 (MDNOS-"" 

6300 ҒОКІ=17012:0% (1) ="”:МЕХТ 

6510 RETURN 

6528 "デー タ 入 力 に 関す る 説明 1 

6558 CLSB: SCREEN 0,0,0 


新規 追加 検索 


LO 


リス ト 2 “知人 情報 管理 . Bas” 


6348 CONSOLE 0,24,0,80 

6358 LINE(498, 12)-〈631 , 188) ,PSET, B. 

6368 CFLRSH1 

6578 LOCRTE62, 2:PRINT*" 間 思っ て 選択 し た " 
6388 LOCRTE62, 3:PRINT" 場 合 は な に も 入力 " 
6398 LOCRTE62, 4:PRINT" せ ず に RET の み " 
6488 LOCRTE62, 5:PRINT" 入 力 し て くだ さい " 
6418 CFLASH 

6428 LOCHTE62, б:РКІМТ"-------- й 
6458 LOCRTE62, ?:PRINT" 各 デー タ は 下記 の " 
6448 LOCRTE62, 8:PRINT" 入 力 文字 数 以内 で " 
6458 LOCATEG2, 9:PRINTYA 力 し て くだ さい " 


6468 (0САТЕ62,10:РЕКІМ”-------- i 
6478 CREVI 
БАВИ LOCHTEGZ, 11: PRINT" 入力 文字 数 : 全角 " 
6490 СКЕУ 
6588 1 ОСАТЕ62, 12: PRINT" Ка: өз” 
6518 LOCATEG2, 13: PRINT" 性 別 : із” 


6528 LOCRTE62,14:PRINT" 生年 月 日 : 8 字 " 
6558 LOCATEG2,16:PRINT" 郵便 番号 : 6 字 " 
6548 LOCATEG2,15:PRINT" 血液 型 : 22” 
6558 LOCRTE62,17:PRINT" 都 道府県 市 : 1432" 
6568 LOCRTE62,18:PRINT" 町 村 プ 番地 : 1432" 
6578 LOCRTE62, 19:PRINT" 下 宿 プ 代表 : 14 字 " 
6588 LOCATEG2,20:PRINT" 電話 番号 1532" 
6598 LOCRTE62,21:PRINT" 備考 : 172” 
6699 LOCATE62, 22: PRINT" M: вт”; 
6618 CONSOLE 0,24,0,61 

6620 RETURN 

6638 * デ ー タ 入力 に 関す る 説明 2 

6640 CONSOLE 8,24,8,88 

6658 CFLRSH1 

6668 LOCRTE62, 2:PRINT" 変 更 の 必要 が な い " 
6678 LOCRTE62, 3:PRINT" 場 合 は な に も 入力 ” 
6588 LOCATEG2, 4:PRINT" せ ず に RET の み " 
6598 LOCATEG2, 5:PRINT" 入 力 し て くだ さい " 
6798 CFLASH 

6718 CONSOLE 8,24,8,61 

6728 RETURN 

6738 "デー タ 入 力 に 関す る 説明 З 

6740 CONSOLE 9,24.9,89 

6758 CFLRSH1 

6768 LOCRTE62, 2:PRINT" 年 月 日 は , 8” 
6778 LOCRTE62, 3:PRINTT ウ ケタ で 入力 し て " 


6788 LOCRTE62, 4:PRINT" く だ さい 。 S 
6798 | ОСАТЕ62, 5:PRIN" Y YMMDD " 
6888 CFLRSH 

6818 CONSOLE 0,24,0,61 

6828 RETURN 


6838 "デー タ 入 力 に 関す る 説明 4 

6848 CONSOLE 0,24,0,80 

6858 CFLRSH1 

6868 LOCRTE62, 2:PRINT" な る べく 
6878 LOCATEG2, 3:PRINT" 市 外 局番 も ” 
6888 LOCATEG2, 4:PRINT" 入 力 し て くだ さい " 


6898 | ОСАТЕ62, 5:PRINT" " 
6988 CFLRSH 

6918 CONSOLE 0,24,0,61 

6920 RETURN 


6958 "デー タ 入 力 に 関す る 説明 5 
6948 CONSOLE 8,24,8,88 
6958 | ОСАТЕ62, 2:PRINT" "i 


6968 1 ОСАТЕб2, 3:PRIN” 入力 ミス の " 
6978 LOCRTE62, 4:PRINT^ k3 7" 
6988 LOCATEG2, 5:PRINT" w 
6998 CONSOLE 0,24,0,61 

7000 RETURN 


7818 "デー タ 入 力 に 関す る 説明 6 

7020 CONSOLE 9.24,9.88 

7838 LOCATEG2, 2:PRINT" 検 索 項 目 と せ ず に " 
7040 LOCATEG2, 3:PRINT" 無 指定 の 場合 は R" 
7858 LOCRTEG2, 4:PRIN"ETO4 1.” 
7868 LOCRTE62, 5:PRINT" て くだ さい 。 ki 
7878 CONSCLE 0.24,0,61 

7080 RETURN 

7090 "説明 アト リ ビ ュ ー ト 

7188 READ МО) 

7118 RDRS$=HEX$(9214+89*MOJ) 

7120 RDR1-UnL C'SH"«RIGHTS(RDRS$, 2) ) : ADR2=VAL C"8H"4LEFTS(ADRSS, 2)) 
7138 POKE &HEFB1,RDRI,RDR2,8H5E,23:CRLL 8НЕҒ0 

7140 HDRMS-HEX$(91354«8053MOJ) 

7158 RDMI-UAL C'8H" «RIGHTS САРАМ, 2) ) : ADM2=VAL C"&H"«LEFTSCRDRMS, 2)) 
7168 iF MOJ=0 THEN POKE 8НЕРВ1 , ADM1 , ADM2, 8НЗЕ, 15:СОТО 7188 
7178 POKE &HEFG1 , ADMI , ADM2 , &HSE, 7 

7188 CALL ЗНЕРаО 

7198 RETURN 


=“ 


175 


LO 
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7288 DATA 0.1.2,5.4,5.6.7,8.9,10,11 
7218 ' 7 7 4 ФАРЫ 

7220 WIDTH 88,25 

7230 KEY, "":CLS4:CSIZE2 

7248 (ОСАТЕ18, G:PRINTHO," 7 у 4 љар ЗЕ" 

7258 CSIZE 

7268 LOCRTE22, 4:PRINT" ど こと (登録 番号 1) " 

7278 LOCATE22, 5:PRINT" ど こ を (登録 番号 2) ” 

7288 LOCATE22, 6:PRINT" 入 れ 替 え し ます か ? ” 

7298 LOCRTE22, 8:PRINTCHR$ く 5): 

7500 INPUTY 登 録 番号 1 : ", [番号 11$ 

7510 IF[ 番 号 1]$=""THEN2126 

7520 IFURL[ 番 号 1]$) ЖЕСОВОЕМО OR URLC[ 番 号 1]$)<1 ТНЕМВЕЕР: 00707290 
7550 GET Н1,У6 (136-8119) 

7348 PUSH RAS, RB$,RC$,RD$ RES, КЕФ: GA$=RA$ 

7358 PUSH RG$,RH$,RI$,RJ$,RK$,RL$: GB$=RB$ 

7368 LOCATE22, 9:PRINTCHR$(5); 

7578 INPUT" 登 録 番号 2 : “,[ 番 号 2]$ 

7588 IF[ 番 号 2]$=""THEN7239 

7398 IFVAL( [3# 321$) >RECORDEND OR ЧА (1921$) <1 ТНЕМВЕЕР: 00707360 
7408 IF〔 番 号 2]$=〔 番 号 11$ THEN7239 
7410 GET H1,VHL([ 番 号 2]$) 

7428 LOCRTE22,12:PRINT" 登 録 番号 1 : 


7438 |ОСАТЕ22, 15: PRINT" 氏名 1 nm 
7448 LOCATE22, 14: PRINT" E $3HE &- 2 : "RR 
7458 LOCATE22, 15: PRINT" 氏名 2 : ";RB$;” S 


7468 LOCRTE22,17:PRINT" こ の 二 つ を 置き 換え し ます か ?" 
7478 LOCRTE22, 18:PRINTCHR$(5) ; 

7488 INPUT" è ОК (Y/N) : ”,YN$ 

7499 IFYN$-""ORYNS-"N"THEN?238 


7588 TAS=RA$:RA$=GA$ 
7518 PUT H1 , VAL (KACNVS (RAS) ) 

7528 POP RL$,RK$,RJ$,RI$,RH$,RG$ 

7558 РОР RF$,RE$,RD$,RC$, RB$, RAE: ВЯФ=ТЯ$ 

7548 PUT H1 , VAL (KACNVS(RA$) ) 

7558 GOSUB 6188 

7568 RECORD=VAL (KACNVS (КАФ) ) : RETURN 

7578 "NO FILE 

7588 CSIZE3:CFLRSH1 

7598 LOCRTE18,12:PRINTH98." フ ァイル は あり ませ ん " 

7600 CSIZE:CFLRSH 

7610 PRUSE 50 

7628 GOTO 1168 

7638 'ERROR 対 処 

7648 ТРЕРЯ=6ВТНЕММЕ: これ 以上 DA 人 TA は 入り ませ ん ":GOSUB7799:RESUME212 
7658 IFERR-73THENMES$-"7 U / 5 MOF F L INNE で す ":GOSUB7799:RESUME35 
99 š 

7668 MES$=* プ ログ ラム が 不 解 で す " 

7678 GOSUB 7700 

7688 ОМ ERROR СОТО 8 

7690 RESLME 

7788 WIDTH 48,25 

7718 (154 

7728 CSIZE1:CFLRSH1 

7758 LOCATE 4,12:PRINTR0,MES$ 

7748 BEEP1:PRUSE39: BEEP9 

7758 CFLRSH 

7768 RECORD=1 : RETURN 


X1 用 チェ ッ ワ サム ・ プ ログ ラム 


ダン プ ・ リ スト を 初め て 見 た と き , 私 は ゾッと し まし た -. 
1377; E RESI ПАТОНА 1 つの 間違い も な く 打 ち 込 む な 


AT. と ころ が チェ ッ ク サ ム と いう 親切 な プロ グラ ム が 
あっ た ん で すね ぇ . 足し 算 を と っ て 間違い を 発見 する な ん 


T, な ん て 自然 で 小 粋 な ん で し ょ う . 


初心 者 の 方 で チェ ッ ク サ ム を まだ 持っ て いな い 人 は た だ 


ち に 入力 し て くだ さい . すべ て は ここ か ら 始 まり ます . 
シス テム に 依存 せ ず , У НИЧИМ s 
プロ グラ ム で す (た だ し , 0018H, 0019H E EZ Sz k 
うに し て くだ さい . 通常 は モニ タ を 破壊 し な 
H 以 降 に 置く の が よい と 思い ます ). 
MON A で モニ タ を 起動 し て M コ マン ド で リス ト を 打 
ち 込 ん で くだ さい . この プロ グラ ム を 入力 する あな た は お 
そら く チ ェ ッ クサ ム を 全く 持っ て な 
の 目 で ユ つ 1] つの デー を サ ェ ッ ク し で くだ きい (а Е 
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にょ いで し ょ うか ら , 自分 


ュー タ に や ら せ る と いう 手 も あ る けど ). 後 で 悲惨 な め に あ 

わな いよ う に 入力 が 終わ っ た ら 必 ず セ ー プ し て с だ さい 
GEF000 で スタ ー ト し ます . 

еі боре Жаа S. 
НЕ, プリ ンタ に 出力 する 場合 に は [Y] を 押し ます . ダン プ *・ 
リス ト 表 示 中 に |SHIFT 4 BREAK で アド レス の 入力 に , 
も う 1 |5НІЕТ + |BREAK ニタ へ 飛び ます . 画面 の 
み の 出 力 で は 256 バイ ト 出 力 ご と に 一 時 停止 する の で 何 か 
キー を 押し て くだ さい . 

ЖБ, モニ タ を 正常 に ホッ ト ・ ス ター ト さ せる だ っ 
dB-BASIC で 使う & (ZFIFOH : 52H—50H, FIFCH : 
H 一 00H の よう に 変更 し て くだ さい . 
衣 プ ログ ラム エリ ア : F000H~F2C8H, スタ ッ ク お よび ワ 
ー ク ・ エ リア : F2C9ƏH—F309H, 実行 アド レス : F000H ($x 
送 後 は その 先頭 アド レス ). 


ss ЕЧ РАР а а] 


Ада ЖА +B +C 
F000 
F010 
F020 
F030 
F040 
F050 
F060 
F070 
F080 
F090 
F9A9 


F170 
F180 
Е190 
F1A0 
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Вен 


この 「『 漢 字 タ ー ミ ナル ・ プ ログ ラム 』 は , テレ スタ ー を 
は じ め と する 通信 情報 サー ビス に 対す る アク セス を 容易 に 
行なう こと が で きる よう に 設計 され た も の で す . 

プロ グラ ム は 漢字 ター ミナ ル ・ プ ログ ラム KTERM- 
ХІТ. BAS" k, 通信 デー タ の 作成 や 表示 な ど を 行なう フ 
ァイル 転送 ユー ティ リティ ・ プ ログ ラム “ЕТК-ХІТ. 
BAS" の 2 つ を 掲載 _ し て お り , 主 な 機能 は 次 の と お り で 
3. 

Ф 通信 用 プロ グラ ム “KTERM-X 1 T. BAS"O x 74; RE 

(1) 通信 時 の デー タ を ファ イル に 記録 する ファ イル 受信 
機能 (ダウ ン ロ ー ド ) に よっ て , 通信 終了 後に あら た 
め て その デー タ を 見 る こと が で きる . 

(2) あら か じ め デ ィ ス ク に 記録 し た ファ イル を , 通信 時 
に キー 入力 の 代わ り に 送信 する ファ イル 送信 機能 ( ア 
ッ プ ロー ド ) が ある 。. 

(3) 通信 パラ メー タ が 簡単 に 変更 で き , 使用 コー ド が 同 
様 で あれ ば , テレ スタ ー 以 外 の 情報 サー ビス に も アク 
セス する こと が で きる 。 

(4) 通信 中 に も ディ スク な どの ディ レク トリ を 見 る こと 
が で きる . 

(5) も う 1606 ХІ (また は 他 の パー ソナ ル ・ コ ン ピ ュ ー 
2) を 回 線 で 接続 し て , 相互 に デー タ の 送受 信 を する 
こと が で きる 。 

Ф ユー ティ リティ ・ プ ログ ラム “FTR-X1T. BAS" ОЖ 
な 機能 

(1) 通信 プロ グラ ム に より ファ イル 受信 し た デー タ を , 
CRT 表示 や プリ ンタ に 出力 する こと が で きる 。. 

(2) ファ イル 受信 し た デー タ や や 〒, 一 般 の デー タ , プログ 
ラム の ファ イル を コピ ー す る こと が で きる . 

(3) BASIC の プロ グラ ム ・ フ ァイル (アス キー 形式 ) か 
ら 行 番号 と 『"」 を 消去 し て , ファ イル 送信 用 の デー タ 
を 作る こと が で きる . 

(4) ファ イル 受信 し た デー タ に 行 番号 と 『』 を 付加 し , 
BASIC の プロ グラ ム ・ フ ァイル と し て 再編 集 す る こ 
と が で きる . 


2. 人 入力 方 法 


漢字 ター ミナ ル ・ プ ログ ラム (リス ト 1), ファ イル 転送 
ユー ティ リティ ・ プ ログ ラム (リス ト 2) を Xlturbo 用 の 
BASIC (CZ-8FB02 Ver.1.0) を 使っ て 打ち 込み . セー ブ 
し て くだ さい . ファ イル 名 は それ ぞ れ KTERM-X1T. 
BAS”, “ЕТЕ-ХІТ. BAS” と し て お いて くだ さい . 


3.X1turbo 本 体 の 起動 


Xlturbo ж, 通常 の シス テム ・ デ ィ ス ク を 使っ て 電源 投 
入 で 起動 する と, 起動 後 自 動 的 に 実行 きれ る 初期 設定 プロ 
グラ ム "Start up. Ba” の 中 の "NEWON4" が 実行 され 
る ため , コマ ンド が 制限 され , 本 プロ グラ ム の 実行 が で き 
ЖЖЖ» 

これ を 防ぐ た め に 電源 投入 に よる 起動 は | HELP | キー を 
押し な が ら 行 な っ て くだ さい . この と き [ HELP | キー は , 
電源 を 入れ て か ら 画 面 に NEWON と 表示 され , カー ソル が 
現われ る まで 押し 続け る 必要 が あり ます . NEWON と 表示 
され た ら そ の 後に 何 も 入 力 し な いで [ 恨 キ ー を 押し て くだ さき 
v. この よう に 起動 を すれ ば , コマ ンド の 制限 が 行なわ れ 
な いた だ ため , 本 プロ グラ ム の 使用 が 可能 に な り ま す . 


4 通信 プロ グラ ム の 近い 方 


4-1 #87075. "КТЕВМ-ХТ.ВАЗ" OH 


第 3 章 の 説明 の よう に BASIC を 起動 し , ディ スク ・ ド ラ 
470 (左側 ) に プロ ゲラ ム の 入っ た ディ スケ ッ ト を セッ 
ト し て "KTERM-XIT. BAS” を RUN し て くだ さい . 

プロ グラ ム は , 起動 後 自動 的 に 通信 設定 用 デー タ ・ フ ァ 
イル “бб Е. ОАТ” を 読み 込み に いき ます が , 通信 用 
デー タ ・ フ ァイル Е. БАТ” が まだ 作成 され て い 
な いた だ ため, 下 の よ うな メニ ュー が 表示 され ます . 


ター ミナ ル 設 定 デ ー タ が 正しく ディ スク か ら 読 め ま せ ん 
1. 再読 み 出し を する 
2. プロ グラ ム 初 期 値 を 設定 する 


17% 


То 


ЖІ 「KTERM-X1T.BAS』 の 送受 信 に 使用 で きる コー ド 
コー ド の 種類 | コー ド 名 | 16 進 コー ド | 


ベル を 鳴ら す 
ー ソ ル を 1 文字 分 前 に 戻す 
水平 タダ ビュ レー ショ ン を 行なう 

ライ ン フ ィ ー ド を 行なう 

行 の 左端 に 戻る / 改 行 する 
何 も し な い /BS と し て 処理 
シフ ト ・ ア ウト ーー 
シフ ト ・ イ ン 
送信 再開 要求 ト F 一 これ ら の コー ド は プロ グラ ム が 制御 用 に 使用 する 
送信 中 断 要求 
漢字 イン 
漢字 アウ ト — 


アス キー・ コ ー ド の 英 数 字 ・ 英 記号 
詳細 は X1 の 『BASIC REFERENCE MANUAL」 参 照 


JIS コ ー ド の カナ 文字 ・ カ ナ 記 号 
詳細 は X1 の 『BASIC REFERENCE MANUAL Ја 


シフ ト JIS 漢 字 コ ー ド の 1 バイ ト 目 
詳細 は X1 の 『BASIC REFERENCE MANUAL, FR 


※ こ の 表 に 記載 の な い コ ー ド は , 送信 や 受信 の 表示 が で きま せん . 

※ 備 考 に 2 つの 説明 が ある も の は 設定 変更 モー ド て 指定 が 可能 で す 

※ カ ナ ・ コ ー ド は 設定 変更 に より , Sl, SO コー ド を 使用 し て の 通信 も 可能 で す 

※ 漢 字 コ ー ド は 設定 変更 に より , JIS 漢 字 コ ー ド を 使用 し て の 通信 も 可能 で す . 

※ シ フト JIS 漢 字 コ ー ド の 1 バイ ト 目 に 続く コー ド は 無 条 件 に 漢字 コー ド の 2 バイ ト 目 と し て 扱わ れ ま す . 


| 3. プロ グラ ム を 中 断 する | を 行 を うこ と を 主 日 的 と し て 設計 され て お り , 送受 信 に 使 
用 で きる ユー ド は 表 1 の と お り で す 


SIT BALATA, プロ グラ ム の 中 の DATA X a ت‎ 
に 記録 きれ た テレ スタ ー の 設定 デー タ が , ディ スク ・ フ ァ 4 3 ミナ ル 設 定 の 変更 


イル の 代わ り に 読み 込ま れ , 初期 メニ ュー を 表示 し ます . 通信 プロ グラ ム の 初期 メニ ュー( 4-1 参照 ) TIAA A 
通信 用 デー タ ・ フ ァイル の 作成 法 は 4- 3 『 タ ー ミ ナル 設定 力 す る と 画面 が クリ ア さ れ て , ター ミナ ル 設 定 変更 モー ド 
の 変更 」 を 参照 し て くだ さい . な お , この メニ ュー て 1] を に 移り ます . E, ディ スク な どか ら 読 み 込ん だ ター ミナ 
選択 する と 再度 ディ スク の 読み 込み を 行ない , [3c ル 設 定 デ ー タ に エラ ー が あり , 設定 が で き な い 場合 も , 自 
BASIC へ 戻り £3. 動 的 に この モー ド に な り ま す . 
また だ , 通信 設定 用 デー タ ・ フ ァイル パパ 通信 設定 . ここ で 現在 の カー ソル 位置 は 点滅 文字 で , 各 項 目 の 現在 
DAT”, あるいは プロ グラ ム 中 の DATA 文 に 記録 きれ た の 設定 は 反転 文字 で 表示 され, エラ ー に より 未 設定 の 項目 
デー タ を 読み 込ん だ と き に , その デー タ に エラ ー が あっ た は その 項目 名 が 点 減 文 字 で 表示 され て いま す . 
場合 、「 タ ー ミ ナル 設定 デー タ に エラ ー が あり ます 」 と 表示 項目 は 全部 で 13 あ り , その うち の 9 項目 が は じ め に 表示 
ан, [ キ ー を 押す と 初期 メニ ュー を 表示 せ ず に , ター ミ ан, 残り の 4 項目 の 表示 と は | キー を 押す こと で 交互 に 
ナル 設定 変更 モー ド に 移り ます (4-3 参照 ). 切り 代わ り ま す . 
各 通 信 パ ラメ ー タ の 設定 後 , 下 の よ うな 初期 メニ ュー を 設定 の 変更 は , 変更 し た い 項 目 の 設 定 し た い 条 件 に カー 
表示 し ます . ソル を 合わ せる だ け で よく , カー ソル の 移動 は カー ソル ・ 
キー で 行ない ます . 変更 し な い 項 目 は その まま に し て お け 
ター ミナ ル ・ プ ログ ラム 初期 メニ ュー ば 変更 きれ ませ ん が , エラ ー に より 未 設 定 の 項目 (項目 名 
1. 通信 開始 が 点 減 し て いる も の ) は , 必ず 設定 を し て くだ さい. 
2. ター ミナ ル 設 定 変更 設定 を 終了 し て か ら [S| キ ー を 押す と 表示 の 設定 を 新しい 
3. ** T 設定 デー タ と し て 読み 込み ます . この と き 「 新 デー タ を デ 
ィ ス ク に 登録 し ます か (Y/N) …」 と 表示 され ます の で , [Y] 
ここ で , 同 罰 と 入力 する と 通信 モー ド に ., BALAN? キー また は INI キ ー を 押し て くだ さい . どちら の キー を 押し 
る と 通信 や 表示 に 関す る 設定 の 変更 モー ド に 移り ます . ま た 場合 で も 設定 変更 は 行なわ れ ま す が , [Y| キ ー を 近 し た 場 
72, [3| 罰 と 入力 する と プロ グラ ム を 終了 し BASIC の コマ 合 は さき さらに, ディ スク 上 に ファ イル УЕ. DAT" が 
ンド 待ち に 戻り ます . 作成 され , 新 デ ー タ が 書き 込ま れ ま す . 次 回 の プロ グラ ム 
通信 用 プロ グラ ム "КТЕВМ-Х1Т. BAS" (4, グラ フィ 起動 時 に は , 自動 的 に この ファ イル の デー タタ で 初期 設定 が 
ッ ク ・ メ モリ 0 と 1 の 両方 を 外部 記憶 装置 と し て 初期 化し 行なわ れ ま す . 
て 使用 し ます . この た め , グラ フィ ッ ク ・ メ モリ に 記録 き 設定 の 変更 を 中 止 し た い 場合 は [回 キー を 押す と , その と 
れ て いた デー タ は 消去 され て し まい ます の で 注意 し て くだ き の 表 示 の 設定 は 無視 きれ て 変更 は 行なわ れ ま せん . 
さい . な お , 新 デ ー タ を ディ スク に 登録 する 場合 は ,。 ドラ イブ 
4-2 使用 コー ド に つい て 0 に 書き 込み 可能 な ディ スケ ッ ト が セッ ト さ れ て いる こと 
を 確認 し て か ら キ ー を 押し て , 書き 込み 処理 が 終了 する ま 
本 プロ グラ ム は , テレ スタ ー の 通信 情報 サー ビス と 通信 で は ディ スケ ッ ト を 取り 出さ な いで くだ さい . 書き 込み 中 
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に エラ ー が 発生 する と 決 の よう な メッ セー ジ が 表示 され ま 
7. 


ディ スク へ の 書き 込み が 出来 ませ ん 
1. 再 書 き 込 み を する 
2. 書き 込み を 中 止 する 
3, プロ グラ ム を 中 断 す る 


ここ で エラ ー の 原因 が , ディ スク の セッ ト し 忘れ や , 7 
イト ・ プ ロ テ ク ト ・ シ ー ル が 貼っ て あっ た 場合 な ど で あ れ 
ば , 正しく ディ スケ ッ ト を セッ ト し て [ 以 と 入力 すれ ば デ 
ィ ス ク へ の 再 書 き 込 み が 行 な われ ます . 

また , 書き 込み 可能 な ディ スク が 手元 に な い 場 合 な ど は , 
[人 | 錠 と 入力 すれ ば 書き 込み を 中 止 し て プロ グラ ム を 続行 
L, [3| 以 で は プロ グラ ム を 中 断 し て BASIC の コマ ンド 待 
ち に 戻り ます . 

な お , 書き 込み 中 に ディ スク を 取り 出し た よう な 場合 は , 
どの 処理 を 選ん で も 正常 な プログ ラム の 実行 (ちあ るい は 終 
Т) が 出来 な い 場 合 が あり ます . その よう な 場合 の エラ ー 
復帰 は , 1 度 電源 を 切る な ど で シ ステ ム の 再起 動 を する 以 
外 に 方 法 が な いこ と も あり ます の で 注意 し て くだ さい . 


4-4 ター ミナ ル の 設定 項目 に つい て 
ター ミナ ル 設 定 変更 モー ド で は , 通信 の 条件 と デー タ の 
表示 に 関す る いく つか の 項目 の 設定 を 変更 する こと が で き 
る よう に な っ て いま す . 
(1) ボー レー ト 
通信 速度 な を など と も 呼ば れ , 1 秒間 に 送信 (また は 受信 ) 
され る ビッ ト 数 の こと で す . 単位 は ボー(bit/ 秒 〕 で , 300 
ボー と いえ そば 1 秒間 に 300 ビ ッ ト の 信号 が 送 ・ 受 信 さ れる 
серу. 
(2) パリ ティ ・ ビ ピット 
2 マリ ティ ・ ピ ッ ト は , デー タ ・ ビ ピッ ト が 正しく 伝送 さき 
れ だ た か を チェ ッ ク す る た め の も の で , 偶数 パリ ティ と 奇 
数 パリ ティ の 2 つの 方 式 が あります. この 違い は パリ テ 
ィ の 計算 方 法 に あり , 全 デ ー タ ・ ビ ピッ ト と パリ ティ ・ ビ 
ッ ト の 中 に ある 1 の 状態 の ビッ ト の 合計 が , 偶数 に な る 
よう に パリ ティ ・ ビ ッ ト を 付加 する 方 式 が 偶数 パリ ティ , 
奇数 に な る よう に 付加 する 方 式 が 奇数 パリ ティ で す . 
2 РД sS Ey PEE рута Рут デー 
タ 長 を 7 ビッ ト に 指定 し た 場合 の み 有 効 と な り ま す が , 
その 場合 で も 「『 使 用 し な い 』 を 指定 すれ ば パリ ティ ・ チ 
ェ ッ ク は 行なわ れ ま せん . 
(3) デー タ ・ ビ ッ ト 長 
通信 デー タ の ビッ ト 長 は 7 ビ ピット と 8 ビット の いずれ 
か を 指定 する こと が で きま す . 
(4) スト ッ プ ・ ビ ッ ト 長 
1 組 の 通信 デー タ の 終わ り を 示す スト ッ プ ・ ビ ッ ト の 
ビッ ト 数 を 指定 する も の で , 1 ビット, 1УЕУҺ, 2 
ビッ ト の 3 種類 が 選べ ます . 
(5) 通信 制御 方 式 
デー タ 通 信 で は , 何ら か の 原因 に より 受信 側 か ら 送 信 
側 ヘ へ デー タ の 送信 中 止 を 要求 する 必要 が 生ずる こと が あ 
り ま す . この 送信 中 止 要 求 の 方 法 と し て は ,・X-ON, X- 
OFF コー ド を 受信 側 か ら 送 信 側 へ 送る 方 式 と , RS-232C 
の 制御 用 信号 線 を 使用 する 方 式 が あり , 本 プロ グラ ム で 
は 前 者 を 『X パラ メー タ 」, 後者 を 『RTS 信号 」 と し て 
指定 し ます . な を お, 『 使 用 し な い 」 を 選ん だ 場合 これ ら の 
制御 は 行なわ れ ま せん . 
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(0 S パ ラメ ー タ 
デー タ 長 を 7 ビッ ト に 指定 し て ,. カナ と カナ 記号 の コ 
ー ド の 通信 を 行なう に は , 英字 と カナ の 切り 代わ り を 表 
わす , 51, SO コー ド を 使用 し ます . 本 プロ グラ ム で は , 
この コー ド を S フ パラメータ と 呼び これ を 「『 使 用 する 』 
か 『 使 用 し な い 』 か の 指定 が で きま す . デー タ 長 を 8 ビ 
ッ ト に し た 場合 は この 設定 は 意味 を も ち ま せ ん . 
(7) CR 送信 処理 
キー ボー ド の [キー を 押し た と き に , CR コー ド の み 
を 送る か , CR コー ド と LF コー ド を 送る か を 指定 し ま 
(8) CR 受信 処理 
回 線 か ら CR コー ド を 受信 し た 場合 に , 一 般 の CR の 
動作 (カー ソル を 左端 に 戻す を する か , CR+LF の 動 
作 (改行 する ) を する か を 指定 し ます . 
(9) 漢字 コー ド 
Xlturbo の 内 部 で は , シフ ト JIS 漢字 コー ド を 用 いて 
漢字 の 処理 を 行なっ て いま す が , 通信 回 線上 で 使用 する 
コー ド は , JIS と シフ ト JIS の 漢字 コー ド を 選択 する こ 
と が 可能 で , その 指定 を 『JIS」『 シ フト JIS」 で 行ない ま 
3. 
40 ロー カル ・ エ コー 
ロー カル ・ エ コー 機能 は , キー ボー ド や ファ イル の 内 
容 を 送信 する 場合 に , 送信 と 同時 に その デー タ を 画面 に 
表示 する 機能 で す . 全 二 重 回 線 を 使用 し て いて , 送信 し 
た デー タ が , 相手 側 か ら 送 り 返 され て くる 場合 は 『 し な 
い 』 を , そう で な い 場 合 ( 半 二 重 回 線 使用 時 や 他 の X1 と 
の 通信 の 場合 ) は 『 す る 』 を 指定 し て くだ さい . 
(0 CRT 解像度 
Xlturbo (2, 専用 の ディ スプ レイ ・ テ レビ な どの 高 解 
像 度 モ ニタ を 使用 し て いる 場合 は 『 高 解像度 」 を, そう 
で な けれ ば 『 標 準 解像度 」 を 指定 し ます .『 高 解像度 」 で 
は 縦 が 24 行 , 『 標 準 解像度 」 で は 縦 が 11 行 で 表示 され ま 
す . 
0) 漠 字 の 消去 
Xlturbo で は , 音 訓 辞 書 や シス テム ・ ユ ー ザ ー 辞 書 を 
使用 し て , 比較 的 簡単 に 漢字 の 入力 を 行なう こと が 可能 
で す . 本 プロ グラ ム は 辞書 の 併用 が 可能 で , キー 入力 さ 
れ た 漢字 の コー ド も , 英 数 字 や カナ な ど と 区 別 す る こと 
な く 送 信 で きま す の で , 漢字 の 入力 ミス を 訂正 する 必要 
も 生じ し ます. た だ し , 漢字 コー ド は 2 バイト で 構成 され 
て いま すか ら 通 信 の 相手 に 合わ せ て 漢字 の 消去 方 法 を 設 
定 し な く て は な り ま せん . 
この 項目 で , TBS 1 回 』 を 指定 する と BS コー ド 1 回 
<, FBS 2 и], を 指定 する と BS コー ド 2 回 で 漢字 1 字 
の 消去 を 行なう よう に 設定 され ます . な お , BS コー ド は 
[ DEL | キー を 押す こと て で 送信 され ます . 
43 DEL コー ド 処 理 
Xlturbo で は , DEL コー ド (&H7F) を キー ボー ド か 
ら 入 力 し て 送信 する こと は で きま せん が , FM- 7 な ど と 
通信 を 行なう 場合 は , この コー ド が 受信 きれ る 可能 性 が 
あり ます . 
この 項目 で 『BS と し て 処理 』 を 指定 し て お く と , 受信 
し た DEL コー ド は BS コー ド に 変換 され て 表示 や ファ 
イル 受信 処理 が 行なわ れ ま す . た だ し , 本 来 の DEL コー 
ド の 表示 処理 は で きま せん . まだ, ファ イル 送信 時 に , 
ファ イル 中 に DEL コー ド が 存在 し た 場合 も BS コード 
に 変換 され て 送信 さき され ます . 『 何 も し な い 』 を 指定 し た 場 
合 は , DEL コー ド は 無視 され , 表示 や ファ イル 送信 ・ 受 
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信 な どの 処理 は 行なわ れ ま せん . 


4-5 デー タ の 通信 

通信 プロ グラ ム の 初期 メニ ュー( 4-1 参照 ) で , [UAE 
入力 する と 通信 モー ド に 移り ます . 画面 が クリ ア さ れ , メ 
ッ セ ー ジ が 表示 され る と 通信 開始 で す . 

通信 が 開始 され る と , キー ポー ド か ら 入 力 し た 文字 の コ 
ー ド は 通信 回 線 に 出力 され , ロー カル ・ エ コー (4-4・⑩ 
参照 ) を 『 す る 』 に 指定 し て あれ ば , 同時 に 画面 に も 表示 
され ます . また だ , 通信 回 線 で 受信 され た 文字 デー タ は ロー 
カル ・ エ コー の 指定 と は 無関係 に 画面 に 表示 され ます . 
送 ・ 受 信 で きる 文字 は 英 数 字 ・ 英 記号 ・ カ ナ ・ カ ナ 記 号 ・ 
漢字 コー ド で , プロ グラ ム は 音 訓 , シス テム , ユー ザー の 
各 辞 書 を 併用 する こと が で きま す の で , キー ボー ド か ら 漢 
字 を 入力 し て の 通信 も 可能 で す . 各 コ ー ド お よび 特種 コー 
ド に つい て は 4-2『 使 用 コー ド に つい て 」 を 参照 し て くだ 
さい . 

また , 通信 一 ド で は プレ ー ク 送信 , ディ レク トリ 表示 , 
ファ イル 受信 , ファ イル 送信 な どの 特殊 機能 が 使用 可能 で , 
効率 的 な 通信 を 行なう こと が で きる よう に な っ て いま す . 


4-6 ブレ ー ク 送信 機能 


通信 モー ド で |F2 | キー を 押す と , 約 巡 秒間 プレ ー ク 信号 
の 送信 を 行ない ます . 

プレ ー ク 信号 は , X1turbo 内 部 の 通信 制御 用 LSI を 直接 
操作 し て 送信 する た め , 送信 中 の デー タ な ど が 消滅 する 可 
能 性 が あり , タイ ミン グ に よっ て は 通信 異常 を 発生 する こ 
と が あり ます の で 注意 し て くだ さい . 


4-7 ディ レク トリ 表示 機能 

通信 モー ド で [F3 | キー を 押す と , ディ レク トリ 表示 
(BASIC の FILES 表示 ) 機能 の メニ ュー を 表示 し て 入力 
待ち に な り ま す . ここ で , デバ イス を 番号 で 指定 する と , 
その デバ イス の ディ レク トリ の 内 容 が 画面 に 表示 され ます . 
番号 に 対応 する デバ イス は 決 の よう に な っ て いま す . 
lees ТАА» gw 

етн TARZ $ FATI 

Зе. グラ フィ ッ ク ・ メ モリ 0 

4c] グラ フィ ッ ク ・ メ モリ 1 

AB, この デバ イス の 番号 入力 時 に 何 も 入 力 し な いで 了 連 
キー を 押す と , 表示 を 行なわ ず に 通信 モー ド の 通常 状態 へ 
戻り ます . 

指定 し た デバ イス の ディ レク トリ が 正常 に 読み 込め な い 
場合 , 読み 込み の 異常 を 示す メッ セー ジ が 表示 され 入力 待 
ち に な り ま す . ここ で , [ 罰 と 入力 する と デバ イス の 再読 
み 出 し が 行なわ れ , [2] 以 で は 読み 出し (ディ レク トリ 表示 ) 
を 中 止 し て 通信 モー ド の 通常 状態 へ 戻り ます . 


4-B ファ イル 受信 (ダウ ン ロ ー ド ) 機 能 


ファ イル 受信 機能 と は , 通信 回 線 か ら 受 信 し た デー タ を 
ファ イル に 記録 する 機能 で す . 通常 の 通信 で は , 受信 デー 
タ は 画面 に 表示 され , スク ロー ル に より 画面 か ら は み 出 し 
た デー タダ は 消 を えて し まい ます 。 そこ で , この ファ イル 受信 
機能 に よっ て ファ イル に デー タ を 記録 し て お け ば , 通信 終 
了 後 に 改め て その 内 容 を 見 た り , プリ ンタ に 出力 する こと 
も 可能 と な り , 同 し データ を 何 回 も 受信 する 無駄 を 省く こ 
と が で きま す . 

通信 モー ド で [F4 | キー を 押す と , グラ フィ ッ ク ・ メ モリ 
の 空き クラ スタ 数 を 表示 し て , ファ イル 受信 設定 の 入力 待 
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ち に な り ま す . ここ で , ПІМЕАЛФ 57292752: 
メモ リ 0 が , [2|[ 世 で は グラ フィ ッ ク ・ メ モリ 1 が ファ イル 
受信 の 記録 デバ イス と し て 選ば れ ま す . また , 何 も 入力 せ 
ず に [キー を 押す と ファ イル 受信 の 設定 は 行なわ れず に , 
通信 モー ド の 通常 状態 へ 戻り ます . 本 プロ グラ ム で は , フ 
ァイル 受信 の デー タ は 1 度 グ ラフ ィ ッ ク ・ メ モリ に 記録 さ 
れ , 通信 終了 処理 (4 -10 参 照 ) で その デー タ ・ フ ァイル を 
ディ スク に 転送 する よう に な っ て お り ま す の で , デー タ を 
直接 ディ スク に 記録 する こと は で きま せん . 

グラ フィ ッ ク ・ メ モリ の 指定 を する と , 続け て ファ イル 
名 を 要求 する メッ セー ジ が 表示 され ます の で , 受信 デー タ 
を 記録 する ファ イル の ファ イル 名 を 入力 し て くだ さい . こ 
の と き 何 も 入力 し な いで [ 包 キ ー を 押す と , グラ フィ ッ ク ・ 
メモ リ の 指定 に 戻り ます . 

ファ イル 名 が 正常 に 指定 され る と ファ イル 受信 の 設定 は 
終了 し , 以後 通信 回 線 に 受信 され 画面 に 表示 され る デー タ 
は 設定 し た ファ イル に も 記録 きれ ます . ファ イル 受信 を 終 
了 し た い 場 合 は も う 1 廣 F4 |] キー を 押し て くだ さい . 

ファ イル 名 の 指定 で は 次 の よう な エラ ー・ メ ッ セ ー ジ が 
で る こと が あり ます . 

⑪) 同 名 の ファ イル が あり ます 

(2) フ ァイル 名 の 指定 に エラ ー が あり ます 

3) 受信 フ ァイル の 設定 が で きま せん 

空き クラ スタ 数 等 を 確認 し て くだ さい 

(1) は 指定 し た グラ フィ ッ ク ・ メ モリ に , 同じ 名 の ファ イ 
ル が ある 場合 で , [ 凡 と 入力 する と ファ イル 名 の 入力 に 戻 
り , |2| 以 で は すでに 書き 込ま れ て いる デー タ の 後ろ に 続け 
て デー タ が 書き 込ま れる よう に 設定 が 行なわ れ ま す . 

(2②) は ファ イル 名 が 長 す ぎる な どの エラ ー で , 自動 的 に フ 
ァイル 名 の 入力 に 戻り ます . 

(3) は グラ フィ ッ ク ・ メ モリ に 空き エリ ア が 無く , 新しい 
ファ イル が 生成 で き な い 場合 な ど で , グラ フィ ッ ク ・ メ モ 
リ の 指定 に 戻り ます . 

ファ イル 受信 を 設定 し た まま 大 量 の デー タ を 受信 し た り , 
グラ フィ ッ ク ・ メ モリ に 空き クラ スタ の 少 を い 状 態 で ファ 
イル 受信 を 行なう と メモ リ が 不足 し て 記録 不能 に な り , F 
記 の よう な メッ セー ジ が 表示 され る こと が あり ます 
(メメ メメ は 設定 し た ファ イル 名 ). 


ファ イル 受信 用 メモ リ が オー バー・ フ ロー し まし た 
ファ イル 受信 を 強制 終了 し ます File name: X X X Xx 
この ファ イル の 内 容 は 保証 され ませ ん の で 注意 し て くだ 
さい 


この 場合 , すでに オー バー・ フ ロー が 発生 し て いる た だ ため, 
ファ イル 受信 の 設定 は 強制 的 に 解除 きれ ます が , その 記録 
の 内 容 が 正しい 保証 は あり ませ ん . オー バー・ フ ロー の チ 
ェ ッ ク は 事前 に 行なっ て いま せん の で , 空き クラ スタ が 少 
な い 場 合 は 注意 し て くだ さい . FB, 1 クラ スタ は 4 K< 
イト (漢字 で 約 2000 文 字 ) の 容量 で す . 


4-9 ファ イル 送信 (アッ ブロ ー ド ) 機 能 


ファ イル 送信 と は , ファ イル に 記録 きれ た デー タ を 通信 
回 線 に 送出 する 機能 で す . 

通常 の 送信 で は , 送信 する デー タ は キー ボー ド か ら 入 力 
を 行ない ます が , 大 量 の デー タ を 送信 する 場合 は 時 間 が か 
か り , キー の タイ プ ・ ミ ス な ども 避け られ ませ ん の で , 通 
信 回 線 の 使用 効率 が 悪く な り ま す . また , 複数 の 相手 に 同 
し デー タ を 送る 場合 な ど , その つど 入力 を し な く て は な り 


ませ ん . ファ イル 送信 で は , あら か じ め デ ィ ス ク な ど に 記 
録 さ まれ た デー タ を 送信 する た め , 大 量 の デー タ を 送る 場合 
で も 時 間 の 無駄 が 少な く , 同じ し データ を 何 回 も 送信 する こ 
と が 簡単 に 行なえ ます. 

通信 モー ド の 通常 状態 で 、[F5 | キー を 押す と , 送信 する 
ファ イル 名 を 要求 する メッ セー ジ を 出力 し て , ファ イル 送 
信 の 入力 待ち に な り ま す . ここ で , 送信 する デー タ を 記録 
し た ファ イル の ファ イル 名 を 入力 する と , その ファ イル か 
らら データ を 読み , 通信 回 線 に 送信 し ます . ファ イル 名 の 指 
Е, た と そえ ば ドラ イブ 0 に セッ ト し た ディ スク に 記録 さ 
れ て いる "Love Letter. ПАТ” と いう ファ イル な ら 0 : 
Love Letter. DAT [Я (先頭 の 0 : は 通常 省略 が で きま 
4) EL, ドラ イブ 1 の ディ スク に 記録 きれ て いる “感想 
X. MAL" と いう ファ イル な ら 1 : 感想 文 . MAL ЛЕ, 
入力 し ます . この と き 何 も 入力 し な いで 軌 を 押す と , ファ 
イル 送信 を 行なわ ず に 通信 モー ド の 通常 状態 に 戻り ます . 
ファ イル 送信 で 指定 する ファ イル は , アス キー 形式 で セ 
ー ブ さ れ て いる 必要 が あり (送信 ファ イル の 作成 方 法 は 6 
- 2 参照 )、 本 プロ グラ ム で 使用 で きる コー ド (4-2 参照 ) 
以外 の コー ド は , ファ イル 中 に 存在 し て も 無視 され 送信 さ 
れ ま せん . 

ファ イル の 送信 は 指定 し た ファ イル の 内 容 を すべ て 送出 
する まで 行なわ れ , 読み 出す デー タ が な く な る と 自動 的 に 
通信 モー ド の 通常 状態 に 戻り ます . 

また , ファ イル の 送信 中 に [ ESC | キー を 押す と , 送信 を 
一 時 停止 し て キー 入力 待ち に な り ま す . この と き [ ESC |+ 
ー 以 外 の キー を 押せ ば 送信 が 再開 され , も う 11 ESC |> 
ー を 押す と ファ イル 送信 を 中 断 し , 通信 モー ド の 通常 状態 
に 戻り ます . 

жы, ファ イル 受信 中 の 場合 は ,「 フ ァイル 受信 処理 中 に 
つき ファ イル 送信 で きま せん 」 と 表示 され ファ イル 送信 は 
で きま せん . 

ファ イル 送信 処理 の エラ ー に は , ファ イル 名 指定 時 の エ 
ラー と , 送信 実行 時 の エラ ー の 2 種類 が あり ます . この 内 


ファ イル 名 指定 時 の エラ ー に は 決 の よう な も の が あり ます . 


(1) 指定 し た ファ イル が 見 つか り ま せん 

(2) デ ィ ス クリ プ タ 指 定 に 誤り が あり ます 

(3) 入 出力 装置 に 異常 が あり ます 

(4) フ ァイル が オー プン で きま せん 

(1) は 指定 し た ファ イル が 存在 し な か っ た 場合 , (2) は デバ 
イス 名 や ファ イル 名 な ど に エラ ー が ある 場合 , (3) は ディ ス 
ク が セッ ト さ れ て いな い 場 合 な ど に 出力 され ます . uui; 
記 の 3 つ 以 外 の 理由 で エラ ー と な っ た 場合 で , 以上 の 4 > 
は いずれ も ファ イル 名 の 再 入力 に 戻り ます . ファ イル の デ 
ー タ を 送信 中 に エラ ー が 発生 する と 「 送 信 フ ァイル が 正 し 
く 読 め ゆま せ ん 」 と 表示 され て , ファ イル 送信 が 強制 的 に 中 
断 さ れ , 通信 モー ド の 通常 状態 に 戻り ます . 


4-10 通信 モー ド の 終了 

通信 モー ド を 終了 する 場合 . それ まで に ファ イル 受信 で 
記録 し た ファ イル を グラ フィ ッ ク ・ メ モリ か ら デ ィ ス ク へ ヘ へ 
転送 する 必要 が あり ます . その た め , この 通信 終了 処理 は 
必ず 行なう 必要 が あり ます . 

通信 モー ド の 通常 状態 で , [FT ] キ ー を 押す と 「 通 信 を 終 
了 し て よい で すか 」 と メッ セー ジ を 表示 し ます . 

ここ で , 通信 を 終了 する 場合 は |Y] 選 と 入力 する と 通信 終 
了 処 理 に 移り ます . また , NALAN TAIF, 通信 モー ド 
の 通常 状態 に 戻り ます . 

通信 終了 処理 は ファ イル 受信 に より グラ フィ ッ ク ・ メ モ 
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リ 上 に 生成 され た ファ イル が ある か を チェ ッ ク し , それ が 
な けれ ば その まま 初期 メニ ュー (4-1 参照 ) に 戻り ます . 
また , ファ イル 受信 に よる ファ イル が ある 場合 , 受信 デー 
タタ を ディ スク に 転送 する か どう か きい て きま す . 

ここ で , デー タ を 書き 込む 場合 、 ディ スク を ドラ イブ 0 
に セッ ト し て 回 回 と 入力 すれ ば 受信 データ の ファ イル の 
書き 込み が 開始 され ます . また , BALANTA LIA 
み は 行 な われ ませ ん が , その と き グ ラフ ィ ッ ク ・ メ モリ 上 
に 残さ れ た 受信 デー タ の ファ イル 名 を 画面 に 表示 し て か ら , 
初期 メニ ュー に 戻り ます . 

Па лли, 受信 デー タ の ファ イル は ファ イル 
受信 を 行なっ た 順に , グラ フィ ッッ ク ・ メ モリ 上 の ファ イル 
名 で ディ スク に 書き 込ま れ , 書き 込み が 終わ る と メモ リ 上 
か ら 消 去 さ れ ま す . た だ し , 次 に 説明 する チェ ッ ク で エラ 
ー と な り , その 処置 で 書き 込み を パス し て 次 の ファ イル へ 
進ん だ と き は 消去 が 行なわ れ ま せん . この 場合 は 初期 メニ 
ュー へ 戻る 前 に , メモ リ に 残さ れ た 受信 デー タ の ファ イル 
名 を 表示 し ます . 

初期 メニ ュー に 戻り , 再び 通信 モー ド に 入る と , 777 
ィ ッ ク ・ メ モリ の 初期 化 が 行なわ れ ま す の で , メモ リ に 残 
され た 受信 デー タ の ファ イル が 消去 され ます . も し メモ リ 
に 残さ れ た ファ イル が 必要 な ら ば , 通信 プロ グラ ム を 一 旦 
終了 し , ユー ティ リティ ・ プ ログ ラム (WEER) УС 
転送 を 行なっ て くだ さい . 

受信 デー タ の ファ イル の 転送 で は , エラ ー と な る 条件 を 
チェ ッ ク す る 機能 が あり , 次 の 2 つの 条件 が , 12077 
イル の 転送 前 に 毎回 チェ ッ ク さ れ ま す . 

(1) ディ スク の 容量 チェ ッ ク 

1 つの 受信 デー タ の ファ イル を 書き 込む 前 に , その ファ 
イル が 書き 込め る 空き クラ スタ が ディ スク に 残っ て いる か 
を 調べ , 書き 込み が 可能 な ら フ ァイル 名 の チェ ッ ク へ 進み 
ます . bL, 空き クラ スタ が 不足 の 場合 は 次 の よう に 表示 
され , 入力 待ち に な り ま す . 


ディ スク の 未 使用 クラ スタ 不足 
1. ディ スク 交換 
2. 次 の ファ イル へ 進む 


ここ で , ディ スク を 交換 し て 別 の ディ スク に 書き 込み を 
行なう 場合 は , 変換 を 行なっ て か ら [] 以 と 入力 し ます . с 
の 場合 , 処理 は 容量 チェ ッ ク に 戻り ます . 

また , ディ スク へ の ファ イル の 書き 込み を 行なわ ず , 次 
の ファ イル の チェ ッ ク へ 進み た い 場 合 , [2] [2]: AJ) L < < 
だ さい . 書き 込み を 行なわ な い 場 合 , その ファ イル は グラ 
フィ ッ ク ・ メ モリ 上 に 残り , 消去 され ませ ん . 

(2) ファ イル 名 の チェ ッ ク 

書き 込み を 行なう 受信 デー タ の ファ イル と 同じ 名 の ファ 
イル が ディ スク 上 に も 存在 する 場合 , その まま 書き 込み を 
行なう と ディ スク 側 の ファ イル の 内 容 が 書き 換え られ て し 
まい ます . その た め , 同一 の 名 前 の ファ イル が ある 場合 
次 の よう に 表示 され ます . 


ディ スク 上 に 同名 ファ イル 有り 
1. ディ スク 交換 
. ファ イル 名 を 変え て 転送 する 
. ディ スク 上 の 同名 ファ イル を 消去 する 
. 次 の ファ イル へ 進む 
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C, ディ スク を 変換 し て 別 の ディ スク に 書き 込み を 
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行なう 場合 は , велись ЕЕ лин, Z 
ログ ラム は 容量 チェ ッ ク の 処理 に 戻り ます . 

受信 デー タ の ファ イル を グラ フィ ッ ク ・ メ モリ 上 の ファ 
イル 名 と 培う 名 前 で ディ スク に 書き 込み た い 場 合 は , BA 
と 入力 し ます . する と ファ イル 名 要求 メッ セー ジ が 表示 さ 
れ ま す の で , メモ リ 上 の ファ イル と 異な る ファ イル 名 を 指 
定 し て くだ さい . 指定 後 の 処理 は . ファ イル 名 の チェ ッ ク 
か ら 再 び 行 な われ ます . 

ディ スク 上 の 同名 ファ イル を 消去 し , 改め て メモ リ 上 の 
ファ イル を 書き 込み た い 場合 は [3] 以 と 入力 し て くだ さい . 
この と き 確 認 の メッ セー ジ が 表示 され ます の で , ПЫЛ 
カカ すれ ば ディ スク 上 の ファ イル は 消去 され , 転送 に 移り ま 
+. 消去 を 中 止 し た い 場 合 は [4] 久 と 入力 し て ぐだ さい . 

£7, ファ イル の 書き 込み を 行なわ ず , 次 の ファ イル の 
チェ ッ ク へ 進み た い 場合 は , [4] ЕЛ AZ UC (728v, Ë 
き 込 み を 行なわ な い 場 合 そ の ファ イル は , グラ フィ ッ ク ・ 
メモ リ 上 に 残り 消去 され ませ ん . 

通信 終了 処理 で エラ ー が 発生 し た 場合 . 次 の よう な メッ 
セー ジ が 表示 され ます . 

(1) ド ライ ブ 0 に ディ スク を セッ ト し て リタ ー ン を 押し て 

くだ さい 

(2) ド ライ ブ 0 に 書き 込み が で きま せん 

エッグ LEIZ =z AMLE аи 
(3) フ ァイル が 消去 で きま せん 
(4) フ ァイル 転送 エラ ー 
ディ スク 書き 込み 中 に エラ ー が 発生 し まし た 
以後 の 処理 が 正常 に 行 な を ませ ん 
一 度 電源 を 切っ て 再起 動 し て くだ さい 

(⑤) 復 帰 処理 の で き な い エラ ー が 発生 し まし た 

プロ グラ ム を 中 断 し ます 
Line хх Error NO хх 

(013, ドラ イプ 0 に ディ スク が セッ ト さ れ て いな い め 場 合 
$, フォ ー マ ッ ト さ れ て いな い 場 合 な ど で , 正常 な ディ ス 
ク を セッ ト し て , Их беса. 

(2 は , (1) と 同様 な 場合 ,、 ま た は ディ スク に 書き 込み 防止 
シー ル が 貼ら れ て いる 場合 な ど で , 書き 込み 可能 な ディ ス 
ク を セッ ト し て , キー を 押し て くだ さい . 

(3144, ディ スク 上 の 同名 ファ イル を 消去 する と き に , fu 
ら か の エラ ー が 起き た 場合 で , 通常 は ディ スク が セッ ト き さ 
れ て いな いか , 書き 込み 防止 シー ル が 貼ら れ て いる こと が 
原因 で す . チェ ッ ク を し て か ら , メッ セー ジ に 従っ て 再 操 
作 を 行なっ て くだ さい . 

(4) は , ファ イル 書き 込み 中 に ディ スク が 取り 出さ れ た 場 
合 な ど で , ディ スク の 安全 の た め に プロ グラ ム を 中 断 し て 
し まい ます . 手動 操作 で 復帰 する こと も 可能 で す が , それ 
の で き な い 方 は 電源 を 切っ て BASIC を 再起 動 す る 以外 に 
方 法 は あり ませ ん . 当然 で す が , 電源 を 切る と メモ リ 上 に 
残っ た デー タ は 消 減 し て し まい ます . 

(5) は , 復帰 処理 が 組ま れ て いな い エ ラー で ( 他 の エラ ー・ 
メッ セー ジ に 続け て 表示 され る こと も あり ます )), 通常 で は 
発生 し に くい と 思わ れる だ ため , リカ バリ ー・ プ ログ ラム を 
省略 し た も の で す . この 場合 も (4) と 同様 , 電源 を 切っ て 再 
起動 を 行なっ て くだ さい . 
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5-1 ユー ティ リティ ・ プ ログ ラム 

第 3 章 の 説明 の よう に BASIC を 起動 し , ディ スク ・ ド ラ 
470 (EM) に 本 ディ スケ ッ ト を セッ ト し て , СЕТК- 
ХІТ. BAS” を RUN し て くだ さい . 

プロ グラ ム が 起動 する と ,「 高 解 父 度 ディ スプ レイ を 使用 
し て いま すか 」 と 表示 され ます の で , 高 解像度 ディ スプ レ 
ДЕН со ВЕЗУЈЕ, € そう で な けれ は 以 と 入力 
し て くだ さい, 前 者 の 場合 は 縦 が 25 行 で , 後者 は 12 行 で 表 
示 が 行なわ れ ま す . 

解像度 の 指定 が すむ と , 下 の よ うな 初期 メニ ュー を 表示 
し て 入力 待ち に な り ま す . 


ファ イル 転送 スー ティ リティ ・ メ イン ・ メ ニュ ー 
1. ファ イル の 内 容 を 表示 する 
. ファ イル の 内 容 を プリ ンタ に 出力 する 
. ファ イル の 内 容 を 転送 する 
ファ イル の 内 容 に 行 番号 削除 処理 を し 転送 する 
. ファ イル の 内 容 に 行 番号 付加 処理 を し 転送 する 
. ディ レク トリ を 表示 する 
BASIC に 戻る 


5-2 ファ イル の 内 容 の 表示 


ユー ティ リティ ・ プ ログ ラム の 初期 メニ ュー で | 以 と 入 
力 す る と , ファ イル の 内 容 を ディ スプ レイ に 表示 する モー 
ド に 入り ます . 

初め に 読み 出し ファ イル 名 の 指定 要求 が 表示 され ます の 
で , 表示 する ファ イル の 名 前 を 指定 し ます . 

ファ イル の 名 前 は , ファ イル ・ デ ィ ス クリ プ タ と ファ イ 
ル 名 を 入力 し ます . た と そえ ば ドラ イブ 0 の ディ スク に 記録 
され て いる NEWS’ と いう ファ イル な ら 

0 : NEWS [7 
グラ フィ ッ ク ・ メ モリ 1 に 記録 きれ て いる ^D-LOAD0730? 

と いう ファ イル な ら 

MEM 1 : D-LOADO0730[7 
と 入力 し ます . ファ イル 名 の 入力 時 に , 何 も 入 力 し な いで 
AX- EHTE, 表示 を 行なわ ず に 初期 メニ ュー に 戻り ま 
す . 

正しく ファ イル が 指定 され る と , その 内 容 が CRT ディ 
スプ レイ に 表示 され , [ESC | キー を 押す と 表示 を 一 時 停止 
する こと が で きま す . 表示 の 停止 中 に 再度 | ESC | キー を 押 
ЗЕ, 処理 は 中 断 さ れ て 初期 メニ ュー に 戻り , [ ESC | キー 
以外 の キー を 押せ ば 表示 が 再開 され ます . 

ファ イル 名 の 指定 に エラ ー が あっ た 場合 や , 表示 処理 中 
に エラ ー が 発生 し た 場合 .、 エラ ー メ ッ セ ー ジ が 表示 され ま 
+. エラ ー の 原因 や 対処 に つい て は , 5-9『 ユ ー テ ィ リ テ 
ィ ・ プ ログ ラム の エラ ー』 を 参照 し て くだ さい . 


5-3 ファ イル の プリ ンタ 出力 


ユー ティ リティ ・ プ ログ ラム の 初期 メニ ュー で | 以 と 入 
力 す る と , ファ イル の 内 容 を プリ ンタ に 出力 する モー ド に 
AD =. 

初め に ファ イル 名 の 要求 が 表示 され ます の で , プリ ンタ 
に 出力 する ファ イル の 名 前 を 指定 し ます . 

指定 の 方 法 は , 5-2『 フ ァイル の 内 容 の 表示 」 と 同様 で 
す . 

ファ イル が 指定 され る と 続い て 「 特 殊 コ ー ド を プリ ン 
ト ・ ア ウト し ます か 」 と 表示 され ます . 
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ここ で は , プリ ンタ に 出力 する ファ イル 中 に 特殊 コー ド 
が 記録 され て いた 場合 , その コー ド も プリ ンタ に 出力 する 
か 否 か の 指定 を 行ない ます . [W| 以 と 入力 する と , ファ イル 
に 記録 きれ た デー タ の すべ て が , [| 以 で は 文字 コー ド と 
CR コー ド だ けが プリ ンタ に 出力 され ます . また , 何 も し な 
いで キー を 押す と , ファ イル 名 の 指定 に 戻る こと が で き 
#3. な お , [WI 以 と 入力 し た 場合 は , 本 プロ グラ ム で 使用 
で きる 特殊 コー ド (4-2 参照 ) 以外 の コー ド も 出力 し ま 
95. 

特殊 コー ド の 出力 指定 の 次 は , CRT 表示 の 指定 要求 が 表 
示さ れ ま す . 

ここ で WI 尺 と 入力 する と , デー タ の プリ ンタ 出力 が 始ま 
り , 同時 に CRT ディ スプ レイ へ も 表示 が 行なわ れ ま す . & 
72, 陣 芝 と 入力 する と プリ ンタ だ け に 出力 が 行なわ れ ま 
+. な お , 何 も し な いで [2 キー を 押す と , 特殊 コー ド の 出 
力 指 定 に 戻る こと が で きま す . 

出力 処理 中 は , [ESC | キー で 処理 を 一 時 停止 させ る こと 
が 可能 で , 一 時 停止 の 解除 は [ ESC | キー 以外 の キー を 押す 
こと で 行ない ます . また , 一 時 停止 中 に 再び | ESC | キー を 
押す と , 処理 を 中 断 し て 初期 メニ ュー に 戻り ます . 

ファ イル 名 の 指定 や , 出力 処理 中 に エラ ー が 発生 し た 場 
АЗ, エラ ー・ メ ッ セ ー ジ が 表示 され ます . エラ ー の 原因 
や 対処 に つい て は , 5-9 『 ユ ー テ ィ リ ティ ・ プ ログ ラム の 
エラ ー」 を 参照 し て くだ さい . 


5-4 ファ イル の 転送 

ユー ティ リティ ・ プ ログ ラム の 初期 メニ ュー で |3| 連 と 入 
力 す る と , ファ イル の 転送 を 行なう モー ド に 入り ます . С 
の モー ド は , 通信 プロ グラ ム の 終了 処理 (4 -10 参 照 ) で , 
ファ イル 受信 の 記録 デー タ を ディ スク に 転送 し な か っ た た 
め , グラ フィ ッ ク ・ メ モリ 上 に 残さ れ た デー タ ・ フ ァイル 
を ディ スク へ 転送 する 必要 が ある 場合 な ど に 使用 し ます . 
また だ た, この 他 に ディ スク か らら ディス ク へ の ファ イル の 転 
送 な ども 可能 で す . 

初め に 読み 出し ファ イル 名 の 指定 要求 が 表示 され ます の 
で , 転送 する 元 と な る ファ イル の 名 前 を 指定 し ます . 
指定 の 方 法 は , 5-2『 フ ァイル の 内 容 の 表示 』 と 同様 で 
す . 

転送 元 が 指定 され る と 次 は 転送 先 の 指定 に 移り , 記録 フ 
ァイル 名 の 指定 要求 が 表示 され ます の で , デー タ の 送り 先 
と な る ファ イル を 指定 し て くだ さい . 

ファ イル 名 の 指定 方 法 は , 5-2『 フ ァイル の 内 容 の 表示 』 
と 同様 で す が , ここ で 指定 し た ファ イル が , 指定 し た デバ 
イス に 存在 し な い 場 合 と 既に 存在 し て いる 場合 で は , 表示 
され る メッ セー ジ が 次 の よう に 異な り ま す . 


(1) 新 フ ァイル 作成 
(2) 既存 の ファ イル が 指定 され まし た 
この ファ イル は 書き 込み を 行なっ て よい で すか 


1①) は 存在 し な い 場 合 で , 指定 し た ファ イル が 自動 的 に 作 
成 さ れ ま す が , (2) は 指定 し た ファ イル が 既に 存在 する 場合 
<, 書き 込み の 可否 の 入力 待ち に な り ま す . MALAT 
れ ば 指定 し た ファ イル へ 転送 を 行ない (この 指定 を し た 時 
点 で 既に 書き 込ま れ て いる 内 容 は 失わ れ ま す ), NAŁA 
力 す れ ば ファ イル 名 の 再 指定 と な り ま す . 

な お , ファ イル 名 の 入力 で , 何 も 入 力 し な いで [キー を 
押す と , 転送 元 の ファ イル 名 の 指定 に 戻り ます . 

転送 元 と 転送 先 の ファ イル が 指定 され る と , 転送 中 の デ 
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ー タ を CRT ディ スプ レイ に 表示 する か 否 か の 指定 待ち に 
な り ま す . 

ここ で IW| 連 と 入力 する と , デー タ の 転送 が 始ま り , 同時 
に СЕТ ディ スプ レイ へ も 表示 が 行なわ れ ま す . МЫЕЛ 
カカ し た 場合 は 転送 だ けが 行なわ れ , また 何 も 入 力 し な いで 
[4X — i83 6, 転送 先 フ ァイル 名 の 指定 に 戻る こと が で 
きま す . 

転送 処理 中 は , [ESC | キー で 処理 を 一 時 停止 させ る こと 
が 可能 で , 一 時 停止 の 解除 は [| ESC | キー 以外 の キー を 押す 
こと で 行ない ます . また , 一 時 停止 中 に 再び | ESC | キー を 
押す と , 処理 を 中 断 し て 初期 メニ ュー に 戻り ます . な お こ 
の 処理 で は , 通信 終了 処理 ( 4 -10 参 照 ) の よう に , 転送 元 
に な っ た ファ イル の 消去 は 行ない ませ ん の で , 不用 に な っ 
た ファ イル は , BASIC の コマ ンド 受付 状態 に 戻っ て, 
KILL コマ ンド で 消し て くだ さき さい. 

ファ イル 名 の 指定 や , 転送 処理 中 に エラ ー が 発生 し た 場 
бі, エラ ー・ メ ッ セ ー ジ が 表示 され ます . エラ ー の 原因 
や 対処 に ついては, 5-9 『 ユ ー テ ィ リ ティ ・ プ ログ ラム の 
エラ ー』 を 参照 し て くだ さい . 


5-5 ファ イル の 内 容 か ら 行 番号 を 削 際 す る 処理 


ユー ティ リティ ・ プ ログ ラム の 初期 メニ ュー で |4| 連 と 入 
力 す る と , ファ イル に 記録 さき れ た デー タ に 行 番号 削除 処理 
を 行なう モー ド に 入り ます . この モー ド は , 通信 モー ド の 
ファ イル 送信 処理 (4 - 9 参照 ) で 送信 する デー タ ・ フ ァ イ 
ル を 作成 する た め の モ ー ド で , ここ で は 操作 を 中 心 に 説明 
し ます の で , 目的 や 処理 の 内 容 に つい て は 6-2『 フ ァイル 
送信 用 デー タ の 作成 」 を 参照 し て くだ さい . 

操作 は まず 最初 に , 読み 出し ファ イル 名 の 要求 が 表示 さ 
れ ま す の で , デー タ を 読み 出す ファ イル の 指定 を し ます . 

指定 の 方 法 は , 5- 2『 フ ァイル 内 容 の 表示 』」 で の ファ イ 
ル 名 指定 と 同様 で 何 も 入 力 し な いで 恨 キ ー を 押す と 転送 
は 行なわ ず に 初期 メニ ュー に 戻る 点 も 同じ し です. た だ し , 
ここ で 指定 する ファ イル は , ファ イル 送信 用 の デー タ と し 
て 6-2『 フ ァイル 送信 用 デー タ の 作成 』」 に 示す 手順 で 作成 
し て お か な けれ ば な り ま せん . 

デー タ を 読み 出す ファ イル が 指定 され る と , 続い て 処理 
後 の デ ー タ を 書き 込む ファ イル の 指定 に 移り , 記録 ファ イ 
ル 名 の 指定 要求 が 表示 され ます . 

ここ で の 指定 方 法 も 6 5-2『 フ ァイル の 内 容 の 表示 』 で の 
ファ イル 名 指定 と 同様 で 、 ファ イル 名 も 何 も 入力 し な いで 
[キー を 押し た 場合 は , デー タ を 読み 出す ファ イル の 指定 
に 戻り ます . ファ イル 名 を 入力 する と , その ファ イル が 指 
定 し た デバ イス に 存在 し な い 場 合 と 既に 存在 し て いる 場合 
で の 処理 の 違い は 5-4 『 フ ァイル の 転送 』 と 同様 で す 

読み 出し 側 と , 書き 込み 側 の ファ イル の 指定 が 済む と , 
改行 コー ド の 指定 要求 メッ セー ジ が 表示 され , 改行 コー ド 
の 指定 を 行ない ます . 

ここ で , MALANTA CR コー ド が , PATI CR 
コー ド 十 LEF コー ド が 改行 コー ド に 指定 され , 何 も 入 力 し 
な いで [キー を 押す と 書き 込み ファ イル の 指定 に 戻り ます 
(改行 コー ド は 6-2 『 フ ァイル 送信 用 デー タ の 作成 』 参 


改行 コー ド が 指定 され る と , 行 番号 削除 処理 中 の デー タ 
を CRT ディ スプ レイ に 表示 する か 否 か の 指定 待ち に な り 
#3. 

= 2 ЧУЈЕ, また は 国連 と 入力 する と , 行 番号 削除 処理 
が 開始 され , 何 も 入 力 し な いで [2 キー を 押す と , 改行 コー 
ド の 指定 に 戻り ます . МАНА, 処理 され た 
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デー タ が CRT ディ スプ レイ へ も 表示 きれ ます . 

行 番号 の 削除 処理 中 は [| ESC | キー を 押す と 処理 を 一 時 停 
止 き せる こと が で き , 一 時 停止 の 解除 は [ESC | キー 以外 の 
キー を 押す こと で 行ない ます . #72, 一 時 停止 中 に 再び 
[ESC | キー を 押す と , 処理 を 中 断 し て 初期 メニ ュー に 戻り 
ます . 

ファ イル 名 の 指定 や , 行 番号 の 削除 処理 中 に エラ ー が 発 
生 し た 場合 は , エラ ー・ メ ッ セ ー ジ が 表示 され ます . エラ 
ー の 原因 や 対処 に つい て は , 5-9 『 ユ ー テ ィ リ ティ ・ プ ロ 
グラ ム の エラ ー』 を 参照 し て くだ さい . 


5-6 ファ イル の 内 容 に 行 番号 を 付加 する 処理 


ユー ティ リティ ・ プ ログ ラム の 初期 メニ ュー で |] 以 と 入 
力 す る と , ファ イル に 記録 きれ た デー タ に 行 番号 付加 処理 
を 行なう モー ド に 入り ます . この モー ド は , 通信 モー ド の 
ファ イル 受信 処理 (4 - 8 参照 ) で 受信 し た デー タ の ファ イ 
ル に 行 番号 を 付加 し て , BASIC プロ グラ ム の アス キー 形 
式 の ファ イル と し て 処理 が で きる よう に する だ ため の も の で 
+. この 処理 を 行 な を ば , BASIC の LOAD, SAVE, LIST 
な どの コマ ンド に より , ファ イル 受信 し た デー タ を 取り 扱 
そえ る よう に な り ま す の で , その 中 か ら 必 要 な 部 分 を 取り 出 
す な を どの 編集 を し て , ファ イル 送信 用 の デー タ を 作成 する 
こと も 可能 で す . 

操作 は 初め に デー タ を 読み 出す ファ イル と , デー タ を 記 
録 す る ファ イル の 指定 を 行ない ます . 表示 され る メッ セー 
ジ や 指定 の 方 法 な を ど は , 5-5『 フ ァイル の 内 容 か ら 行 番号 
を 削除 する 処理 』 で の ファ イル 名 の 指定 と 全く 同じ で , こ 
こ で 指定 し た 『 デ ー タ を 読み 出す ファ イル 』」 に 記録 きれ た 
デー タ に , 行 番号 付加 処理 を 行なっ た も の が ,『 デ ー タ を 書 
き 込 む セ フ ァ イル 』 で 指定 し た ファ イル に 書き 込ま れる こと 
に な り ま す . 

読み 出し 側 と 書き 込み 側 の ファ イル の 指定 が すむ と , FF 
殊 コ ー ド の 削除 の 指定 を 行ない ます 

Sce ALANT と , 読み 出し 側 の ファ イル に 記録 
され て いる 特殊 コー ド (4-2 参照 ) の うち , CR コー ド 以 
外 の 特殊 コー ド は すべ て 削除 きれ , 書き 込み 側 に は 書き 込 
まれ ませ ん . 

回 回 と 入力 し た 場合 は , 読み 出し 側 の ファ イル に 記録 き 
れ て いる デー タ に , 特殊 コー ド の CR と LF が 続く 部 分 が 
ある と , その LF コー ド だ け を 削除 し て 書き 込み 側 に 書き 
込み ます . し た が っ て , BEL, BS, TAB, CR の 各 コ ー ド 
と , 単体 の LF コー ド は 書き 込み 側 に 書き 込ま れ ま す . 

[3] 以 と 入力 し た 場合 は , 読み 出し 側 の ファ イル に 記録 さ 
れ て いる デー タ の 特殊 コー ド の 削除 は 行ない ませ ん の で , 
BEL, BS, TAB, LF, CR の 各 コ ー ド は すべ て 書き 込み 側 
に 書き 込ま れ ま す . ここ で 注意 すべ き 点 は , 上 記 以 外 の 特 
殊 コ ー ド は どの よう な 場合 で も 前 除き れる こと で す . 通信 
モー ド で は , これ ら 以 外 の 特殊 コー ド を 使用 で き な い た だ た め , 
の まう か っ で て hn ます 。 

特殊 コー ド の 削除 が 指定 きれ る と , 処理 中 の デー タ を 
CRT デ ィ ス プレ イ に 表示 する か 否 か の 指定 待ち に な り ま す . 

22 TYA た は IN| 以 と 入力 する と , 行 番号 の 付加 処理 
が 開始 され : 何 も 入 力 し な いで [に 包 キー を 押す と , 特殊 コー 
ド 削 除 の 指定 に 戻り ます . ПЕЛЕ АЛЬ, 処理 さ 
れ た デー タ が CRT ディ スプ レイ へ も 表示 され ます . 

行 番号 の 付加 処理 中 に ESC | キー を 押す と , 処理 を 一 時 
停止 きせ る こと が で き , 一 時 停止 の 解除 は | ESC | キー 以外 
の キー を 押す こと で 行ない ます . また , 一 時 停止 中 に 再び 
[ESC | キー を 押す と , 処理 を 中 断 し て 初期 メニ ュー に 戻り 
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3%: 

ファ イル 名 の 指定 に エラ ー が あっ た 場合 や , 行 番号 の 付 

加 処 理 中 に エラ ー が 発生 し た 場合 は ,、 エラ ー・ メ ッ セ ー ジ 

が 表示 され ます . エ ラー の 原因 や 対処 に つい て は , 5-9『 ユ 

ー テ ィ リ ティ ・ プ ログ ラム の エラ ー』 を 参照 し て くだ さい . 
この 処理 で は 行 番号 は 次 の よう に 付加 され ます . 

・ 付 加 さ れる デー タ は 行 番号 と 『"』 で す (Al ABCD; tł 
「100 'ABCD,; £772). 

・ 行 番号 は 100 か ら 始 まり , 102, 104.106… と 付け られ ます . 
・ 行 番号 が 32767 よ り 大 きく な る よう な 場合 は , エラ ー と な 
り 処 理 が 中 断 さ れ ま す . 

・ デ ー タ 中 に CR コー ド を 発見 する と , 新しい 行 番号 を 付 
け ま す . 

・ 行 番号 を 含め て 1 行 の 文字 数 が 79 文 字 を 超え る と , 新 し 
い 行 番号 を 付け ます . 

・CR 以外 の 特殊 コー ド は , 1 文字 の 特殊 文字 と し て 処理 さ 
れ ま す . 


5-7 ディ レク トリ の 表示 

ユー ティ リティ ・ プ ログ ラム の 初期 メニ ュー で |@ 連 と 入 
力 す る と , ディ レク トリ の 表示 (BASIC の FILES 表示 ) 
を 行ない ます . 指定 方 法 は 4- 7 『 デ ィ レ クト リ 表 示 機 能 』 
と 同じ で す . 


5-8 ユー ティ リティ ・ プ ログ ラム の 終了 
ユー ティ リティ ・ プ ログ ラム の 初期 メニ ュー で | ЈЕДЕ А 


力 す る と , プロ グラ ム を 終了 し て BASIC の コマ ンド 待ち 
に 戻り ます . 


5-9 ユー ティ リティ ・ ブ ログ ラム の エラ ー 

ユー ティ リティ ・ プ ログ ラム で は , 書き 込み ファ イル の 
取り 消し や , デー タ の 書き 込み 時 に エラ ー が 発生 し た 場合 
致命 的 な エラ ー と し て 以後 の 処理 を 継続 せ ず , BASIC の 
コマ ンド 待ち に 戻る 処理 を 行ない ます . この 場合 は 次 の よ 
うな メッ セー ジ が 表示 され ます . 


デバ イス 書き 込み エラ ー が 発生 し まし た 
電源 を 切ら ず に BASIC に 戻れ る か を チェ ッ ク し ます 
ディ スク 等 を 元 の 様 に セッ ト し て , 何 か キ ー を 押し て く 
だ さい 


ここ で , 『 デ ィ ス ク 等 を 元 の 様 に セッ ト 』 と は , 書き 込み 
ファ イル を 指定 し た と き に セッ ト し て いた ディ スク を , ЧЕ 
定 し た と き と 同 じ ド ライ プ に セッ ト す る こと で す .。 Ind, 
この エラ ー・ メ ッ セ ー ジ の 表示 され る 原因 が , 書き 込み フ 
ァイル 設定 後に その ディ スク を 交換 し て し まっ た り , 書き 
込み 中 に ディ スク が 取り 出さ きれ た た めで ある こと が 多い か 
ら で , それ 以外 の 原因 に よる 場合 に は ディ スク の 出し 入れ 
は し な いで くだ さい . 

ディ スク を セッ ト し た ら , 何 か 適当 な キー を 押せ ば チェ 
ッ ク が 始ま り , その 結果 に よっ て 湊 の よう に 表示 され ます . 


(1) BASIC に 戻る こと が 可能 で す 一 了 芋 プ ログ ラム を 
終了 し ます 
書き 込み 中 で あっ た ファ イル の 内 容 は 保証 され ませ 
ん の で 注意 し て くだ さい 

() ファ イル の クロ ー ズ が で きま せん 
電源 を 切っ て 再度 BASIC の 起動 を 行なっ て くだ き 
ұз 


(1) の よう に 表示 さき され た 場合 は , BASIC の コマ ンド 待ち 
に 戻り ます の で , 再び RUN コマ ンド に よっ て プロ グラ ム 
を 起動 する こと が で きま す . た だ し , メッ セー ジ に も 表示 
され る よう に , 書き 込み 中 で あっ た ファ イル の 内 容 が 正 し 
< 記録 き れ て いる 保証 は あり ませ ん . 


(2) の よう に 表示 され た 場合 は , ХІ 本 体 の 電源 を 切る か , 


BOOT コマ ンド に よっ て シス テム を 再起 動 す る 必要 が あ 
0, メモ リ 中 に デー タ が 残っ て いる 場合 は , 電源 を 切る 前 
に 手動 で それ を セー プ ブ す る か , デー タ を 捨て て 電源 を 切る 
кереит, 


* ж 
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本 プロ グラ ム は , 他 の X1turbo と 接続 し て 通信 を 行なう 
こと も で きま す . この と き , 電話 回 線 を 使用 する 場合 と RS 
-232C ケー ブル を 使用 する 場合 で 接続 方 法 が 次 の よう に 異 
な り ま す . また RS-232C と イン ター フェ イス を 内 蔵 し て い 
る も の で あれ ば , 他 の コン ピュ ー タ を 接続 する こと も 同様 
СТО Ж. (GL, 英 1tugbo. 以 外 の コン ピュ ー タ 
іі, その コン ピュ ー タ 用 の 通信 プロ グラ ム を 用 意 す る こと 
が 必要 で す . 

久 音 響 カ プラ と 電話 回 線 を 使用 し て 接続 する 場合 
この 場合 の 操作 は , 基本 的 に は テレ スタ ー へ の 接続 と 

同じ です . た だ し , 通信 の 主 局 側 と 従 局 側 を 決め て お く 

必要 が あり , 主 局 側 の 音響 カゲ プラ の モー ド 切 り 換え スイ 

ッ チ は Бч ッ ト し ます . #72, 通信 プロ グラ ム の 

ター ミナ ル の 各 設 定 (4-3 参照 ) は , 両方 と も 同じ に 設 

EL, 『 ロ ー カ ル ・ エ コー』」 は 「『 す る 』 の 方 に 設定 し て お 

きま す . 

@ RS-232C ケー ブル を 使用 し て 接続 する 場合 
この 場合 は , 接続 する コン ピュ ー タ 同志 の RS-232C 

コネ クタ を RS-232C ケー ブル で 接続 する こと に な り ま 

す . ただし, この と き 使 用 する RS-232C ケー ブル は , 音 

響 カ プラ に 使用 する も の と は 異な り , コン ピュ ー タ 同志 

を 接続 する 配線 を し た も の で な けれ ば な り ま せん . 配線 

の 方 法 な ど は , Хишђо の ユー ザー ズ ・ マ ニュ アル の 『RS 


-232 と イン ター フェ イス の 使い 方 』」 を 参照 し て くだ さい . 


また , この 場合 も 通信 プロ グラ ム の ター ミナ ル の 各 設 
定 (4-3 参照 ) は , 両方 と も 同じ に 設定 し , 『 ロ ー カ ル ・ 
エコ ー』 は 『 す る 』 の 方 に 設定 し て お きま す . 


6-2 ファ イル 送信 用 デー タ の 作成 


通信 プロ グラ ム の ファ イル 送信 機能 (4- 9 参照 ) は , 7 
ィ ス ク な ど に 記録 きれ た ファ イル の デー タ を 通信 回 線 に 送 
り 出 す も の で , 長い デー タ を 送信 する 場合 や , 同じ し データ 
を 何 回 も 送信 する 場合 な ど に 便利 で す . この 機能 で 送信 す 
る デー タ は , 通信 デ ロ グ ラム を 起動 する 前 に 次 の よう な を 手 
順 で 作成 し て お く 必 要 が あり ます . 
(0 原文 デー タ の 入力 

2097—07 EB, 送信 し た い 文 章 を どの こと で 。 
BASIC プロ グラ ム の REM X (ERX) tC に より 記述 し ま 
Y. た と えば 下 の よ うな 文章 を 原文 デー タ と し ます 。 


僕 は さと みち ゃ ん が 好き で す . 
で も や っ ぱり , ケイ 子 さ ん も 好き で す . 
そう いそ ば, りや 子 ち ゃ ん も 好き だ な ぁ 。. 


&O 


な ん て 気 が 多 いん だ ろう . | 


Хишђо で は , 上 の 文章 を 直接 ファ イル に 書き 込む こ 
と は で きま せん の で , 下 の よ うに 行 番号 と 『"』」 を 文 の 先 
頭 に 付け て , BASIC プロ グラ ム と し て 入力 し ます . 


100’ 僕 は さと みち ゃ ん が 好き で す . 

по で も や っ ぱり ケイ 子 さ ん も 好き で す . 
120 そう いえ ば , りや 子 ち ゃ ん も 好き だ な ぁ . 
130 な ん て 気 が 多 いん だ ろう . 


上 の よう に し て 入力 し た も の は , LIST コマ ンド で 表 
示 を し た り , スク リー ン ・ エ ディ タ で 修正 を する こと が 
で きま す . 漢字 の 入力 方 法 な を ど に つい て は , X1turbo の 
ユー ザー ズ ・ マ ニュ アル の 「『 日 本 語 処理 」 の 説明 を 参照 
LC «9759 (а, 

(2) 原文 ファ イル の 作成 

原文 が 正しく 入力 で きた ら , これ を SAVE コ マン ド 
で ディ スク に セー ブ し ます . この と き フ ァイル 名 は 自由 
に 付け て か まい ませ ん が , アス キー 形式 で セー プ (A + 
プシ ョ ン を 付け る ) する 必要 が あり ます . た と そば ファ 
イル 名 を 『 む か し 話 』 に し て , ドラ イブ 1 の ディ スク に 
セー ブ す る と き の コ マン ド は , 

SAVE *1 : むか し 話 ?。 А15 20) FET. 
(3) 原文 ファ イル か ら 行 番号 を 削除 する 

ファ イル 送信 機能 で は , (2) で セー プ し た ファ イル を そ 
の まま 送信 する こと も 可能 で す が , ERE l bx 
され て し まう た め , 文章 が 読み に くく な り , 不要 な デー 
タ を 送信 する 時 間 も ム ダ に な り ま す . それ を 防ぐ た め に 
行なう の が , 原文 ファ イル か ら 行 番号 と 『"」 を 削除 する 
処理 で まず ユー ティ リティ ・ プ ログ ラム を 起動 し て , 
初期 メニ ュー で 4 を 選び , 行 番号 の 削除 処理 を する モー 
ド に 入り ます . この あと に 続く 処理 の 設定 を 下 の よ うに 
入力 し ます が , 指定 方 法 の 詳細 に つい て は 5-5 を 参照 し 
て くだ さい . 

@ デ ー タ を 読み 出す ファ イル の 指定 
行 番号 と 『"』」 が 記録 され て いる 原文 ファ イル (2T 
セー ブ し た ファ イル ) を 指定 し ます . 
@ デ ー タ を 記録 する ファ イル の 指定 
処理 後 の デ ゲー タ を 書き 込む せ フ ァイル で , デー タ を 読 
み 出 す フ ァイル 以外 で あれ ば , 自由 に 指定 し て か まい 
ませ ん . 
人 @ 改 行 コ ー ド の 指定 
文章 の 改行 を 行なう と き の コ ー ド の 指定 で , 通信 の 

相手 が 要求 し て いる 改行 コー ド に 合わ せま す . テレ ス 

ター の 場合 は ,CR の み を 指定 (1 を 入力 ) し て くだ さい . 
Ө CRT ディ スプ レイ へ の 表示 

デー タ を 記録 する ファ イル に 書き 込ま れる デー タ を 

СЕТ に も 表示 する か 否 か の 設定 で , 自由 に 指定 し て か 

まい ませ ん . 

以上 の 設定 が 終わ る と ,『 デ ー タ を 読み 出す ファ イル 』 
の 内 容 か ら 行 番号 と 『"』」 を 削除 する 処理 が 開始 され ま 
+. 処理 後 の デ ゲー タ は , 『 デ ー タ を 記録 する ファ イル 』 に 
書き 込ま れ ま す の で , 通信 プロ グラ ム の ファ イル 送信 機 
能 で この ファ イル を 指定 し て 送信 すれ ば , 原文 デー タ を 
行 番号 と 『"」 な し て 送信 する こと が で きま す . 

な お , この 行 番号 の 削除 処理 で は , ファ イル の 先頭 か 
b Г, $ ЗЕ, APD "」 ま で の 問 の デー タ が 削除 きれ 
る の で 注意 し て くだ さい . 
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118 '* 


130 '* 

140 '* 1985= 8 月 22 日 
150 '* 

168 '* BHE ЖЕ 株 式 会 社 テレ スタ ー 
178 '* 


180 ЕЖЕ ЕЖЕ ЕЕ Е 


200 КЕМ パラ メー タ 設 定 用 デー タ 

218 DATA "1”,”0123456”: REM ボー レー ト 150/300 
/600/1200/2400/4800/9600 

212 рата "N","EON": REM パリ ティ 2: 27220 
/ 0:#29/ М: J-N 54 

214 DATA "8", "78": RM デー タ 長 77bit/ 
8:8bit 

216 ТАТА "1","123": REM スト ッ プ 1:1bit/ 
2 の :1.5bit/ 3:2bit 

218 DATA "X","XRN": REM Ет) X:XON,X 
OFF/ R:RTS め ゴウ 9/ №2702“ 

228 DATA "N","SN": REM カナ 表示 S:7bith 
2») М№:7Ы f 

222 DATA "C","CL": REM CR 送信 C:CR パ / 
L:CR+LF 


224 рата "L","CL": REM CR 受信 C:CR/S/ 
L:CRHF 

226 DATA "N", "JN": REM 漠 字 コー ド Ј:Ј15/ 
N: 7 ト JIS 

228 DATA "№", "У№: REM エコ ー 表 示 YID 
/ NI 

230 DATA "H","HS": REM 解像度 Sikat" 
ауу HEDYN 

232 рата "2","12": REM 漢字 の 消去 БІН 
/ 2:В52 

234 DATA "В", "BN": REM DELZ2-h" ЯЛЕ В: В 
уа) /N:37EVH 

300 REM 初期 設定 


318 MAXFILES 2: OPTION SCREEN 4 

320 DEFINT A-Z: DIM FI$(19): CLEAR &HEF99 

330 'WIDTH 80,10,0,1: CONSOLE 0,10: SCREEN: KMOD 
E 1: KLISTO 

340 PRINT "X1turbo 漢字 ター ミナ ルプ ログ 
ラム Џег.1.0" 

350 PRINT " 1985.8.22 (С) TeleStar inc.": PRIN 
Т 

360 PRINT "7 —3 л," 

400 ON ERROR СОТО 700 

418 ОРЕМ"1", 11, "通信 設定 .DRTY 

420 INPUTH1 , WS, BR$, PBS, DB$, SB$, CC$, SP$, CRS$, СКЕФ 
› KC$,L0$,RES$, KBS$,DEL$ 

430 CLOSE #1 

440 ОМ ERROR GOTO 0 

458 GOSUB 1200 

460 ІР EF THEN BEEP ELSE 500 

470 PRINT" タ ー ミ ナル 設定 デー タ に エラ ー が あり ます 
(Hit RETURND";: INPUT RNS$ 
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108 ПКК КККК КККК ККЕ 


128 '* テレ スタ ー 漢字 ター ミナ ル ・ プ ログ ラム Мег.1.0 


“ w w w ж мо “ 


же есте 2522)‏ ت ج ت ت РАМИ-СС---‏ 


480 GOSUB 800: СОТО 460 

500 REM 初期 メニ ュー 

510 PRINT" タ ー ミ ナル ・ プ ログ ラム 初期 メニ ュー”" 

528 PRINT" 1. 通信 開始 " 

522 PRIN" 2. ター ミナ ルル 設定 変更 " 

524 PRIN" 3. í& 7" 

526 PRINT" Input Number...";: ВЕЕР: ñNS$="" 
: INPUT RNS$ 

550 IF ANS$=”1” THEN GOSUB 5000: GOTO 500 

540 IF RNS$-"2" THEN GOSUB 888 : CLS: GOTO 460 

550 IF RNS$<>"3" THEN BEEP: GOTO 526 

680 КЕМ 終了 処理 

610 KEY 1,"FILES"+CHR$(13) 

612 KEY 2,"?TIME$"+CHR$(13) 

614 KEY 3,"KEY " 

616 KEY 4, "LIST"+CHR$(26,13) 

618 KEY 5, "RUN "+СНА%(13) 

628 KEY 6, "LOAD "+CHR$(13) 

622 KEY 7,”WIDTH " 

624 KEY 8, "CHR$C" 

626 KEY 9, "PRLET " 

628 KEY18, "CONT"+CHR$(13) 

650 KLIST 1: CLEAR sHF999 

690 END 

700 REM x2 — 938 

705 BEEP: PRINT: COLOR 6 

718 PRINT "ター ミナ ル 設 定 デ ー タ が 正しく ディ スク 
か ら 読 め ま せ ん ": COLOR 7 

712 PRIN " 1, 再読 み 出し を する " 

714 PRIN " 2. プロ グラ ム 初 期 値 を 設定 する " 

716 PRINT" 3. プロ グラ ム を 中 断 す る " 

728 PRINT " Input Number. .."; 

750 RNS$="": INPUT RNS$ 

740 IF RNS$-"1" THEN RESUME 

750 IF А№%="3" THEN RESUME 600 

760 IF RNS$-"2" THEN PRINT: GOSUB 778: RESUME 45 
8 ELSE BEEP: GOTO 720 

778 RESTORE 200 

780 READ BR$,U$, PB$,U$, DB$,W$, SB$,U$, ССФ, МФ, 
SP$,U$, CRS$,U$, CRR$,U$, KC$,U$, LOS$,U$, КЕ5%, 
W$, КВ5%,,%, DEL$ 

790 RETURN 

808 REM ター ミナ ル 設定 の 表示 と 変更 

805 WIDTH 80,10,0,1: CONSOLE 0,10: SCREEN: IODE 
1: KLISTQ 

818 CLS: PNO=9: CNO=9: KC=9: CBR=9: REM 設定 変更 
Х=а= 7] 

820 GOSUB 2000: GOSUB 2100: GOSUB 2200: GOSUB 25 
00: GOSUB 2400 

825 GOSUB 2500: GOSUB 2600: GOSUB 2700: GOSUB 28 
0д 

838 LOCATE 0,9: PRINTT カ ー ソ ルキ ー で 設定 ・X メ キー 
で 次 の 項目 ・S キ ー で 変更 し て 終了 ・Q キ ー で 変更 中 
iE"; 

840 CNO-1 

850 REPEAT 

860 CBR=-1: ON СМО GOSUB 2000,2100,2200,2500,240 


0,2500, 2600, 2700, 2800: PNO-CNO 

870 K$=INKEY$: IF K$z"" THEN 870 ELSE KC=ASC(K$ 
2 

872 IF КС=8НІС OR KC=8H1D THEN 868 

874 IF KC=8H1E THEN IF CNO=<1 THEN CNO-9: GOTO 8 
88 ELSE CNO-CNO-1: СОТО 888 

876 IF KC=&H1F THEN IF 9=<CNO THEN CNO=1: GOTO 8 
80 ELSE CNO=CNO+1: GOTO 880 

880 CBR=0: ON РМО GOSUB 2000,2100,2200,2500,2400 
, 2588, 2600, 2700, 2800 

898 UNTIL INSTRC1, "SsQaXx" , КФ) <>0 

900 IF K$-"X" OR K$-"x" THEN 958 

918 IF K$-"S" OR K$-"s" THEN 1100 ELSE GOSUB 128 
0: GOTO 1180 

950 CLS: PNO=9: CNO=0: KC=0: CBR=0: REM 設定 変更 
メニ ュー ジ 

960 GOSUB 5000: GOSUB 5100: GOSUB 5200: GOSUB 33 
00 

978 LOCATE 0,9: PRINT"T カ ー ソ ルキ ー で 設定 ・X キ ー 
で 前 の 項目 ・S キ ー で 変更 し て 終了 ・Q キ ー で 変更 中 
IE"; 

988 CNO=1 

998 REPEAT 

1000 CBR=-1: ON СМО GOSUB 3000, 3100, 3200, 3300: P 
NO=CNO 

1010 K$-INKEY$: IF K$-"" THEN 1919 ELSE KC=ASC(K 
$) 

1012 IF KC=&H1C OR KC=8H1D THEN 1000 

1014 IF KC=8HIE THEN IF CNO=<1 THEN CNO=4: GOTO 
1020 ELSE CNO-CNO-1: СОТО 1020 

1916 IF KC=8H1F THEN IF 4=<CNO THEN CNO=1: GOTO 
1000 ELSE CNO=CNO+1: GOTO 1020 

1828 CBR=0: ON PNO GOSUB 3000, 3100, 3200, 5500 
1030 UNTIL INSTR(1, "5$баХх” , КФ) ^8 

1040 IF K$-"X" OR K$-"x" THEN 818 

1050 IF K$-"S" OR K$-"s" THEN 1100 ELSE GOSUB 12 
00: GOTO 1188 

1180 REM ター ミナ メル 設定 変更 の 終了 

1118 LOCATE 8,9: PRINT CHR$(&H5): 

1120 PRINT" 設 定 デ ー タ 変更 中 ":: GOSUB 1400 

113 LOCRTE 0,9: BEEP 

1148 PRINT" 新 ジー タ を ディ スク に 登録 し ます か (Y / 
№...” 

1150 RNS$=INKEY$: IF &NS$-"" THEN 1158 ELSE PRIN 
T fiNS$; 

1168 IF RNS$="Y” OR ANS$="y” THEN GOSUB 1600: GO 
TO 1180 

1178 IF RNS$-"N" OR ANS$="n" THEN 1180 ELSE 1138 


1180 PRINT 

1190 RETURN 

1200 REM у — $ У ViET—» RR (デー タブ 番号 
) 

1210 RESTORE 200: EF=0 

1220 READ WS, WB: BRN=INSTR(W$, BR$): IF BRN=0 TH 
EN EF=-1 

1250 READ WS, W$: PBN=INSTR(W$,PB$): IF PBN=0 TH 
EN EF=-1 


1240 READ 6,46: DBN=INSTR(W$, DB$): IF DBN=0 TH 
EN EF=-1 

1250 READ 6,46: SBNeINSTR(4$,SB$): ІР SBN=0 TH 
EN EF=-1 

1260 READ WS, WS: CCN=INSTR(U#,CC$): IF CCN=0 TH 
EN EF=-1 

1270 READ 4,8: SPNeINSTR(U$,SP$): IF SPN=0 TH 
EN EF=-1 

1280 READ WS, WS: CRSN=INSTR(U,CRS$): IF CRSN-Ü 
THEN EF=-1 

1298 READ WE, WS: CRRNeINSTR(US,CRR$): IF CRRN=Q 
THEN EF=-1 

1300 READ 16,46: KCN=INSTRCWS, КСФ): IF KCN=Q TH 
EN EF=-1 

1310 READ 16,46: LON=INSTR(W$,LO$): IF LONe9 TH 
EN EF=-1 

1320 READ WE, WS: RESN=INSTR(W$,RES$): IF RESN-Ü 
THEN EF=-1 

1330 READ 16,16: KBSN=INSTR(W$,KBS$): IF КВОМ-й 
THEN EF=-1 

1340 READ (6,46: DELN=INSTRCW$, DEL$): IF DELN=0 
THEN EF=-1 

1350 RETURN 

1400 REM 2 —: ЛЕР 3 RE (番号 つ デ ー タ 
2 

1410 RESTORE 200: EF=0 

1420 READ 16,46: IF BRN=0 THEN EF=-1 ELSE BR-MI 
D$ (u$, BRN, 1) 

1430 READ 16,46: IF PBN=0 THEN EF=-1 ELSE PB$-MI 
D$ (W$, PBN, 1) 

1440 READ 16,46: IF DBN=0 THEN EF=-1 ELSE DB$-MI 
D$ (W$, DEN, 1) 

1450 READ 6,4: ІР SBN=0 THEN EF=-1 ELSE SB$=MI 
D$ (W$, SBN, 1) 

1460 READ 16,46: IF CCN=0 THEN EF=-1 ELSE CC$-MI 
D$ (W$, CCN, 1) 

1478 READ 16,46: IF SPN=0 THEN EF=-1 ELSE SP$-MI 

D$ (M, SPN, 1) | 

1488 READ 6,46: ІР CRSN=Q THEN EF=-1 ELSE CRS$= 

MID$ (US, СКМ, 1) 

1498 READ 6,16: IF CRRN= THEN EF=-1 ELSE CRR$= 

MID$ (W$, CRRN, 1) 

1580 READ 16,46: ІР KCN=9 THEN ЕҒ--1 ELSE KC$-MI 

0666, KCN, 1) 

1510 READ 16,16: IF (0М-й THEN EF=-1 ELSE LOS-MI 
D$ u$, LON, 1) 

1520 READ 16,46: IF RESN=0 THEN EF=-1 ELSE RES$= 

MID$ CMS, RESN, 1) 

1530 READ 16,46: IF KBSNeü THEN EF=-1 ELSE KBS$= 

MIDS US, KBSN, 1) 

1548 READ 16,16: IF DELN=0 THEN EF=-1 ELSE DEL$= 

MID$ US, DELN, 1) 

1550 RETURN 

1600 REM ター ミナ ル 設定 デ ー タ 登録 

1618 ON ERROR GOTO 1780 

1620 OPEN"O" 11, "0: а E DAT” 

1630 PRINTH1, "1 REM "+", "+bR$+”, "+PB$+”, "+DB$+”, 
"+SB$+","*CC$+",".SP$+","; 
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1640 PRINTH1,CRS$+","+CRR$+”"”,"+KC$+"”,"+L0$+"”,"+R 
ES$+”, "+KBS$+”, ”+DEL$ 

1650 CLOSE #1 

1660 ON ERROR GOTO 0 

1670 RETURN 

1708 REM エラ テー 処理 (ディ スク 書き 込み ) 

1710 BEEP: PRINT 

1728 PRINT "ディ スク へ の 書き 込み が 出来 ませ ん " 
1722 РАМТ ” 1. 再 書き 込み を する " 

1724 PRINT " 2. 書き 込み を 中 止 する " 

1726 PRINT" 3. プロ グラ ム を 中 断 する " 

1750 PRINT " Input. Number. . ."; 

1740 ans$-"": INPUT ans$ 

1750 IF ans$-"1" THEN RESUME 

1768 IF ans$-"2" THEN RESUME 1650 

1778 IF ans$-"3" THEN RESUME 600 

1780 ВЕЕР: GOTO 1750 

2000 REM ボー レー ト 表 示 

2010 PX=5: PY=9: LOCATE PX,PY 

2020 5=" ボ ー レ ー ト 158 /300 /6ЙЙ /1200/2 
400/4800/9600”: PRINT W$; 

2030 IF КС-ӘНІС THEN IF 7=<BRN THEN BRN=1 ELSE B 
RN=BRN+1 

2040 IF KC=8H1D THEN IF BRN=<1 THEN BRN=7 ELSE B 
RN=BRN-1 

2058 GOSUB 4000: IF BRN=0 THEN LOCATE PX-1,PY: Р 
RINT MID$(Q$,1,16);: GOTO 2878 

2868 GX-5* CBRN-1)419: LOCATE PX*GX-1,PY: PRINT M 
ID$(4$, GX, 4 ; 

2070 GOSUB 4050 

2888 RETURN 

2100 REM パリ ティ ビッ ト 長 

2110 PX=5: PY=1: 内 = アパ リティ ビッ ト 偶数 パリ 
F 4 ZEUS F А RALO ” 

2120 LOCATE PX,PY: PRINT W$; 

2130 IF KC-8H1C THEN IF 3=<PBN THEN PBN=1 ELSE P 
BN=PBN+1 

2148 IF KC-&H1D THEN IF PBN=<1 THEN PBN=3 ELSE P 
BN=PBN-1 

2150 GOSUB 4000: IF PBN=0 THEN LOCATE PX,PY: PRI 
NT MID$Q4$,1,16);: GOTO 2170 

2168 GX=14*(PBN-1)+19: LOCATE РХ+СХ-1,РҮ: PRINT 
MID$(W$,GX,12); 

2178 GOSUB 4050 

2180 RETLRN 

2200 КЕМ デー タ 長 表示 

2218 PX=5: PY=2: 内 =" ア デー タビ ッ ト 長 TBI 
t Z 8bit " 

2220 LOCATE PX,PY: PRINT W$; 

2230 IF КС=&Н1С THEN IF 2=<DBN THEN DBN-1 ELSE D 
BN=DBN+1 

2240 IF KC-8H1D THEN IF DBN=<1 THEN DBN=2 ELSE D 
BN=DBN-1 

2250 GOSUB 4000: IF DBN=0 THEN LOCRTE PX,PY: PRI 
NT MID$CW$, 1,16);: GOTO 2270 

2260 GX=14*(DBN-1)+19: LOCATE PX+GX-1,PY: PRINT 
MID$(W$,GX,12); 

2270 GOSUB 4050 


| 2288 RETURN 


2300 REM スト ッ プ ビッ ト 長 表示 

2310 PX=5: PY=3: 【$=" ス トッ プ ビ ッ ト 長 1bi 

t 1. ББЧ bit 

2328 LOCATE PX,PY: PRINT W$; 

2330 IF KC=8H1C THEN IF 3=<SBN THEN SBN=1 ELSE $ 
BN=SBN+1 

2340 IF KC=&H1D THEN IF SBN=<1 THEN SBN=3 ELSE $ 
BN=SBN-1 

2350 GOSUB 4000: IF SBN=0 THEN LOCATE РХ,РУ: PRI 
NT МІРФСИФ, 1,16);: GOTO 2370 

2360 GX=14*(SBN-1)+19: LOCATE PX+GX-1,PY: PRINT 
MID$(W$,GX,12); 

2370 GOSUB 4050 

2380 RETURN 

2400 REM 通信 制御 方 法 表 示 

2418 PX=5: PY=4: W$=" (ЕЕЕ X パ ラメ 
ー タ グ R TS 信号 使用 し な い " 

2420 LOCATE PX,PY: PRINT W$; 

2430 IF KC=8HIC THEN IF 3=<CCN THEN CCN=1 ELSE C 
CN=CCN+1 

2440 IF KC=8H1D THEN IF CCN=<1 THEN CCN=3 ELSE C 
CN=CCN-1 

2450 GOSUB 4000: IF CCN=Q THEN LOCATE PX,PY: PRI 
NT MID$(45, 1,16);: GOTO 2470 

2468 GX=14*(CCN-1)+19: LOCATE PX+GX-1,PY: PRINT 
МІрФСЫФ, СХ, 12); 

2470 GOSUB 4050 

2480 RETURN 

2500 REM S パ ラメ ー タ 表示 

2518 PX=5: РҮ-5: $="S パラ メー タ 使用 する 
グズ 使用 し な い " 

2520 LOCATE PX,PY: PRINT W$; 

2538 IF KC=8H1C OR KC=8H1D THEN IF SPN=1 THEN SP 
N=2 ELSE SPN=1 

2548 GOSUB 4000: IF SPN=8 THEN LOCATE PX,PY: PRI 
NT MID$(W$, 1, 16); : GOTO 2570 

2550 IF SPN=1 THEN GX=19: GL=8 ELSE GX=19+10: GL 
-10 

2568 LOCATE PX+GX-1,PY: PRINT MID$(U$, GX, GL); 
2578 GOSUB 4050 

2588 RETURN 

2680 REM CR 送信 処理 表示 

2618 PX=5: PY=6: W$=" CR 送信 処理 CR の み 
ZCR+LF を 送信 " 

2628 LOCATE PX,PY: PRINT W$; 

2630 IF KC=&H1C OR KC=8H1D THEN IF CRSN=Í THEN С 
RSN=2 ELSE CRSNe1 

2640 GOSUB 4080: IF CRSN=8 THEN LOCATE PX,PY: PR 
INT МІРФСЫФ, 1, 16); : GOTO 2678 

2650 IF CRSN=1 THEN GX=19 : GL=8 ELSE GX=19+10: 
GL=10 

2660 LOCATE PX+GX-1,PY: PRINT MIDSCWS, GX, GL); 
2670 GOSUB 4050 

2680 RETURN 

2788 REM CR 受信 処理 表示 

2718 PX=5: Ру=7: =” CR 受信 処理 CR の み 
ZCR+LF で 改行 " 
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2728 LOCRTE РХ,Ру: PRINT №; 

2730 IF KC=8H1C OR KC=sH1D THEN IF CRRN=1 THEN C 
RRN=2 ELSE CRRN=1 

2740 GOSUB 4000: IF СААМ THEN LOCATE PX,PY: PR 
INT MID$(W$,1,16);: GOTO 2770 

2758 IF CRRN=1 ТНЕМ GX=19: GL=8 ELSE GX=19+10: G 
L=10 

2760 LOCATE PX+GX-1,PY: PRINT MID$(W$, GX, GL); 
2770 GOSUB 4058 

2780 RETURN 

2800 REM 漢字 コー ド 表 示 

2810 PX=5 PY=8: W$=" RZ К JIS z 
シフ ト JIS" 

2820 LOCATE PX,PY: PRINT W$; 

2830 IF KC=8H1C OR KCe&HiD THEN IF KCN=1 THEN KC 
N=2 ELSE KCN=1 

2840 GOSUB 4000: IF KCN=Q THEN LOCATE РХ,РҮ: PRI 
NT MID$(4$,1,18);: GOTO 2878 

2850 IF KCN=1 THEN GX=19: GL=8 ELSE GX=19+19: GL 
=12 

2860 LOCATE PX+GX-1,PY: PRINT MID$CWS, GX, GL); 
2870 GOSUB 4050 

2880 RETURN 

3000 REM ロー カル エコ ー 表 示 

3010 PX=5: PY=0: 内 =" ア ロー カル エコ ー する 

Z し な い * 

3020 LOCATE PX,PY: PRINT W$; 

3030 IF KC=8H1C OR KC=&H1D THEN IF LON=1 THEN LO 
N=2 ELSE LON=1 

3040 GOSUB 4000: IF LON=0 THEN 10САТЕ PX,PY: PRI 
NT MID$(W$,1,16);: СОТО 5070 

3050 IF LON=1 THEN GX=19: GL-8 ELSE GX=19+10: GL 
=10 

3068 LOCATE PX«GX-1,PY: PRINT MID$Q$, GX, GL); 
3070 GOSUB 4058 

3080 RETURN 

3100 REM CR ТА УЛ 

3110 PX=5: PY=1: =” СЕ TAHKE 高 解像度 
ノ 標 準 解像度 " 

5120 LOCATE PX,PY: PRINT W$; 

3138 IF KC-8H1C OR КС=8Н1р THEN IF RESN-1 THEN R 
ESN-2 ELSE RESN-1 

5140 GOSUB 4000: IF RESN=9 THEN LOCRTE РХ,РУ: PR 
INT MID$(4$,1,16);: GOTO 5170 

3158 IF RESN=1 THEN GX=19: GL=8 ELSE GX=19+10: G 
L-18 

5160 LOCATE PX«GX-1,PY: PRINT MID$ (W$, GX, GL); 
31780 GOSUB 4050 

3180 RETURN 

3200 REM МУСЕ FORM 

3210 PX-5: PY=2: W=" ЖЕНЕ BS1 回 
BS2 回 で 漢字 1 字 を 消去 " 

3220 LOCATE PX,PY: PRINT W$; 

3230 IF КС=8НІС OR KC=&H1D THEN IF KBSN=1 THEN К 
BSN=2 ELSE KBSN=1 

3240 GOSUB 4000: IF KBSN=0 ТНЕМ 10САТЕ PX,PY: PR 
INT MID$(4$,1,16);: GOTO 3270 

3250 IF KBSN=1 THEN GX=19: GL=8 ELSE GX=19+10: G 


L=8 
5268 LOCATE PX+GX-1,PY: PRINT МФ ($, GX, GL); 
2270 GOSUB 4050 

3280 RETURN 

3300 REM DEL コ ー ド 処 の 表示 

3510 PX=5: PY=3: ! ゆ ="DEL コ ー ド 処理 BS と し 
て 処理 / 何 もし な い " 

3320 LOCATE PX,PY: PRINT W$ 

5550 IF KC=8H1C OR KC=8H1D THEN IF DELNE1 THEN D 
ELN-2 ELSE DELN-1 

3340 GOSUB 4000: IF DELN=9 THEN LOCATE РХ,РУ: PR 
INT MID$(4$,1,16);: GOTO 3370 

3358 IF DELN=1 THEN GX=19: GL=14 ELSE GX=19+16: 
G -18 

3360 LOCATE PX«GX-1,PY: PRINT MID$(W$, GX, GL); 
3370 GOSUB 4050 

3380 RETURN 

4000 IF CBR THEN CFLRSH 1 ELSE CREV 1 

4010 RETURN 

4050 CFLASH 0: CREU û 

4068 RETLRN 

5000 REM 通信 処理 (初期 設定 ) 

5818 INIT "MEM8:": INIT "МЕМІ:" 

5020 IF RESN=1 THEN WIDTH 88,25,1,2: CONSOLE 8,2 
4 ELSE WIDTH 88, 12, В, 1:CONSOLE 0,11 

5050 SCREEN: KLIST 1 

5040 REM キャ ラク タ ・ コ ー ド 処理 番号 変換 テー 
ブル 設定 

5042 FOR 1=8 TO 8HFF: POKE &HEFQB*I,8: NEXT I: R 
М テー ブル 初期 人 

5044 POKE 8HEF07,1: КЕМ BEL 

5046 IF KBSN=1 THEN POKE &HEF08,3 ELSE POKE &HEF 
08,4: КЕМ BS 

5048 POKE &HEF09,5: REM ТАВ 

5050 POKE 8HEFBA,6: КЕМ LF 

5052 POKE &HEFOD,7: КЕМ СЕ 

5054 IF DELN=1 THEN POKE &HEF?F,PEEK(&HEF08): RE 
М DEL 

5056 FOR 1=8Н20 TO 8H7E: POKE 8HEF9HI,1: NEXT I 
: REM 英 数 字 ・ 英 記号 

5058 FOR 1=&НАй TO &HDF: POKE &HEF8Q*I,1: NEXT I 
: REM カナ ・ カ ナ 記 号 

5060 FOR 1=8Н80 TO 8H9F: POKE 8HEF89HI,2: NEXT I 
: КЕМ 漢 字 の 第 1 バイ ト 目 

5062 FOR 1=&НЕ@ ТО &HFE: POKE &HEF00+1],2: NEXT I 
: REM 漠 字 の 第 1 バイ ト 目 

5100 KEY1, "終了" 

5118 КЕҮ2, "7"L-2" 

5120 KEY3, АУЫ)” 

5130 KEY4," F 受信 " 

5140 KEY5,"F 送信 " 

5150 KLIST 1 

5200 С%(0)-” "+CHR$(&H1D): С$(1)=”” 

5010 В%(0)-” "*+CHR$(8H1D): B$(1)="" 

5020 BS$=CHR$(8H8): ESC$=CHR$(8H1B): CB$=CHR$(8H 
1D) 

5230 СҒ-й 

5248 DF=0 
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5258 DFC=0 
5268 IF DB$-"8" THEN SIOC1=&HFR: SIOC2=8HEA ELSE 
510С1-%ҢВА: SIOC2-0n 


5488 PRINT" xxxxssxssxxssxssxaco oo cor 
” 


жїк 

5482 PRINT”! 漢字 ター ミナ ル ・ プ ログ ラム 通信 開始 
y" 

5404 PRINT” яя ЕЕК 

xxx" 

5418 PRINT C$(F); 

5420 W$=BR$+PB$+DB$+SB$+CC$+SP$+CRS$+CRR$+KC$ 

5438 OPEN "С", t1, "COM: "+ 

5440 ON KEY GOSUB 10000, 6508, 7000, 8000, 9000: KEY 

ON 

5500 КЕМ 通信 処理 メイ ン ・ ル ー プ 

5502 ON ERROR GOTO 12000 

5504 IF LOC(1)<1 THEN 5700 

5506 [$=INPUT$(1,81): 1=PEEK(8HEF99+RSC(I$)) 

5508 ON 1 GOTO 5518, 5528, 5550, 5540, 5550, 5560, 557 

0: GOTO 5610 

5518 PRINT 1$;C$(CF);: GOTO 5600: REM 英 政 字 ・ 英 

記号 ・ カ ナ ・ カ ナ 記 号 

5520 IF LOC(1)=9 THEN 5520: КЕМ 漢字 の 2 バイ ト 目 

の 受信 を 待つ 

5525 1%-|9-ІМРІЛ9(1,01):РКІМТ I$;C$(CF);:GOTO 56 

00: REM 漢字 表示 

5550 1$=В5$: PRINT 16;С%(СҒ);: СОТО 5600: REM 
BS (BS 1 回 で 漢字 1 字 消 去 ) 

5548 KEY STOP: GOSUB 6000: KEY ОМ: СОТО 5600: RE 

M BS (BS2 回 で 漢字 1 HZ 

5550 PRINT ВФ(СҒ);196;С%(СҒ);: GOTO 5600: REM 
TAB 表 示 

5560 KEY STOP: GOSUB 6100: KEY ON: GOTO 5600: RE 

MLF 表示 

5570 KEY STOP: GOSUB 6200: KEY ОМ: GOTO 5600: RE 

MCR 表示 

5600 IF DF THEN PRINT H2,1$: 

5618 "0070 5504 

5700 K$=INKEY$: IF K$-"" THEN 5504 ELSE K=PEEK(& 

НЕРОВ+АСС (КФ) ) 

5718 ON К GOTO 5750,5740,5750,5750,5750,5750,573 

0 

5720 GOTO 5708 

5750 PRINT #1,"": GOTO 5768 

5740 K$=K$+INKEY$ 

5750 PRINT 11,К%;, 

5760 IF LON=2 ТНЕМ 5504 

5770 ОМ К GOTO 5818, 5828, 5850, 5840, 5850, 5860, 587 

0: GOTO 5700 

5818 PRINT K$;C$(CF);: GOTO 5700: REM 英 数 字 ・ 英 

記号 ・ カ ナ ・ カ ナ 記 号 

5820 PRINT K$;C$(CF);: СОТО 5700: REM 漢字 

5830 PRINT K$;C$(CF);: GOTO 5700: REM BS (BS 

1 回 で 漢字 1 字 消去 ) 

5840 KEY STOP: GOSUB 6000: KEY ON: GOTO 5700: RE 


M BS (BS2 回 で 漢字 1 PME) 
5858 PRINT ВФ(СҒ);К%;С%(СҒ);:0070 5700: REM ТА 
B 
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5868 KEY STOP: GOSUB 6100: KEY ОМ: СОТО 5700: RE 

M ライ ン フ ィ ー ド 

5870 PRINT B$(CF): PRINT C$(CF);: GOTO 5700: REM 
CR 

6000 REM BS 処理 ( BS2 回 で 漢字 1 字 を 消去 ) 

6010 1%-В5%: СХ-Р05(0): CY=CSRLIN 

6020 IF СХ+СҮ=Й THEN RETURN 

6050 IF СХ-й THEN EC=ñSC(SCRN$(79,CY-1,1)) ELSE 
EC=RSC(SCRN$(CX-1,CY)) 

6040 IF РЕЕК(ФНЕҒ ЙФЕС)-2 THEN PRINT ВФ(СҒ);СВФ; 

C$(CF); ELSE PRINT BS$:C$(CF): 

5858 RETURN 

6100 КЕМ LF 表示 サブ ルー チン 

6118 СХ-Р05(0): PRINT B$(CF) 

6128 LOCRTE CX,CSRLIN 

6150 CF=0: PRINT C$(CF): 

6140 RETURN 

6200 REM CR 表示 サブ ルー チン 

6218 IF CRRN=1 THEN PRINT B$(CF): PRINT C$(CP);: 
RETURN 

6220 PRINT B$(CF);: CF=1: LOCATE 9,CSRLIN: RETUR 

N 

6580 REM ブレ ー ク 信号 送信 処理 


6510 KEY OFF 

6520 OUT sH1F91,8H5 "TSO・WR5 ャ レ 
クト 

6550 OUT 8Н1291, 51001 "セン ド ・ ブ レー ク 設 
定 


6540 FOR Т-1 TO 400: NEXT Т 


6558 OUT &HIF91,8H5 "TSO・WR5 ャ セレ 
クト 

6568 OUT &Н1Е91,510С2 "セン ド ・ ブ レー ク 解 
Я 


6588 KEY ОМ: RETURN 

668 PRINT "KEY INTERRUPT 7” 

6610 RETURN 

7000 REM F I LESNE 

7010 KEY OFF:PRINT B$(CF): PRINT 

7828 COLOR 6: PRINT"*** ディ レク トリ 表示 処理 *** 
オキ キキ キキ ネネ キネ ネネ 本 キ キキ キキ キキ キキ キネ キネ ネネ ネネ ネネ ネネ ネネ ネネ ネオ キネ 
xxx": COLOR 7 

7050 PRINT" デ ィ レ クト リ 表 示 を する デバ イス を 指定 
し て くだ さい (1:FD 2:FD1 3:МЕМВ 4:MEMD" 

7040 DV$-"": INPUT " Input Number..."; DVS 
7858 IF DU$-"" THEN PRINT "F ILE S ДФЈ": 
GOTO 7230 

7118 IF DV$-"1"THEN DV$-"Q:": СОТО 7200 

7120 IF DV$-"2"THEN DU$-"1:": GOTO 7200 

7138 IF DV$="3"THEN DV$-"MEMB:": СОТО 7200 

7148 IF DU$-"4"THEN DV$-"MEM1:" ELSE ВЕЕР: GOTO 
7848 

7288 ОМ ERROR СОТО 7300 

7218 FILES D$ 

7220 ON ERROR GOTO 12000 

7250 COLOR 6: PRINT жж жж жж ххх 
EXXTXEXYXZXZXEXYXXXXXEYXEXXXXXXXXXXXXXXXXXXXXXXEkxk 


xxx": COLOR 7 


7248 PRINT C$(CF);: KEY ON 


7250 RETURN 

7300 BEEP: COLOR 6: PRINT" 指 定 し た デバ イス に 異常 

が あり ます ": COLOR 7 

7818 PRIN" 1. 再読 み 出し を する 2. 読み 出し 

を 中 止 する Input Number...”; 

7320 RNS$-"": INPUT RNS$ 

7338 IF А№%="1" THEN RESUME 

7340 IF RNS$-"2" THEN RESUME 7220 

7358 ВЕЕР: GOTO 7310 

8000 REM ファ イル 受信 処理 設定 

8010 KEY OFF: PRINT B$(CF) 

8030 IF DF=9 THEN COLOR 6: PRINT "**x ファ イル 受 

信 の 設定 を し ます ooo oc mcr 

жж": COLOR. 7: СОТО 8100 

8040 DF=9: CLOSEH2 

8050 COLOR 6: PRINT "xx ファ イル 受信 終了 кж» 

ネオ ボネ ネネ ネネ ※ ネ ネネ ネネ ネネ ネネ File name="; DF$: COLOR 7 

8060 СОТО 8660 

8100 PRINT "メモ リ ・ フ ァイル の 選択 " 

8118 PRINT" 1, MEMO : i"; AKCNV$(STR$ (DEV 

FO"MEMB:”)); "クラ スタ 空き " 

8120 PRINT" 2. MEM1 : i£"; RKCNV$(STR$(DEV 

FO"MEM1:”)); "2222728" 

8130 PRINT "どちら の メモ リ を 使い ます か Input Num 

ђег..."; 

8140 RNS$-"": INPUT АМФ 

8150 IF RNS$-"1" THEN МФ-"МЕМй:”: СОТО 8288 

8168 IF RNS$-"2" THEN M$-"MEM1:": СОТО 8200 

8178 IF RNS$O"" THEN ВЕЕР: GOTO 8138 

8180 COLOR 6: PRINT"**s ファ イル 受信 の 設定 を 中 断 

し ます ***k** ネ ネネ ネ キネ ネネ キネ キキ ネネ キネ ネネ ネネ ネネ ネネ ネネ ネネ キキ ネネ ネ ネネ キキ 

xxx”: COLOR 7: СОТО 8668 

8200 PRINT "ファ イル 名 を 指定 し て くだ さい " 

8218 PRINT" File name...";: DF$="": INPUT DF$ 

8220 IF DF$-"" THEN ВЕЕР: PRINT: СОТО 8188 ELSE 

DF$-M$«DF$ 

8230 ON ERROR GOTO 8500 

8240 OPEN "I",82,DF$: CLOSE #2: J=1 

8258 ON ERROR СОТО 12000 

8260 ON J СОТО 8408, 8588, 8600 

8278 BEEP:COLOR 6: РЕМ” X €) • 7 71» • 72 

セス ・ エ ラー”":COLOR 7: GOTO 8818 

8300 IF ERR-53 THEN J=3: RESUME 8250: REM 新 フ ァ 

ィ ル 作成 

8318 IF ERR-65 THEN Ј=2: RESUME 8250: REM ファ イ 

ルディ スク リプ タ 異 常 

8320 1-5: RESUME 8258: КЕМ その 他 

エラ ー 

8400 BEEP:COLOR 6: PRINT" 同 名 の ファ イル が あり ま 
"COLOR 7: РАМТ "1. ファ イル 名 再 指定 2 

. 追加 書き 込み " 

8410 PRINT" Input number..."; 

8420 RNS$-"": INPUT RNS$ 

8450 IF RNS$-"1" THEN PRINT" フ ァイル 名 の 再 指定 を 

し て くだ さい ": GOTO 8210 

8440 IF RNS$O"2" THEN ВЕЕР: GOTO 8418 

8450 ON ERROR GOTO 8700 

8460 OPEN "А", 12, DF$ 


8478 ON ERROR GOTO 12000 

8488 GOTO 8650 

8500 ВЕЕР: COLOR 6: PRINT" フ ァイル 名 の 指定 に エラ 
ー が あり ます ": COLOR 7 

8510 PRINT" フ ァイル 名 の 再 指定 を し て くだ さい " 
8520 GOTO 8210 

8688 ON ERROR СОТО 8700 

8618 OPEN "0”,02,0Ғ% 

8620 ON ERROR СОТО 12000 

9640 FI$DFC)=DF$: DFC=DFC+1 

8658 DF=-1: COLOR 6: PRINT "за: ファ イル 受信 を 開 
始 し ます **x** ネ ネネ ネネ ネネ ネオ オキ ネネ ネネ ネネ ネネ まま 本 玉林 本 本 
** ま ネネ ネネ まま ** ま ま COLOR 7 

8668 PRINT C$(CF);: KEY ON 

8670 RETURN 

8700 BEEP: COLOR 6: PRINT "受信 ファ イル が 設定 で 
きま せん ・ 空 き ク ラス タ 数 等 を 確認 し て くだ さい ": С 
OLOR 7 

8718 RESUME 8110 

9000 REM ファ イル 送信 処理 ルー チン 

9818 KEY OFF: PRINT B$(CF) 

9020 COLOR 6: PRINT "xx ファ イル 送信 処理 ***** 
キオ ネネ ネネ ネネ ネネ ネネ ネ ネネ ネネ ボネ ネネ ネネ キネ キキ ネネ ネネ ネオ ネネ ネネ キネ キネ ネ キ ホキ 
xxxx": COLOR 7 

9050 IF DF=9 THEN 9100 

9040 ВЕЕР: PRINT "ファ イル 受信 処理 中 に つき ファ イ 
ル 送 信 で きま せん " 

9050 M$-"": СОТО 9540 

9100 REM ファ イル 送信 処理 を する 

9118 PRINT " 送信 する ファ イル 名 を 指定 し て くだ さ 
e" 

9120 UF$-"": INPUT " File name..."; ЏЕФ 

9130 IF UF$-"" THEN M$-":** ファ イル 送信 中 止 ": 
GOTO 9540 

9140 ON ERROR GOTO 9800 

9158 OPEN "1", #2,UF$ 

9160 ON ERROR GOTO 12000 

9170 РКІМТ: SC=0 

9200 IF SC=9 ТНЕМ FOR T=1 TO 1000: NEXT Т 

9218 FF EOF(2) THEN M$="**= ファ イル 送信 終了 ": 
GOTO 9500 

9220 IF INKEY$ く <>ESC$ THEN 9500 

9238 PRINT: COLOR 6: PRINT" フ ァイル 送信 停止 中 : C 
ESC] 以 外 の キー で 再開 , [ESC] キ ー で 送信 中 断 ": 

9040 U$=INKEY$(1) 

9250 IF U$=ESC$ THEN COLOR 7: PRINT: M$="*** 7 
ァイル 送信 中 断 ": GOTO 9500 

9260 PRINT" プ ファ イル 送信 再開 ": COLOR 7: GOTO 92 
29 

9500 WHILE A<LOC(1): U$=INPUT$(1,#1): U=PEEK(8HE 
F00+ñSC(U$)): GOSUB 9600: WEND 

9310 U$-INPUT$(1,H2): U=PEEK(&HEF00+ñSC(U$)): SC 
=(SC+1)MOD2S6 

9320 ON Ц СОТО 9359,9359,9349,9349,9359,9359,933 
8: GOTO 9360 

9330 PRINTH1,U$;: FOR T=1 TO 1000: NEXT Т: GOTO 
9360 

9340 U$=BS$ 


リス ト 1 
9350 PRINTH1, U$; 
9360 IF LON=2 THEN 9200 
9400 ON U GOTO 3418, 3418, 9418, 9428, 9410, 9430, 944 
0: GOTO 9200 
9410 PRINT U$;: GOTO 9200 
9420 GOSUB 9700: GOTO 9200 
9430 UCX-POS(B): PRINT: LOCATE UCX,CSRLIN: GOTO 
9200 
9440 IF CRSN=1 THEN PRINT ELSE LOCATE 9,CSRLIN 
9458 GOTO 9200 
9500 CLOSE H2: REM ファ イル 送信 終了 処理 
9518 FOR Т=1 TO 588 
9520 WHILE B<LOC(1): U$=INPUT$(1,H1): ЏЕРЕЕКСВНЕ 
F00+ñSC(U$)): GOSUB 9600: WEND 
9530 NEXT T 
9548 PRINT: COLOR 6: PRINT M$; "аххакакхакка ххх 
オキ ネネ ネネ ネネ ネネ ネネ キネ ネ キ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ リト COL 
OR 7 
9550 PRINT: PRINT C$(CF);: KEY ON 
9568 RETURN 
9600 ОМ U СОТО 9618, 9618, 9618, 9788, 9610, 9620, 965 
0: RETURN 
9610 PRINT U$;: RETURN: REM 英 数 字 ・ 記 号 , カナ 
・ カ ナ 記 号 , RF, BS (1) 
9620 UCX=POS(0): PRINT: LOCATE UCX, CSRLIN: RETUR 
N: REM LF 
9630 IF CRRN=1 THEN PRINT: RETURN ELSE LOCATE 8, 
CSRLIN: RETURN: REM CR 
9700 REM BS (2) 
9720 ШСХ-Р05(0): UCY=CSRLIN 
9730 IF UCX+UCY=0 THEN RETURN 
9748 IF UCX=0 THEN UEC=ñSC(SCRN$(?9,UCY-1,1)) EL 
SE UEC=RSC(SCRN$(UCX-1,UCY)) 
9750 IF PEEK(&HEF0OD+UEC)=2 THEN PRINT CB$;" ";CB 
$; ELSE PRINT U$; 
9760 RETURN 
9800 REM ファ イル 送信 処理 の ファ イル 名 指定 エラ ー 


9810 BEEP: COLOR 6 

9820 IF ERR-53 THEN PRINT" 指 定 し た ファ イル が 見 つ 
か り ま せん ": COLOR 7:RESUME 9110 

9830 IF ERR-65 THEN PRINT" デ ィ ス クリ プ タ 指 定 に 誤 
り が あり ます ":COLOR7:RESUME 9110 

9848 IF ERR=73 THEN PRINT" 入 出力 装置 に 異常 が あり 
ます ": COLOR 7: RESUME 9110 

9858 PRINT" ウ ァイル が オー プン で きま せん ": COLOR 
7: RESUME 9110 ° 

10000 REM 通信 終了 処理 

10002 KEY OFF: PRINT B$(CF): COLOR 6: PRINT" 通 
信 を 終了 し て よい で すか Ү/М...";: RNS$-"": INPUT 
RNS$ 

10004 IF ñNS$="N" OR RNS$-"n" THEN COLOR 7: PRIN 
T C$(CF)j: KEY ON: RETURN 

10006 IF RNS$-"Y" OR RNS$-"y" THEN 10010 ELSE BE 
EP: GOTO 10002 

10010 CLOSE 11,2: DF=8 

10020 PRINT"*** 通信 終了 処理 を し ます ****x****** 
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LOR 7: WFC=0 
10050 IF DFC=9 THEN 18588 
10040 PRINT" フ ァイル 受信 し た デー タ を ディ スク に 転 
送 し ます " 
10050 PRINTT ド ライ ブ 0 に デー タ を 書き 込む ディ スク 
を セッ ト し て くだ さい " 
10052 PRIN" 1. 書き 込み 開始 " 
10054 PRIN" 2. 書き 込み を し な いで 終了 " 
10056 PRINT" Input Number...";: ANS$="": INPUT 
RNS$ 
10060 IF ANS$="2" THEN 10500 
19878 IF RNS$O"1" THEN ВЕЕР: GOTO 18856 
10100 MFN=9 ON ERROR СОТО 10900 
10110 WHILE MFN<DFC 
10120 OPEN "1",H1,FI$(MFN) 
10125 PRINT: PRINT USING "R sHH & 
& 転送 チェ ッ ク " "No."; WFN+1; FI$(WFN) 


10150 DC=DEVF("0:"): FC=(LOF(15\16+1): IF FC=<DC 
THEN 10200 ELSE BEEP 

10148 COLOR 6: PRINTT デ ィ ス ク の 未 使用 クラ スタ 不 
g "; DC: COLOR 7 

10142 PRINT” 1. ディ スク 交換 " 

10144 PRINT” 2, 次 の ファ イル へ 進む " 

10146 PRINT" Input Number...";: BNS$z"": INPUT 
RNS$ 

10150 IF RNS$-"1" THEN 10125 

10160 IF RNS$-"2" THEN CLOSE #1: GOTO 10450 
10170 BEEP: GOTO 10146 

10200 DF$="0:"+MID$(FI$(WFN),6,17) 

10210 ON ERROR GOTO 10700 

10220 OPEN "I",H2,DF$: 1-0: CLOSE #2 

10250 ON ERROR GOTO 10900 

18240 ON J GOTO 10130,10400 

18258 ВЕЕР: COLOR 6: PRINT" デ ィ スク 上 に 同名 ファ 
イル 有り ": COLOR 7 

18252 PRIN" 1. ディ スク 交換 " 

10254 PRIN" 2. ファ イル 名 を 変え て 転送 する " 
18256 PRIN" 3. ディ スク 上 の 同名 ファ イル を 消去 
する " 

10258 PRIN" 4. 次 の ファ イル へ 進む " 

18268 PRINT" Input Number...";: ANS$="”: INPUT 
ANS$ 

10270 IF ñNS$="1" THEN 10125: REM 空き チェ ッ ク 
へ 戻る 

18288 IF RNS$="2" THEN PRINT" ファ イル 名 変更 | 
nput Neu File Name...";: INPUT DF$: DF$s"Q:"«DF$ 
: GOTO 18218 

19298 IF RNS$="4" THEN CLOSE t1: СОТО 18458 
10500 IF ANS$<>"3"THEN ВЕЕР: СОТО 10260 

10510 COLOR 6: PRIN" ドラ イブ 0 の ファ イル "; 
DF$; " を 消去 し て よい で すか ": COLOR 7 

18312 PRINT" 1, ЖЕ 2. 中 止 Input Number 
25: А№%="": INPUT ñNS$ 

10520 IF RNS$="2" THEN 18258 


10330 IF ANS$<>"1"THEN ВЕЕР: СОТО 10512 
10540 ОМ ERROR СОТО 10800 
10350 KILL DF$: J=-1 


10560 ON ERROR СОТО 10900 

10570 IF J THEN 10400: REM 転送 へ 移る 

10580 PRINT" フ ァイル が 消去 で きま せん " 

10590 GOTO 10250 

10400 REM ファ イル 転送 

10410 OPEN "O",H2,DF$: PRINT "転送 開始 "; 

10412 WHILE EOF(1)=0: PRINTH2, INPUT$C1, H1); : WEN 

D: CLOSEH1, 2 

10440 KILL FI$(WFN): FI$(WFN)="": WFC=WFC+1: PRI 

NT "хит": 

10450 WFN=WFN+1 

10460 WEND: КЕМ MHILE=19119 

10470 PRINT 

18588 IF DFC=MFC THEN 10560 

18518 PRINT: PRINT" 次 の 受信 デー タ ・ フ ァイル が メ 
モリ に 残っ て いま す " 

18528 FOR WFN=0 TO DFC 

10550 IF FI$(WFN)="” THEN 10550 

10540 PRINT USING "& 888 "; "No.",WFN+1;: PRINT 
FI$(WFN) 

10550 NEXT WFN 

18568 PRINT 

18578 RETURN 10580: REM 非 正 規 リ ター ン で 通信 ル 
ー プ か ら 抜 ける 

10580 RETURN: КЕМ 初期 メニ ュー へ 戻る 

10700 КЕМ 終了 処理 中 の ディ スク 上 の ファ イル 名 チ 
ェ ッ グ << く < くく < くく くく くく くく くく くく くく くく くく く 

10710 IF ERR=53 THEN Ј=2: RESUME 10250 ELSE ВЕЕР 


10720 IF ERR=73 THEN 1-1 ELSE 10940 

18738 COLOR 6: PRINTT ド ライ ブ 0 に ディ スク を セッ 
ト し て リタ ー ン を 押し て くだ さい ”":: COLOR 7 

18748 INPUT RNS$: RESUME 10250 

10800 REM 終了 処理 中 の 同名 ファ イル 消去 時 の エラ 
ー СС 

10810 ВЕЕР: J=9: RESUME 10560 

10900 ВЕЕР: COLOR 6: REM 終了 処理 中 の ェ ラ ー << 
て < くく く < くく くく くく くく く < くく くく くく くく くく くく く 

10910 IF ERL=19139 THEN PRINT ELSE 10920 

18915 PRINT "ドラ イブ 0 に ディ スク を セッ ト し て リ 
ター ン を 押し て くだ さい "jj: COLOR 7: INPUT АМ: R 
ESUME 

10920 IF ERL=19419 THEN PRINT ELSE 10950 

10925 PRINTT ド ライ ブ 0 に 書き 込み が で きま せん 7 


ェ ッ ク し て リタ ー ン を 押し て くだ さい ";: COLOR 7: T 

NPUT ANS$: RESUME 10125 

10950 IF ERL=19412 THEN COLOR 6: PRINT" ラ ァイル 

転送 エラ ー": CLOSE #1 ELSE 10980 

10940 IF ERR=73 THEN PRINT" デ ディスク 書き 込み 中 に 
エラ ー が 発生 し まし た "ELSE 10980 

10950 PRINT" 以 後 の 処 理 が 正常 に 行え ませ ん — 

源 を 切っ て 再起 動 し て くだ さい ": COLOR 7: STOP 
10980 PRINT: PRINT "ЛЕЛ & '3 x5 ў 

生 し まし た " 

10990 PRINT "プロ グラ ム を 中 断 し ます Line"; ERL; 
" Error NO"; ERR: COLOR 7: STOP 

12000 ВЕЕР: COLOR 6: REM 通信 処理 お よび ファ イル 

送受 信 中 の エラ ー ССС 

12010 IF ERR=56 THEN PRINT" " ELSE 12100 

12020 IF ERL-5506 THEN PRINT" 受 信 ェ ラー 発生 ": 1$ 

=”1":COLOR 7: RESUME NEXT 

12050 IF ERL=5525 THEN PRINT" 受 信 ェ ラー 発生 ": 1$ 
-[$*" ": COLOR 7: RESUME NEXT 

12040 IF ERL=9300 THEN PRINT" 受 信 ェ ラー 発生 ": U$ 
="1": COLOR 7: RESUME NEXT 

12058 IF ERL-9520 THEN PRINT" 受 信 ェ ラー 発生 ": U$ 

="!": COLOR 7: RESUME NEXT 

12068 GOTO 12900 

12100 IF ERL=9219 THEN PRINT" ":PRINT" 送 信 フ ァ イ 
ル が 正 く 読め ませ ん ":GOTO 12128 

12110 IF ERL=9319 THEN PRINT" ":PRINT" 送 信 フ ァ イ 
ル が 正 く 読め ませ ん "ELSE 12200 

12120 M$-"*«* 送信 強制 中 断 ": CLOSE H2: COLOR 7: 
RESUME 9500 

12200 IF ERR=69 RND ERL=5699 THEN 12210 ELSE 129 
ag 

12218 PRINT" ": PRINTT フ ァイル 受信 用 メモ リ が オー 
ッ \ー ッ ワウ ロー し まし た " 

12220 PRINT” 7 у 4 УЧЕЋИ T 29 File n 
ате:"; DF$ 

12230 PRINT" こ の ファ イル の 内 容 は 保証 され ませ ん の 

で 注意 し て くだ さい " 

12240 DF-8: CLOSE H2: COLOR 7: PRINT C$(CF);: RE 
SUME 5600 

12900 PRINT" ": PRINT "復帰 処理 不能 エラ ー 発 生 
プロ グラ ム を 中 断 し ます Line"; ER; " Error №” 
; ERR: COLOR 7: STOP 
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190 **k ネ キネ ネネ キ キネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ホネ ネネ 本 ま ネネ キネ キネ ネネ ネネ キキ キネ ネネ ネオ 本 まま ネネ 


118 '* 


120 '* ファ イル 転送 テー ティ リティ ・ プ ログ ラム Мег.1.0 


130 '* 
140 '* 1985 年 8 月 22 日 
158 '» 


168 '* ВЕ BE 株 式 会 社 テレ スタ ー 
170 а 


180 「* ネ ォ ネ ネネ ネネ キネ キネ ネ キ キキ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ キネ ネネ キネ 


190 OPTION SCREEN 4 
200 PRINT "ファ イル 転送 スー チ ィ リティ ・ プ ログ ラ 
L Ver.1.0” 


218 PRINT " 1985.8.22 (С) TeleStar inc.": PRI 
NT 

220 COLOR 6: PRINT ” 高 解像度 ディ プレ イ を 使用 
し て いま すか ": 

230 COLOR 6: PRINT " GIN, 2,7% 

235 COLOR 7: RNS$-"": INPUT ANS$ 

240 IF ANS$=”Y” OR ANS$="y” THEN WIDTH 88,25,1, 
2: GOTO 278 

258 IF RNS$-"N" OR RNS$-"n" THEN WIDTH 88, 12,8, 
1: GOTO 278 

268 ВЕЕР: GOTO 230 


270 KMODE 1: SCREEN 


300 REM ++2277•2— коње 変換 テー 


LO 
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сы 
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LO 


リス ト 2 


ブル 設定 

510 CLEAR 8HEFMM 

320 FOR 1-0 TO 8HFF: POKE НЕР Й»1,0: NEXT I 
33 POKE &HEF7,3: КЕМ BEL 

332 POKE &HEF88,3: REM BS 

554 POKE &HEFU9,3: REM TAB 

336 POKE 8HEFüR,4: REM L F 

338 POKE &HEF9D,5: REM СЕ 

350 FOR 1=8Н20 TO &H7E: POKE 8HEF99+I,1: NEXT I 
: REM 英 数 字 ・ 英 記号 

352 FOR I=8HAQ TO &HDF: POKE 8HEF99+I,1: NEXT I 
: REM カナ ・ カ ナ 記 号 

354 FOR 1=8Н8@ TO &Н9Е: POKE 8HEF9g+I,2: NEXT I 
: КЕМ REDS 1274 FB 

356 FOR 1=&НЕЙ TO &HFE: POKE &HEF00+],2: NEXT I 
: REM 漠 字 の 第 1 パイ ト 目 

400 LF$=CHR$(8HA): CR$=CHR$(8HD): ESC$=CHR$(8H1 
B) 

500 PRINT: COLOR 6: REM メイ ン ・ メ ニュ ー 表 示 
518 PRINT "ファ イル 転送 スー ティ リティ ・ メ イン ・ 
メニ ュー": COLOR 7 

528 PRINT " 1. ファ イル の 内 容 を 表示 する " 

522 PRINT" 2. ファ イル の 内 容 を プリ ンタ に 出力 
する " 

524 PRINT" 3. ファ イル の 内 容 を 転送 を する " 
526 РАМ " 4, ファ イル の 内 容 に 行 番号 削除 処理 
を し 転送 する " 

528 PRINT" 5. ファ イル の 内 容 に 行 番号 付加 処理 
を し 転送 する " 

538 PRINT ” 6. ディ レク トリ を 表示 する 

532 PRINT" 7, BAS I C に 戻る " 

549 PRINT 

558 PRINT " Input number...";: RNS$-"": [NPU 
T RNS$ 

568 IF ANS$="1” THEN GOSUB 1100: GOTO 500 

562 IF ANS$=”2” THEN GOSUB 1200: GOTO 500 

564 IF NNS$="3" THEN GOSUB 1500: GOTO 500 

566 IF RNS$-"4" THEN GOSUB 1400: СОТО 588 

568 IF RNS$-"5" THEN GOSUB 1500: GOTO 580 

578 IF RNS$-"6" THEN GOSUB 1600: GOTO 500 

572 IF RNS$-"?" THEN СОТО 1700 

588 BEEP: GOTO 550 

800 REM 書き 込み ファ イル の 取り 消し 

810 ON ERROR GOTO 850 

812 CLOSE #2 

814 ON ERROR GOTO 0 

816 RETURN 

850 BEEP:COLOR 6:PRINT "書き 込み ファ イル の 取り 
消し が で きま せん ": RESUME 9912 

900 КЕМ キー・ ボ ー ド か ら の 1 文字 入力 C [RETURN 
] キ ー 不 要 ) 

910 RNS$-INKEY$: IF ANS$=”” THEN 910 ELSE RETUR 
N 

1180 КМ ファ イル の 内 容 の 表示 

1118 COLOR 6: PRINT: РАМТ "No.1 ファ イル の 
内 容 を 表示 し ます ": COLOR 7 

1120 PRINT: GOSUB 2000 

1130 IF BRCK=1 THEN COLOR 6: PRINT "処理 中 止 ": 
COLOR 7: GOTO 1150 ELSE PRINT 

1140 р=1: Р=Й: Т=0: PRINT: GOSUB 5000 

1150 RETURN 


1220 PRINT: GOSUB 2000 
1250 IF BRCK=1 THEN PRINT "処理 中 止 ": СОТО 1290 


1240 PRINT: GOSUB 2800 

1250 IF ВАСК=1 THEN CLOSE #1: GOTO 1220 

1260 PRINT: GOSUB 2700 

1278 IF BACK=1 THEN 1240 ELSE IF Dei THEN D=P 
1280 PRINT: Т=0: PRINT: GOSUB 5000 

1299 RETURN 

1300 КЕМ ファ イル の 通常 転送 

131 COLOR 6: PRINT: PRINT "No.3 ファ イル の 
転送 を 行ない ます ": COLOR 7 

1329 PRINT: GOSUB 2000 

1330 IF BRCK=1 THEN PRINT "処理 中 止 ": GOTO 1390 


1540 PRINT: GOSUB 2200 

1350 IF BACK=1 THEN CLOSE #1: GOTO 1320 ELSE T= 
1 

1560 PRINT: GOSUB 2700 

1378 IF BACK=1 THEN GOSUB 800: Т-й: СОТО 1540 
1380 PRINT: Рей: PRINT: GOSUB 3000: Т=й 

1290 RETURN 

1400 REM ファ イル の 行 番号 削除 転送 

1410 COLOR 6: PRINT: PRINT "No.4 ファ イル の 
行 番号 削除 転送 を 行ない ます ": COLOR 7 

1429 PRINT: GOSUB 2000 

1430 IF BRCK=1 THEN PRINT "処理 中 止 ": GOTO 1498 


1440 PRINT: GOSUB 2200 

1450 IF BRCK=1 THEN CLOSE H1: GOTO 1420 ELSE T= 
1 

1468 PRINT: GOSUB 2600 

147M IF BRCK=1 THEN GOSUB 800: Т=й: СОТО 1440 
1475 PRINT: GOSUB 2700 

1488 IF BRCK=1 THEN 1460 

1485 PRINT: Р=0: GOSUB 4000: T=0 

1490 RETURN 

1500 REM ファ イル の 行 番号 付加 転送 

1518 COLOR 6: PRINT: РАМТ "No.5 ファ イル の 
行 番号 付加 転送 を 行ない ます ": COLOR ? 

1520 PRINT: GOSUB 2000 

1530 IF BRCK=1 THEN PRINT "処理 中 止 ": GOTO 1590 


1548 PRINT: GOSUB 2200 

1558 IF BACK=1 THEN CLOSE #1: GOTO 1520 ELSE T= 
1 

1560 PRINT: GOSUB 2900 

1565 IF BACK=1 THEN GOSUB 800: Т=0: GOTO 1548 
1570 PRINT: GOSUB 2700 

1575 IF ВАСК=1 THEN 1568 

1588 PRINT: P=0: GOSUB 5000: T=8 

1590 RETURN 

1600 КЕМ ディ レク トリ の 表示 

1618 COLOR 6: PRINT: PRINT "6. ディ レク トリ の 
表示 を し ます ": COLOR 7 

1620 COLOR 7: PRINT "ディ レク トリ を 表示 する デバ 
イス を 指定 し て くだ さい ( 1:FDQ 2:FD1 5:МЕМЙ 4:М 
EM. ы 


194. 


1288 REM ファ イル の 内 容 の プリ ント ・ ア ウト 
1218 COLOR 6: PRINT: PRINT "No.2 ファ イル の 
内 容 を プリ ンタ に 出力 し ます ": COLOR 7 


1622 PRINT " Input Number...";: RNS$-"": INPUT 
АМФ 

1630 IF RNS$-"1" THEN DV$="0:": GOTO 1658 

1632 IF RNS$-"2" THEN DV$-"1:": GOTO 1650 

1634 IF А№%="3" THEN DV$-"MEMg:": СОТО 1658 
1656 IF RNS$-"4" THEN DV$-"MEM1:": СОТО 1658 
1658 IF RNS$-"" THEN 1670 

1640 ВЕЕР: GOTO 1622 

1659 PRINT 

1652 ON ERROR GOTO 1680 

1654 FILES ІХ% 

1668 COLOR 6: PRINT "表示 終了 何 か キ ー を 押し て 
くだ さい ";: GOSUB 900: PRINT 

1662 ON ERROR СОТО 0 

1670 RETURN 

1680 КЕМ ディ レク トリ 表示 で 指定 し た デバ イス の 
異常 

1682 ВЕЕР: COLUR 5: РАМ “指定 БР AE 
常 が あり ます ": COLOR 7 

1684 PRINT ” 1 . 再 読み 出し を する 2. 読 み 出し 
を 中 止 す る Input Number... ”; 

1686 ANS$="": INPUT 6158: 

1690 IF RNS$-"1" THEN RESUME 

1692 ІР RNS$-"2" THEN RESUME 1662 

1696 BEEP: GOTO 1570 

1700 КЕМ プロ グラ ム の 終了 

1710 CLEAR 8HF9MM 

1720 ЕМ) 

2808 REM ツー ス ・ フ ァイル 名 の 入力 

2010 PRINT "デー タ を 読み 出す ファ イル を 指定 し て 
くだ さい " 

2020 PRINT " File name...";: SF$="": INPUT SF$ 


2050 IF SF$-"" THEN BACK=1: СОТО 2898 ELSE BRCK 
=0 

2040 1-0 

2050 ON ERROR 0070 2100 

2060 ОРЕМ "I",ft1,SF$ 

2070 ON ERROR GOTO 0 

2088 IF J<> THEN 2010 

2090 RETURN 

2100 ВЕЕР: COLOR 6: REM ソー ス ・ フ ァイル 名 の 入 
力 エ テー 

2118 IF ERR=53 THEN PRINT "指定 し た ファ イル が 見 
つか り ま せん ";: СОТО 2190 

2112 IF ERR=64 THEN РЕМ "フロ ッ ピ ー・ デ ィ ス ク 
の 内 容 に 異常 が あり ます "j: СОТО 2190 

2114 IF ERR=65 THEN PRINT "ファ イル 名 の 指定 に 誤 
り が あり ます "j: GOTO 2190 

2116 IF ERR=73 THEN PRINT "指定 し た ファ イル が 正 
し く 読 め ま せ ん ";: GOTO 2190 

2118 IF ERR=30 THEN PRINT "ファ イル の 形式 が 合い 
ませ ん ";: GOTO 2190 

2120 GOTO 9990 

2190 PRINT ” ファ イル 名 再 指定 ": COLOR 7: J=1: 

RESUME NEXT 

2200 REM ディ スト ネー ショ ン ・ フ ァイル 名 の 入力 

2218 PRINT "デー タ を 記録 する ファ イル を 指定 し て 

くだ さい " 

2220 PRINT " File name...";: DF$-"": INPUT DF$ 
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2230 IF DF$-"" THEN BRCK=1: GOTO 2540 ELSE BACK 
=0 

2235 IF SF$=DF$ THEN BEEP: COLOR 6: PRINT" デ ー 
タ を 読み 出す ファ イル と 同名 で す ファ イル 名 再 指 
5E": COLOR 7: GOTO 2218 

2240 ON ERROR GOTO 2300 

2250 OPEN "1", Д2, ЕФ: CLOSE #2: Ј=2 

2260 ON ERROR GOTO 0 

2278 ON J GOTO 2500,2400,2210: 6070 2218 

2300 REM ディ スト ネー ショ ン ・ フ ァイル 名 の チェ 
и’ 

2510 ІР ERR=53 THEN Jei. PRINT "Erz 7 4 ЛАБЕ" 
: GOTO 2390 

2328 ВЕЕР: COLOR 6 

2538 IF ERR=30 THEN 1-2: PRINT "ファ イル の 形式 
が 合い ませ ん ": GOTO 2380 

2322 IF ERR=64 THEN J=3: PRINT "フロ ッ ピ ー・ デ 
ィ ス ク の 内 容 に 異常 が あり ます ": GOTO 2580 

2334 IF ERR=65 THEN 1-3: PRINT "ファ イル 名 の 指 
定 に 誤り が あり ます ": GOTO 2380 

2336 IF ERR=73 THEN Ј=3: PRINT "指定 し た デバ イ 
ス に 異常 が あり ます ": СОТО 2388 

2538 СОТО 9990 

2580 PRINT" ファ イル 名 再 指定 ": COLOR 7 

2390 RESUME 2268 

2400 КЕМ 既存 の ファ イル へ の 書き 込み 確認 

2410 COLOR 6: PRINT "既存 の ファ イル が 指定 され ま 
Liz": COLOR 7 

2420 РАМ "この ファ イル へ 書き 込み を 行なっ て よ 
いで すか "; 

2438 PRINT " (Y/N)...";: RNS$="": INPUT ANS$ 
2440 IF ñNS$="N" OR RNS$-"n" THEN COLOR 6: PRIN 
T "ファ イル 名 再 指定 ":COLOR 7: GOTO 2218 

2450 IF RNS$-"v" OR RNS$-"y" THEN 2500 

2460 BEEP : GOTO 2430 

2500 REM ディ スト ネー ショ ン ・ フ ァイル 設定 
2518 ON ERROR GOTO 2550 

2520 ОРЕМ "0O",H2,DF$ 

2538 ON ERROR 0070 0 

2540 RETURN 

2558 ВЕЕР: COLOR 6: КЕМ ディ スト ネー ショ ン ・ フ 
ァイル 設定 時 の エラ ー 

2560 IF ERR=72 THEN PRINT "指定 し た ファ イル に 和書 
き 込 み が で きま せん "j: GOTO 2580 

2562 PRINT "書き 込み ファ イル が 設定 で きま せん ": 
2580 РЕМ" ファ イル 名 再 指定 ": COLOR 7 

2590 RESUME 2210 

2600 REM 行 番号 削除 処理 で の 改行 コー ド の 指定 
2618 PRINT "改行 コー ド を 指定 し て くだ さい " 

2620 PRINT" 1.CRO4 2.CR+LEF Input 
Number...";: COLOR 7: RNS$-"": INPUT ANS$ 
2630 IF RNS$-"1" THEN LFñ=0: BRCK=9: RETURN 
2648 IF RNS$="2" THEN LFA=1: BRCK=9: RETURN 
2650 IF RNS$-"" THEN BRCK=1: RETURN 

2660 BEEP: GOTO 2628 

2700 REM CRTT 表 示 の 有無 の 指定 

2718 PRINT "CRT デ ィ ス プレ イ へ の 表示 を し ます 
^ 

2720 PRINT " (Y/ND...";: А№%="": INPUT RNS$ 
2758 IF RNS$="Y" OR RNS$-"y" THEN De1: Васк=д: 
RETURN 
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2740 IF RNS$-"N" OR QNS$-"n" THEN D-8: BACK=0: 

RETURN 

2758 IF &NS$-"" THEN BRCK=1: RETURN 

2760 BEEP: GOTO 2720 

2800 REM 特殊 コー ド の プリ ンタ へ の 出力 指定 

2810 PRINT "特殊 コー ド を プリ ント ・ ア ウト し ます 

жу; 

2828 PRINT " (Y/N)...";: COLOR 7: &NS$s"": INP 

UT А6$ 

2830 IF RNS$="Y" OR RNS$-"y" THEN Р=1: BRCKe0: 

RETURN 

2840 IF ñNS$="N" OR ANS$="n" THEN P=2: BRCK-Q: 

RETURN 

2850 IF RNS$="" THEN ВАСК=1: RETURN 

2860 BEEP: GOTO 2820 

2900 REM 行 番号 付加 処理 で の 特殊 コー ド の 処理 指 

定 

2918 PRINT"CE 以 外 の 特殊 コー ド を 削除 し ます か ": 

PRINT" 1 . 削 除 す る 2.CR に 続く LF の み 削 除 
3. 削 除 し な い "; 

2920 PRINT " Input Number...";: COLOR 7: ANS$= 

"": INPUT ANS$ 

2930 IF RNS$="1" THEN CCD=1: LFD=9: BACK=0: RET 

URN 

2940 IF А№%="2” THEN CCD=B: LFD=1: BRCK=9: RET 

URN 

2950 IF ANS$="3" THEN CCD=0: LFD=0: BACK=0: RET 

URN 

2968 IF А№%="" THEN BACK=1: RETURN 

2970 BEEP: GOTO 2920 

3000 REM ファ イル の 通常 転送 処理 ルー チン 

3010 ON ERROR GOTO 5500 

3020 IF ЕОҒ(1) THEN 5080 

3030 IF INKEY$<ESC$ THEN 5050 ELSE PRINT " ": 

COLOR 6: PRINT" 処 理 一 時 停止 【ESC] 以 外 キ ー で 再 

開 プ [ESC] キ ー で 中 断 …": 

3040 GOSUB 900: IF RNS$OESCS THEN PRINT" 処 理 再 

Bn": COLOR 7: СОТО 3050 ELSE PRINT "処理 中 断 ": 

CLOSE 

3045 IF РО THEN LPRINT: GOTO 5090 ELSE 3090 

3058 S$=INPUT$(1, H1): S=PEEKC&HEF99+RSC(S$)) 

3055 IF 5-2 THEN S$=S$+INPUT$(1,H1) 

3060 ON D GOSUB 3100, 3200 

3062 ON Р GOSUB 3300,3400 

3064 IF T=1 THEN PRINT 12,5%; 

3070 GOTO 3020 

3080 CLOSE 

3082 IF РО THEN LPRINT 

3884 PRINT:COLOR 6: PRINT" 処 理 終了 何 か キ ー を 

押し て くだ さい "j:GOSUB 900:РКІМТ 

3090 P=9: Т=й: ON ERROR GOTO 0: COLOR 7: RETURN 


3100 PRINT 5%;: RETURN 

3200 IF (S=1)OR(S=2) THEN PRINT S$; ELSE IF 5-5 
THEN PRINT 

3210 RETURN 

3300 LPRINT S$;: IF 5-5 ТНЕМ LPRINT 

3318 RETURN 

3400 IF (S=1)OR(S=2) THEN LPRINT S$; ELSE IF S= 
5 THEN LPRINT 

3410 RETURN 
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5500 REM ファ イル の 通常 転送 処理 中 の エラ ー 

3510 IF ERR<>61 THEN BEEP: COLOR 6: СОТО 2548 
3520 IF ERL=3055 THEN RESUME NEXT: REM 漢字 っ 
ー ド の 2 バイ ト 目 が 無い 場合 

3534 ВЕЕР: COLOR 6: GOTO 9990 

3540 IF ERRSB9 THEN 5570 

3558 IF ERL-3064 THEN PRINT: PRINTT" デ バイ ス が 
いっ ぱい で 書き 込み が で きま せん ": RESUME 3710 
3568 СОТО 9990 

3578 IF ERR<>73 THEN 3600 

3572 IF ERL=3045 THEN PRINT: PRINT" プ リン タ に 
出力 で きま せん "::P=9: RESUME 5710 

3573 IF ERL-3082 THEN PRINT: PRINT" プ リン タ に 
出力 で きま せん "j:P=9: RESUME 5710 

3574 IF ERL-3500 THEN RESUME 3700: REM Printer 
Time Out 

3576 IF ERL=3400 THEN RESUME 5700: REM Printer 
Time Out 

3580 IF ERL-3020 THEN RESUME 5702: REM File Re 
ad Error 

3582 IF ERL-3050 THEN RESUME 3702: REM File Re 
ad Error 

3584 IF ERL=3955 THEN RESUME 3782: REM File Re 
ad Error 

3590 IF ERL-3040 THEN RESUME 9900: REM File СІ 
ose Error 

3592 ІР ERL-3064 THEN RESUME 9900: REM Device 
Write Error 

3594 IF ERL-3080 THEN RESUME 9988: REM File CI 
ose Error 

3596 IF ERL=3712 THEN RESUME 9900: REM File CI 
ose Error 

3598 IF ERL-3714 THEN PRINT" プ リン タ に 出力 で き 
ませ ん ": RESUME 5090 

3699 GOTO 9990 

5700 PRINT:PRINT" プ リン タ に 出力 で きま せん "j:P=B 
: RETURN 3710: REM smi TIC3EIE3RU 6 — у 
3702 PRINT: PRINT "ファ イル が 正常 に 読め ませ ん "; 


3718 PRINT " 強制 終了 "ilF Тед THEN PRINT ELSE 
PRIN" 書き 込み ファ イル の 内 容 は 保証 され ませ ん 


3712 CLOSE 

3714 IF P=1 THEN LPRINT: GOTO 5090 ELSE 5090 
4000 REM ファ イル の 行 番号 削除 転送 処理 

4919 ON ERROR GOTO 4500: C=1 

4020 IF EOF(1) THEN 4888 

4030 IF INKEY$<ESC$ THEN 4040 ELSE PRINT " ": 
COLOR 6: PRINT" 処 理 一 時 停止 [ESC] 以 外 キ ー で 再 
開 プ [ESC] キ ー で 中 断 …": 

4052 GOSUB 908: IF RNS$<>ESC$ THEN PRINT" 処 理 再 
М”: COLOR 7 ELSE PRINT" 処 理 中 断 ": CLOSE: GOTO 
4090 

4040 5%-ІМРІЛ%(1,01): S=PEEK(8HEF00+ñSC(S$)) 
4858 IF C=1 THEN ЈЕ S$="'" THEN С=й: GOTU 4920 
ELSE 4020 

4068 IF S=9 THEN 4070 ELSE IF 5-2 THEN S$=S$+IN 
PUT$(1, #1) 

4062 IF D=1 THEN PRINT 5%; 

4064 PRINT #2,S$; 

4066 IF S$-CR$ THEN С-1: IF LFñ=1 THEN PRINT LF 


$;: PRINT 12,1%; 
4078 СОТО 4020 
4080 PRINT" ":COLOR 6: PRINT" 処 理 終了 ";: CLOSE: 
PRINT” 何 か キ ー を 押し て くだ さい "::GOSUB 999:P 
RINT 

4090 ON ERROR СОТО 0: COLOR 7: RETURN 

4500 КЕМ ファ イル の 行 番 号 削 除 転送 中 の エラ ー 
4510 IF ERR<>61 THEN BEEP: COLOR 6: GOTO 4520 
4512 IF ERL-4060 THEN RESUME NEXT: REM 漢字 コ 
ー ド の 2 バイ ト 目 が 無い 場合 

4514 ВЕЕР: COLOR 6: GOTO 9998 

4520 IF ERR<>69 THEN 4538 

4522 IF ERL=4964 THEN PRINT: PRINT" デ バイ ス が 
いっ ぱい で 書き 込み が で きま せん ": RESUME 4610 
4524 GOTO 9990 

4550 IF ERR<>73 THEN 4550 

4532 IF ERL=4929 THEN RESUME 4600: REM File Re 
ad Error 

4534 IF ERL-4040 THEN RESUME 4688: REM File Re 
ad Error 

4536 IF ERL-4060 THEN RESUME 4600: REM File Re 
ad Error 

4540 IF ERL=4932 THEN RESUME 9900: REM File CI 
ose Егоог 

4542 IF ERL-4064 THEN RESUME 9900: REM Deuice 
Write Eroor 

4544 IF ЕК -4080 THEN RESUME 9900: REM File С! 
ose Егоог 

4546 ІҒ ERL-4612 THEN RESUME 9908: REM File CI 
ose Eroor 

4550 GOTO 9998 

4600 PRINT: PRINT" フ ァイル が 正常 に 読め ませ ん " 


4610 PRINT "BRET 書き 込み ファ イル の 内 容 は 

保証 され ませ ん " 

4612 CLOSE: GOTO 4090 

5000 REM ファ イル の 行 番号 付加 転送 処理 

5010 LN=199: LNS=2: ML=9: ' UNF 付加 行 番号 初期 人 
LNS= 付 加 行 番号 増分 仁 

5020 ON ERROR 6070 5800 

5050 IF INKEY$<ESC$ THEN 5858 ELSE PRINT " ": 

COLOR 6: PRINT" 処 理 一 時 停止 【ESC] 以 外 キ ー で 再 

開 プ [ESC] キ ー で 中 断 …": 

5040 GOSUB 900: IF RNS$<>ESC$ THEN PRINT "処理 

再開 ": COLOR 7 ELSE PRINT" 処 理 中 断 ": СОТО 5700 

5050 IF EOF(1) THEN 5748 ELSE S$-INPUTSCI, 7: 

SsPEEK(&HEF99+RSC(S$) ) 

5060 ON S СОТО 5100,5200,5070,5070,5500: GOTO 5 

050 

5070 IF CCD=1 ТНЕМ 5030 ELSE 5100 

5100 IF ML<79 THEN WC=1: GOTO 5400 

5110 GOSUB 5600: IF LN=0 THEN 5730 

5128 S$=CR$+LN$+S$: ML=9: MC=LNL+1: GOTO 5500 

5200 S$=S$+INPUT$(1, #1) 

5210 IF ML<78 THEN WC=2: GOTO 5400 

5220 GOSUB 5688: [Е (Мей THEN 5730 

5250 S$=CR$+LN$+S$: М.=й: WC=LNL+2: GOTO 5500 

5300 ІР QWL THEN 5%="": GOTO 5550 

5510 GOSUB 5600: IF LN=8 THEN 5738 

5320 S$=LN$ 

5330 PRINTH2,S$: И =0: IF D=1 THEN PRINT S$ 


5340 IF EOF(1) THEN 5740 ELSE S$=INPUT$(1,H1): 
S=PEEK(8HEFM+RSC(S$)) 

5350 IF (S=4)RND(LFD=1) THEN 5050 ELSE 5060 
5480 IF 044 THEN 5500 

5410 GOSUB 5600: IF LN=9 THEN 5750 

5420 S$=LN$+S$: WL=0: WC=LNL+WC 

5500 PRINTH2,S$;: М = +С 

5518 IF D=1 ТНЕМ PRINT S$; 

5528 GOTO 5030 

5600 IF LN=0 THEN RETURN 

5610 LN$=STR$(LN): LN_=LEN(LN$)-1 

5620 LN$=RIGHT$(LN$,LNL)+” '": LNL=LNL+2 
5630 IF 32767-LNS«LN THEN LN=9 ELSE LN=LN+LNS 
5649 RETURN 

5708 IF 044 THEN PRINT ti2, "" 

5718 CLOSE: GOTO 5780 

5750 中 =" 行 番号 オー パー・ フ ロー 処理 中 断 ": GOT 
0 5758 

5740 M$=" 処 理 終 了 " 

5750 IF WL=Q THEN 5770 

5768 PRINT #2,"": IF Пе] THEN PRINT 

5770 COLOR 6: PRINT M$;: CLOSE: PRINT " 何 か キ 
ー を 押し て くだ さい "j: GOSUB 900: PRINT 

5788 ON ERROR СОТО 8: COLOR 7: RETURN 

5888 REM ファ イル の 行 番付 加除 転送 中 の エラ ー 
5818 IF ERR<>61 THEN ВЕЕР: COLOR 6: GOTO 5820 
5812 IF ERL=5299 THEN RESUME NEXT: REM Ж? 3 
ー ド の 2 バイ ト 目 が 無い 場合 

5814 ВЕЕР: COLOR 6: GOTO 9998 

5820 IF ERR<69 THEN 5848 

5822 IF ERL=5339 THEN RESUME 5900: REM Devi ce 
Full 

5824 IF ERL=5599 THEN RESUME 5999: REM Deuice 
Full 

5826 IF ERL=5799 THEN RESUME 5900: REM Device 
Full 

5828 IF ERL=5769 THEN RESUME 5900: КЕМ Deuice 
Full 

5830 GOTO 9990 

5840 IF ERR<>73 THEN 5870 

5842 IF ЕК -5050 THEN RESUME 5910: REM File Re 
ad Error 

5844 iF ERL=5200 THEN RESUME 5919: REM File Ке 
ad Error 

5846 IF ERL=5340 THEN RESUME 5910: REM File Re 
ad Error 

5858 ІР ERL=5339 THEN RESUME 9908: REM Device 
Write Error 

5852 IF ERL=5599 THEN RESUME 9988: REM Device 
Write Error 

5854 IF ERL=5?99 THEN RESUME 9900: REM Devi се 
Write Error 

5856 IF ERL-5710 THEN RESUME 9900: REM File СІ 
ose Error 

5858 IF ERL=5769 THEN RESUME 9900: REM Deuice 
Write Error 

5860 IF ERL=5779 THEN RESUME 9900: REM File CI 
ose Error 

5862 [Е ERL-5930 THEN RESUME 9900: REM File СІ 
ose Error 


5870 GOTO 9998 
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5900 PRINT: PRINT "デバ イス が いっ ぱい で 書き 込み 
が で きま せん ": GOTO 5920 

5918 PRINT: PRINT "ファ イル が 正常 に 読め ませ ん 
5920 PRINT "ВКТ 書き 込み ファ イル の 内 容 は 
保証 され ませ ん ": 

593 CLOSE: 0070 5780 

9900 REM 復帰 処理 の で き な い エラ ー 

9918 PRINT: PRINT "デバ イス 書き 込み エニ ラー が 発生 
し ま Ls" 

9912 PRINT "電源 を 切ら ず に BAS I C に 戻れ る か 
を チ У 2 し ま +" 

9914 PRINT "ディ スク 等 を 元 の 様 に セッ ト し て 、 何 
か キー を 押し て くだ さい " 

9916 GOSUB 900: PRINT 

9920 ON ERROR GOTO 9950 

9922 IF Т=1 THEN CLOSE 

9924 IF P=1 THEN LPRINT 


9926 PRINT"B AS I C に 戻る こと が 可能 で す —B 
プロ グラ ム を 終了 し ます " 

9928 PRINT" 書 き 込 み 中 で あっ た ファ イル の 内 容 は 保 
証 さ れ ま せん の で 注意 し て くだ さい " 

9930 ON ERROR GOTO 0: COLOR 7: CLEAR &HEF99: EN 
D 

9958 IF ERL=9924 THEN PRINT "アリ ンタ に 異常 が あ 
り ま す ": RESUME NEXT 

9952 PRINT" フ ァイル の クロ ー ズ が で きま せん " 

9954 PRINT" 電 源 を 切っ て 再度 B A S I C の 起動 を 行 
っ て ¢ だ さい " 

9956 COLOR 7: CLEAR 8HEF99: STOP 

9990 PRINT "復帰 処理 プロ グラ ム が な い エ ラー が 発 
生 し まし た ERLE";ERL;" ERR=";ERR: GOTO 9912 
9999 PRINT "復帰 処理 の で き な い エラ ー が 発生 し ま 
し た ERL=";ERL;” ERR=":ERR: COLOR 7: STOP: RE 
M テス ト 用 エラ ー・ ト ラッ プ 


"P" オ プシ ョ ン の 解き 方 


turbo BASIC で は , セー プ す る と き に "P" オ プシ ョ ン 
(プロ テク ト ) を 付け る こと が で きま す . これ を 指定 し て セ モ 
ー プ し た フロ グラ ム は , ロー ド す る だ け で , ロー ド 後 即 実 
行 し て し まい 、 リス ト を と る こと もち [SHIFT| + [BREAK| で 
止め る こと も で きま せん . か な り よ く で きた “"P" オ プシ ョ 
ン で FM-7 の よう に モニ タ か らら チョコチョコ と いじ る と ブフ プ 
ロ テ ク ト が は ずれ る と いう いい か げん な も の で は あり ませ 
A. Cb, 1 度 プ ロ テ ク ト を か けた ら 解 け な い と いう の も 
や っ ぱり 困り も の . それ で は , BASIC を 解析 し て な ん と か 
СЕСЕ. LOAD 命 令 の 処理 先 を 見 て いく と 


青木 郁夫 
だ ッ と いう 訳 で 、 プ ログ ラム を ロー ド す る 前 に モニ タ に 入 
り , 2F94 番 地 か ら 2F96 番 地 ま で の 3 バイ ト を 00H に , 2F 9 
A 番 地 の C3H を C9H に ,. これ で OK ! プロ テク ト ・ プ ブロ グラ 
ム で も ロー ド す れ ば *Ok" を 表示 し , “PP オプ ショ ン な し の 
プロ グラ ム と 同じ に 扱え ます よ ッ . も ちろ ん , 777-907 
ログ ラム も ロー ド OK よ . 


参考 文献 
1) 伊 御田 薫 : X1 turbo 解 析 マ ニュ アル ,。 秀和 シス テム トレ 
mo ЗИ 


X1turbo/F/G に カセ ッ ト ・ キ ー を / 


ШЕЕ 


Xiturbo/F/G の Model 2021 E. (CZ + > F УИ) 2: T- 
も と に ある 方 は , キーボード を 見 て くだ さい (足もと に あ 
る 方 は 無礼 者 で す . X1 に 3 回 謝っ て くだ きい ). 

キー ボー ド に は, 本 来 Model 10 で カセ ッ ト ・ キ ー の 付い 
て いる 所 が ある で し ょ う . そう 取っ て 付け た よう な フタ 
(? ) の ある 場所 で す . A, Z 2 (Model 10 同 様 の カセ ッ 
ト ・ キ ー を 付け て し まお う ! と いう 訳 で す . 


「 そ ん な 人 租 駄 な こと …」 と 店 う 人 人 も いる か も 知れ ませ ん が , 


み カセット ・ キ ー の 使い 易 さ は , 使っ て みな けれ ば わか り ま 
せん よ . それ に , サブ CPU の せっ か く の 機 能 を 無 駅 に は し 
だ たく な い の で す . X1 か ら turbo に 買い 換え な 方 に は , 痛い 
ほど わか っ て いた だ ける で し ょ う . 改造 後 1 週間 も 使え ば 
他人 の カセ ッ ト ・ キ ー 無 し turbo/F/G が 使い づら く 感 じ ま 
+k. 論理 で は …. 

画 キ ー 説 明 

[REW] キー А L [SHIFT] キー と の 佐用 で APSS 一 1) 
STOP] キー… 佐 止 (ISHIFT| キー と の 佐用 で EJECT) 

[FF 5- …… 0%) ([SHIFT| キー と の 併用 で APSS + 1) 


198 


画 改 造 方 法 

@ キ ー ボ ー ド 裏 の ネジ を は ず し , WTI EIA. 

コネ クタ を 引っ ぱっ て は ず し , 基板 を 取る . 

カモ セット ・ キ ー を 付け る 部 分 の 和典 の ハン ダ を 溶かし , Ж 
イッ チ を 差し 込む 穴 を あけ る ( 穴 は ハン ダ で 埋まっ て い 
る だ け な の で 簡単 に あく ). 

⑳ ス イッ チ を 表側 か ら カ チッ と いう まで 寺 し 込み , imo 
ハン ダ 付 け す る . 

Өх конто, カモ ッ ト ・ キ ー 部 を ふさ 
いで いる フタ を 押し は ず す . 
⑲ 元 どおり に 組み 立て て , キー・ 

画 パ ー ツ 
turbo Model10 用 修理 部 品 の カセ モッ ト ・ キ ー 部 ボタ ン 
(キー・ ト ッ プ 3 個 と スイ ッ チ 3 個 ) XY2.8K < 5v, 
※ 近 く の パ ソコ ン ・ シ ョ ッ プ で シャ ー プ に 頼ん で も ら う . 
Эйс, カセ モッ ト ・ キ ー 人 入手 な ど に ご 協力 いた だ いた 柏 
崎 丸 大 P&V ラ ンド の 大 日 向き さん, 姉崎 きん , どう も あり が 
еу LX. 


トッ プ を 付け て 完成 ! 


X1 シ リー スズ + ビ CZ-8RS 


АМК 5:27 


アッ プロ ー ド / ダ ウン ロー ド 可 能 / と っ て も お 手軽 ター ミナ ル 


漢字 に よる 情報 が 増え て いる 今 で は , ANK ター ミナ ル で 
は 物足りな いと 思わ れる か も し れ ま せん が , 情報 は 中 身 が 
勝負 で す . アル ファ ベッ ト と 数 字 と カナ で イキ の いい 情報 
を ネッ トワ ー ク へ HI きこ ん で くだ さい . 


は じ め に 


信 回 掲載 し た プロ グラ ム は 短 時 間 で 入力 で きる 簡単 な も 
の で す が , 受信 デー タ を スト ア す る 機能 (ダウ ン ロ ー ド ) 
と ファ イル を 送信 する 機能 (アッ プロ ー ド ) を 備え て いま 
+. また , ダウ ン ロ ー ド し た ファ イル を 後 で 見 る た め の 科 
単 な プ ログラム も 掲載 し て お きま す の で 試し て みて くだ さ 
v. なお, この プロ グラ ム の 実行 に は RS-232C カー ド (CZ 
-8RS) が 必要 で す . 


入力 方 法 


turbo 以外 の X1 シ リー ズ は RS-232C を BASIC (š + 
ボー ト し て いな い の で , RS-232C カー ド ( オ プシ ョ ン , CZ 
-8RS) に つい て いる アプ リケーション ・ プ ログ ラム (RS 
INTERRUPT1. OBJ) を 使っ て 送受 信 を 行ない ます . 

プロ グラ ム の 入力 は , BASIC プロ グラ ム (リス ト 1) を 
入力 し て セー ブ し て か ら , CZ-8RS に 付属 し て いる アプ リ 
ケー ショ ン ・ プ ログ ラム の 入っ て いる テー ププ から “RS 
INTERRUPT1. ОВ)” を ロー ド し , &HF800—&HF9D7 
を リス ト 1 の 後に モー プ し て くだ さい . жы, この プロ グ 
ラム は ディ スク BASIC (CZ-8FB01), カセ モット BASIC 

(CZ-8CB01) の 両方 で 動作 し ます . 


使い 方 


BASIC プ ログ ラム を RUN さ せる と , まず RS 
INTERRUPT1* を 読み 込ん で プロ グラ ム が スタ ー ト し ま 
4. 各 機 能 は すべ て ファ ンク ショ ン ・ キ ー に 集中 し て いま 
すか ら 使 い 方 は いた っ て 簡単 で す . 以下 に ファ ンク ショ 


図 1 RS-232C カ ー ド (CZ-8RS) の 設定 状態 


る ポー ト ア ドレ ス (SW1): &H0C00—&H0C07 


スイ ッ チ ・ ボ ポジ ショ ン | ON | ON | ON | ОМ 


@ 割 り 込み ベク トル (SW2) :&H62, &H64 
スイ ッ チ の セク メン ト | 1 


る コネ クタ 端子 モー ド (J-1) : ター ミナ ル ・ モ ー ド 


О 
( 


O| |0| IO| [0] оо 
м 
6 5 4 3 

ン ・ キ ー の 機能 を 示し ます . 

F1 通信 プロ グラ ム 終 了 . ダ ウン ロー ド し た デー タ を ファ 

イル へ 転送 し て , BASIC の コマ ンド 待ち に 戻り ます . 

F3| FILES 命 令 を 実行 し ます . 

FS| ダウ ン ロ ー ド 機能 で す . この キー を 押し て ファ イル 
OPEN し た 後 は , 再び この キー を 押し て 終了 させ る 
£c, 受信 デー タ が と り 込 まれ ます 。 ファ イル ・ ネ 
ー ム 指定 時 に [ 及 の み 入 力 す る と キャ ン セ モル と みな さき 
itx. 

FIO アッ プロ ー ド 機能 で す . シー ケン シャ ル ・ フ ァイル 
を 送信 し ます . キャ ン セ ル 方 法 は ダウ ン ロ ー ド と 同 
LES. 

ж, ЗИ > p — FLETTA ЛЕ, ディ イズ グ デレ イデ 
ログ ラム (リス ト 2 ) を 使っ て 画面 表示 する こと が 可能 で す . 
@ RS-232C カー ド の 設定 に つい て 

図 1 を 見 て くだ さき さい. 工場 出荷 時 の 設定 か ら は ,SW 30 
スラ イド ・ ス イッ チ を 300 ボ ー に 設定 する だ け で 結構 で す . 
参考 文献 
1) RS-232C カー ド CZ-8RS 取扱 説明 書 , シャー プ 


リス ト 1 X1 ANK タ ー ミ ナル ・ プ ログ ラム T. w—nsvF n 


90 КЕМ TERNM.CZ-BFE の 1 
100 REM жекке кек ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ E I ЭЕ ЭЕ ЭЕ ЭЕ = ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ 


110 REM ж CANS TERMINAL PROGRAM * 


12@ REM * COPYRIGHT BY HIDEJIRO ҮОКОТА ж 
150 REM ж 1984,10, 7 * 
14@ REM * 1985, 5,14 REVI ж 


199 


LO 


UAM ХІ ANK タ ー ミ ナル ・ プ ログ ラム 


150 REM 3d € € HE € 3€ € 3c € € € 9E 9€ 9e 3€ 9€ Je 9E E JE E € J€ E € 9E 3 ¥ 
160 CLEAR&HF7FF:LOADM "RS INTERRUPT1.OBJ" 
170 DEFUSR-&HF800 

180 DEFUSR1-&HF968 

190 DEFUSR2-&HF9zF 

200 CALL&HFB46 

210 MAXFILES 4:0PTION SCREEN 2: ІМІТ"МЕМ: 

220 WIDTH 80:DEFINT A-Z 

250 J-Q:FI-1:DIM ҒІФ(100) 

240 POKE&H62,*H67,MHFB,&HZF,M&HF9 


250 ON ERROR GOTO 780 

260 PRINT "3d 9 0 0 0 9 99 9 ЕЕ ЭЕ ЭЕ ЭЕ ЗЕ '' 

270 PRINT "ж ターミ ナル 7°07°` 54 スク ター トド ж" 

280 PRINT "330 9 (90999 9 x" 

290 PRINT " "; 

500 ON KEY BDSUB 850,,450,,510,,,,,610 


310 
320 
550 


540 


С-ҰН2СС: C ビ =USR (C) 
KEY ON 
A=USR1(J):IF 
IF А=1@ ТНЕМ 
550 A$=CHR$ (A) 
560 IF A-13 THEN PRINT CHR$(8);CHR$(10);"_"; 
E IF А=127 THEN PRINT СНЕФ (29) ; СНКФ (8);"_ 
PRINT CHR$(29);" ":СННФ(29);А%;" _"; 

370 IF F-1 THEN PRINT #4,А$; 


А<0 THEN 580 
380 


580 A$-INKEY$:1F A$-"" THEN 550 

390 A-ASC(A$) 

400 AA-USR2(A):1F АА>255 THEN 400 

410 60Т0 220 

420 REM жжж FILES SUR жж 

450 KEY(3) OFF 

440 PRINT CHR$(29);" " 

450 PRINT "жекке E 0C e X X € X X3 3€ 
460 FILES 

470 PRINT "3939 9 ж 9C C ЭЕ ЭЕ 4 жж 
480 PRINT " " 

490 KEY (3) ON: RETURN 

500 КЕМ жж DOWNLOAD SUE +++ 

510 КЕҮ(5) ОҒҒ:КЕҮ(10) OFF 


520 IF F=1 THEN F=@:CLOSE #4:РАТМТ СНЕФ (29); " 
РКІМТ:РКІМТ "жжж DOWNLOAD FINISHED s**":PRINT:PR 
INT " ";:KEY(Z) ОМЉКЕУ (10) ON:FI-FI-1:RETURN 

550 IF F=@ THEN F=1 

540 PRINT CHR$(29);" " 


550 FIS( I)2"": INPUT "DOWNLOAD FILE NAME > ",FI$ 
(FID 

560 PRINT:IF FIS(FI)z"" THEN F=Ø:FRINT "жжж DOWN 
LOAD チュ ウシ жжж": РКІМТ:РКІМТ " "i::KEY(10) ОМ: БОТО 
590 

570 OPEN "0", #4, "МЕМ: "+РІФ (FI) 

580 PRINT "_"; 


590 КЕҮ (5) ON: RETURN 

600 REM жжж UFLOAD SUE жж 

610 КЕҮ (10) ОРР:КЕУ (5) OFF 

620 CLOSE #2:РКІМТ CHR$(29);" " 

650 A$-"":INPUT "UPLOAD FILE NAME ? ",6$ 

640 PRINT:IF A$-"" THEN PRINT "sx UFLOAD チュ ウシ ж 
*"SPRINT:PRINT " "i:60T0 760 

650 OPEN "I",42,4$ 

660 IF EOF(2) THEN 740 


670 АФ=ІМКЕҮФ: IF А%<>"" THEN IF A$-"S" ОБ A$-"s" 
OR A$-"F" THEN GOSUB 770:G0TO 670 ELSE IF A$="Z 
" OR A$-"z" OR Аф="'"" THEN PRINT :FRINT:FRINT "ж 


жж UPLOAD BRAKED 3**x":PRINT:CLOSE 82:FRINT B$::G 
OTO 760 ELSE 670 
680 L-USR1(J):IF L> 
L)::GOTO 688 

690 A$-INFUT$(1,92) 


:Q AND 152526 THEN FRINT CHR$( 


700 A=ASC (A$) 

710 AA=USR2(A):IF Аб>255 THEN 710 

728 L=USR1(J):IF L2>=@ THEN FRINT CHR$(L)::GOTO 7 
20 

750 БОТО 668 

740 L=USR1(J):IF L>=Ø THEN FRINT CHR$(L?::60TO0 7 
40 

750 CLOSE #2:FRINT "жжж UFLOAD FINISHED ***":FRI 
NT " "; 


750 KEY (10) ОМ:КЕУ(5) ON:RETURN 
770 PRINT:FRINT:PRINT "же UPLOAD イチ まい 
"І:АФ=ІМКЕҮФ (1) РКІМТ "UPLOAD Чала 


チュ ウシ 
***": RETU 


RN 

780 REM *** エラ ー оз) ルー チー *** 

790 IF ERL=57 の THEN FRINT "< 
"S:RESUME 550 

50 THEN PRINT 

::RESUME 620 

KEY ОҒҒ:ОМ ERROR GOTO 0 

STOF STOF 

KEY OFF 

REM ss* FILE 72977 жж 

T21 :CLOSE: C-£HCC: CC-USR (C) 
IF FI$(T)2"" THEN END 

ОРЕМ"0" ,#2,ҒІФ (Т) 

ОРЕМ" І", #4, "МЕМ: "+РІФ (Т) 
IF EOF (4) THEN 920 

LINE INFUT#4,A$: IF A$="" 


FILE МАМЕ 27962 >": 


"¿FILE NOT FOUND >":РЕ 


THEN 890 


910 FRINT #2,A$%: БОТО 890 
920 CLOSE :T=T+1: GOTO 860 
950 END 


m————————!"0 AX M2 タウ ン ロ ー ド ・ フ ァ イ 


ディ スプ レイ ・ プ ログ ラム mmm 


10 REM* ネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ キネ ネネ ネネ ネ 
20 REM* DISPLAY PROGRAM * 
30 REM ネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ 
40 INPUT "DRIVE NO";D$ 

50 FILES D$ 

60 INPUT "FILES МАМЕ";А% 


70 OPEN "I",#1,D$+":"+A$ 

80 IF ЕОЕ(1) ТНЕМ CLOSE:END 
90 LINE INPUT #1,88 

100 PRINTB$ 

110 сото 80 


HBASIC で 8 メ X16 ドッ ト の フォ ント を 表示 する 方 法 


ШЕЛІ 

turbo を 持っ て いて も , イロ イロ 便利 な ソフ ト ( 本 紙 に 掲 
載 き され て いる FDAS や DDED な ど ) の 中 に は , IHIBASICC 
実行 きせ る も の も 少な く あ り ま せん ね . で も せっ か く tur- 
bo に は 8X16 ド ッ ト の 高級 (27) フォ ント が ある の に 8xX8 ド ッ 
ト の 女 字 で 表示 きせ る の で は 宝 の 持ち 腐れ で すね . そこ で 
次 の 3 行 の プロ グラ ム を “Start up. Bas" の 中 の NEW の 前 
に 入れ て お いて くだ さい .。 そう すれ ば ,、 キャ ラク タ は , 8 
x16 ド ッ ト の 美しい (それ程 で も な い が ) 字体 と な り , 5 
な た の パソ コン ライ フ は - - 層 充実 し た も の と な る で し ょ う . 


た だ し , プロ グラ ム 中 で CRTC を いじ っ て いる も の は , 
面 が グチ ャ グチ ャ に な る 可能 性 が あり ます . 

な お この プロ グラ ム は "Start up. Bas" の 中 に 入れ な く て 
も その まま 実行 すれ ば ちゃ ん と 動き ます . また 3 行 目 の 
WIDTH は 40 を 指定 する こと も 可能 で す . 


ШІ 


参考 文献 
ӘН | XX1turbo 解 析 マ ニュ アル , 
— + x Р 


秀和 シス テム トレ 


МЕМ$ ( &HDD , 20) -HEXCHR$("35282D841B00191A000F0000000000006B505988") 
CALL &H9A1:OUT #Н1Е00,3 
WIDTH 80 


200 


X1:U—Z 


64K パ イト 
Monitor: 


хі 用 の モニ タ ・ プ ログ ラム で す . プロ グラ ム を 入力 し た 
り , 買っ て きた ソフ ト の 内 容 を 見 た り , 自分 用 の テー プ が 
切れ た と き の コ ピー を 作る と き な ど 使っ て くだ さい . 


この モニ タ に は , 次 の よう な を 特長 が あり ます . 
© 0000H か ら FFFFH まで の 64K バイ ト の ソー ス を , 一 
度 に 扱え る よう に , グラフィック RAM の 青 の 所 を , 0000H 
—ЗЕЕЕН の 仮想 マイ ン ・ メ モリ と し まし た . 
②@ メ モリ ・ ダ ンプ が チェ ッ ク サ ム 付 き に な っ て いま す . 


eec‏ کک کے کے | کے کے کے کےا کے 


入力 方 法 


| 


まず BASIC (CZ-8CB01 か CZ-8FB01) を 起動 させ て , 


MON[ RETURN | 
で モニ タ に 入り , リス ト (6000H2:567FFH) を 入力 し ま 
3. ELT, ЗОБ ЕС, Ж 
の 後 新 し い テ ー プ を セッ ト し ます . 

次 に , 

G67AD | RETURN | 
と する と , 新しい テー プ に モニ タ が セー プ ブ さ れ ま す . К» 
ら は , IPL か ら こ の テー プ を ロー ド し て くだ さい . 


ーー 


使用 方 法 


kaa a A 
コマ ンド は ,。 ほとん ど 今 まで の モニ タ と 同じ な の で , ^ 
まで の モニ タ に 慣れ て いる 人 に は 使い や すい と 思い ます . 
ХЕ, 各 コ マン ド の 説明 を し ます . 

Ü コマ ンド 

D の 後に 続い て 書か れ た アド レス か ら , 256 バ イト を チ 
ェ ッ クサ ム 付 き で ダン プ し ます . また , アド レス を 書か 
な けれ ば , 1 回 前 に ダン プ し た リス ト の 続き を ダン プレ し 
ます 。 な お 。 プ リン トド デ ウト は で きま せ ん ,. 

M コマ ンド 
今 ま で の モニ タ の M コマ ンド と ほぼ 同じ で す . 

T エ コマ ンド 

今 ま で の モニ タ の TFT コマ ンド と まっ た だ く 同 じ で す . 

F コマ ンド 


Шоп 


今 ま で の モニ タ の FE コマ ンド と まっ た く 同 じ で す . 
G コ マン ド 

公 ま で の モニ タ の G コマ ンド と まっ た だ たく 同じ で す . 
елеме 

パス ワー ド や ファ イル 拡張 子 は 記録 で きま せん . また . 
S[ RETURN | と だ け す る と , 1 回 前 に モー プ , また は ロ 
ー ド し た も の を その まま セー ブ し ます . 
(ЕУ Е 

ロー ド 先 頭 ア ドレ ス や ファ イル ・ ネ ー ム の 指定 は で きま 
XA. жы, S ルコ マン ド は テー プ に 対応 し て いま す 


ーー ニー = 


ゴマ ンド に つり て 


画 な く な っ た コマ ンド 
р Үсек OEV < L 

画 ふ えた コマ ンド 

N コマンド 
N| RETURN | と する と , セー プ ま た は ロー ド し た プロ 
グラ ム の ファ イル ・ ネ ー ム ,。 先頭 アド レス , 最終 アド レ 
ス , 実行 先頭 アド レス を 出力 し ます . 

X コマンド 
L コマ ンド 以外 の コマ ンド に 関し て , 仮想 メモ リ と メイ 
ン ・ メ モリ の 切り 換え を し ます . 

G コ マシ ド 
ЖС クリ ア 先 頭 ア ド レス, 最終 アド レス と する と , 指定 
範囲 の メモ リ を クリ ア し ます . Ы, アド レス を 書か な 
けれ ば , す べ て の メモ リ を クリ ア (00H で 満た す ) し ます . 

A コ マン ド 
ЖА 先頭 アド レス と 入力 し ます . 
М コマ ンド の よう に 入力 で き , 文字 列 を ASCH コー ド 
に 直し て セッ ト し ます . 

HH コマ ンド 
HEX キー モー ド に し た り 。 ノ フー マル ・ キ ー モ ー ド に し た 
り し ます 。 


今 ま で モニ タ を つぶ さき さ な け れ ば で き な か っ た よう な アド 
レス に も プロ グラ ム が 組め る し , エラ ー メ ッ セ ー ジ も 付い 
て いる の で 便利 だ と 思い ます . 


201 


То 


жы, 仮想 メモ リ を 使わ な けれ ば , 1800H か ら が フリ ー 1) KIRL : XI マシ ン 庄 活用 西 科 、 産業 報知 モン ター 
エリ ア で , SP は 17FFH か ら 上 上 に 積ま れ て いま す . 2) 280 ア セン プラ プロ グラ ミン グ 入 門 。 オー ム 社 


参考 文献 3) “2Z280 ニ ー モ ニッ ク 表 ?, РіО, "85 年 5 月 号 
64K バ イト 


202 


А / 27 7 АЛИ 
電子 回 路 の ぬく も り が , 今日 も わた し を 悩ま せる . ね え , 


械 を 愛す こと っ て , と っ て も ハー ド な も の な の よ . 


ハー た 


X1 turbok2DD/2HD#Æ---------------- Alig X 204 
Р-НОМ 2 ТУОВТЕ —————Á د‎ gs = а ба арени и ama em Ж 208 
ZHZ24A-422753384RRBONWfF————————— ЖЕ] 218 
ムラ ッ ク ・ カ ウン タ の 製作 ーーーーーーーーー] m 
XTturbo2 BM ..————— iaa 
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最近 の フロ ッ ピ ー デ ィ ス ク の 大 容量 化 と 低 価格 化 は 目 ざ 
まし く , 16 ビット の 98 に 続い て , 昨年 は ほ 8 ビッ ト の PC- 
8801MR に も 2DD/2HD タイ プ の ドラ イブ が 搭載 され まし 
た . 我 が X1 も 2HD ドライブ と 256K バ ンク メモ リ 内 蔵 の 
turbo II イン ター クー ラー リミテッ ド バ ー ジ ョ ン の 発表 が 
待た れる と ころ で す . 

筆者 も 現在 の 2D ドラ イブ 並 に 安く な れ ば , 購入 し た いと 
考え て いま し た が , 今回 編集 部 の ご 好意 で 2DD/2HD 切り 
換え 型 の ディ スク ・ ド ライ ブ を 試用 する 機会 を 得 まし た . 
意外 と 簡単 に 動作 し た の で その 方 法 を 紹介 し ます . 


ロイ ンチ FDD に つい て 


5 イン チ FDD の 一 般 的 な 仕様 を 表 1 に 示し ます . 
2DD は 2D の トラ ッ ク 問 距離 を 半分 に し て , トラ ッ ク 数 


を 2 倍 に 増やし , 倍 容 量 に し た も の で す . デー タ 転 送 速 度 , 


回 転 数 , 記録 密度 と も 2D と 同じ で トラ ッ ク 和 密度 の み 異 な 
っ て いま す . 

その た め , 2DD ドラ イブ を 使用 し て 2 トラ ッ ク ず つ 移 動 
すれ ば , 2D ディ スク の 内 容 を 読み 取る こと が で きま す . Ш 
き 込 み は 2DD の トラ ッ ク 幅 が 半分 に を っ て いる の で , 完全 
な を など 換 性 は あり ませ ん . 

2HD は 8 イン チ の フォ ー マ ッ ト を その まま 5 イン チ に 
適用 し た も の で , デー タ 転 送 用 の 基準 クロ ッ ク が 2 倍 に な 
っ て お り , 2D/2DD と は まっ た く な 換 性 が あり ませ ん . 
4MHz の Z80 は この 速度 に 間に合わ ず , turbo で は Z80 
DMA が 採用 され まし た . 

#72, 高い 周波 数 を 使用 する の で , ディ スク の 磁性 体 は 
コバ ルト 入り の 抗 磁力 の 大 き ほな も の が 使用 きれ て いま す . 
」 度 カセ ッ ト テ ー プ の ノー マル と 。 コバ ルト ある い は クロ 
ー ム な どの 高 品質 テー プ の 違い に 相当 し , 安い 2D/2DD 用 
の も の は 2HD ディ スク と し て 使用 で きま せん . 

し か し , 2D 用 の も の を 2DD に 使用 する こと は 可能 で す 

(メー カー は 推奨 し ませ ん が か が) . 

2DD/2HD 兼用 型 で は , モー タ の 回 転 数 を 300 か ら 360 

rpm に 切り 換え る 方 法 か . も し く は ドラ イブ の 回 転 数 は 


表 1 5 イン チ FDD の 仕様 一 覧 


(ЕЗІНЕ 

ЕТЕР: 
記憶 容量 (バイ ト ) 
アン フォ ー マ ッ ト 時 500K 1M 1.6M 
フォ ー マ ッ ト 時 320K 640K 1001K 
(セク タ 数 / ト ラッ ク ) (16) (16) (26) 
転送 速度 (ビッ ト / 秒 ) к | =- 500K 
記録 密度 (ビット / イ ンチ ) 5876 5922 9646 
トラ ッ ク 密 度 (トラ ッ ク / イ ンチ ) 48 96 = 
記録 方 式 MFM " Ри 
(грт) 300 — 360 EN 
回 転 待 ち 時 間 (ms) 100 — 83 
シリ ンタ 数 40 80 7 
トラ ッ ク 数 80 160 | 14 


360rpm の まま で , デー タ 転 送 速 度 を 通常 の 2D/2DD (= 
NT, 本 体 の FDC 側 で 2 割 ア ッ プ する 方 法 の どちら か で 
対応 し て いま す . ХІ turbo で は 前 者 ,。 PC-9801VM で は 後 
者 の 方 法 を と っ て いま す . 


X IturDO と の 接続 


表 2 に 今回 使用 し た TEC 8 2DD/2HD 兼用 ドラ イプ 
ЕВ-506-РС と ХІ turbo Ak ЕОС ボー ド の 信号 イン ター 
フェ イス を 示し ます . 

5 イン チ FDD は 34 ピ ン の カー ド エ ッ ジ ・ コ ネ ク タ ( 山 一 
FDS-34-12 相 当 ) を 使用 し て お り , 2 番 , 4 番 ピ ン を 除い 
て 各 メ ー カ ー と も 三 換 性 が あり ます . また だ , 電源 供給 用 4 
ピン ・ コ ネ ク タ も 同様 で す . 

2 番 ピ ン は MODE SELECT に な っ て いて , FDD WT 
は 2HD p “L” レベ ル で あり , X1 側 と 逆 に な っ て いま し 
72. この レベ ル を 反転 で きる モデ ル も ある よう で す が , ~ 
回 の も の は PC-9801 専 用 で 切り 換え る こと が で きま せん . 

FDD 内 の コン トロ ー ラ 基板 を 外し て みる と , MODE 
SELECT 信号 は LS14 を 1 段 通っ て お り , 都合 の よい こと 


同じ 内 容 の ディ スク で も これ だ け 違 う . 各 フ リー クラ スタ 数 に 注目 ! ( 左 か ら 2D, 2DD, 2HD 使 用 時 ) 


FILES 


Uk 
16 Clusters. free FILES"1: 


Path name "g:/" Path 
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96 Clusters free 
name "1:/” 


" 


FILES"1:" 
185 Clusters free 
Path name "1:7" 


1 ショ ー ト ・ プ ラグ 配置 図 (FB-506 -PC) 


ター ミネ ー タ (DIP 16pin) 


1. ドラ イブ 基板 内 の LS 14(IC -5) の 12 番 ビン の 配線 を 取り 外す . 
2. シ ョ ー ト ・ プ ラグ の 移動 (7 箇所 ) 


に テフロン 電線 で 手配 線 さ れ て いま し た だ た . そこ で , LS14 の 


12 番 ピン の 配線 を 取り 外し て バイ パス する と と も に , 718 
所 の ショ ー ト ・ ピ ン の 変更 で 接続 する こと が で きま し た ( 図 
125 

4 番 ピ ン は HEAD LOAD また は IN USE に な っ て い 
ます が , 5 イン チ FDD で は ヘッ ドロ ー ド 機構 を 省略 する 
傾向 で , FB-506-PC に も 付い て いま せん . IN USE ił, F 
ライ ブ を セレ クト し て いな いと き に も , Bimbo LED を 点 
灯す る た め の も の で , turbo は この 信号 を 使用 し て いま せ 
А 

turbo は 発売 当初 か ら 2HD ドラ イブ の 接続 を 想定 し て 
Б), 本 体内 蔵 の FDC ボー ド で 各種 の 5 イン チ FDD # E 
在 し て 4 台 ま で 接続 で きま す . さら に , 8 イン チ 専 用 FDC 
ボー ド を 使用 すれ ば 8 イン チ ・ ド ライ プ を 4 台 追 加 で きま 
Fe 


=. 


САТЕ LED 


OR RE АМО 


ХІ turbo 
500K・1M/1.6M 
IN USE or HEAD LOAD NC 


6 DRIVE SELECT3 = 
8 INDEX яң 
10 DRIVE SELECT0 - 
12 DRIVE SELECT1 = 
14 DRIVE SELECT2 | 
16 мотов ом = 
18 DIRECTION = 
20 STEP m 
22 WRITE DATA < 
24 WRITE GATE - 
26 TRACK 00 m 
28 WRITE PROTECT = 
30 ВЕАО БАТА = 
E 

32 SIDE 1 SELECT = 
34 READY = 

1—830 

奇数 ビン tss T 


接続 に は 外部 拡張 コネ クタ を 使用 し て も よかっ た の で す 
ж, ケー ブル を 作る の が 面倒 だ っ た の で 本 体内 蔵 の ドラ イ 
7 (TEAC & FD-54B-08) を 取り 外し , FB-506 を ドラ イ 
プ 1 に 設定 し て 接続 し まし た . 

FB-506 は 2DD/2HD ドラ イブ の 中 で は 安い 方 に 属し ま 
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表 3 FB-506-PC 出 荷 時 の 仕様 


SHORT WIRE | 機種 
選択 機能 タイ ミン グ 説 明 ーー] 備考 
SHORT OPEN PC | X1 
тоне 2 スピ ー ド 仕様 EL, LS モー タ 回 転 束 度 切換 方 式 О |1,2 
スピ ー ド 固定 ES LS デー タ 転 送 速 度 切換 方 式 O 
W 理 2HD н хл —— О | 配線 除去 
2HD их 定 2HD цикл, 2DD H レ ベル О 5 
モー ド 切 換 — + 
ラッ チ 有 — DS で ラッ チ 
Syf 
TRUE ж = ラッ チ な し О O 
> Ж |СРЏ 媒体 挿入 時 メデ ィ ア 回 転 o |o 
ダイ ナミ ッ ク ・ ク ラン プ 
無 | HSF — 
" モー タ ON MOM モー タ ON て 回転 О 
ON 信号 T 
DS DSM ドラ イプ ・ セ レク ト て 回転 С» |8 
__ | 即断 MLC 信号 OFF 時 に 停止 O | 0 
モー タ ON OFF 信号 
40 秒 DELAY MLC OFF 後 約 40 秒 後に 停止 
= | 節電 な し HST 信号 入力 時 常に 回 転 
節電 CPU 媒体 未 挿入 時 回 転 せ ず Ó | ©. 
IN USE DS(AND) | АМО, DI, IU, LED IN USE と DS の AND て 点灯 О 
表示 LED IN USE ОВ, DI, IU, LED lin USE 信 号 で 点灯 7 除去 
DS DS DS 信号 て 点灯 О |4 
ショ ー ト R101 シグ ナル GND と ショ ー ト Го | Q 
フレ ー ム GND オー プン R101 シグ ナル GND と 分 離 
C/R R101, C101 部 品 挿入 シグ ナル GND と C/R 接 続 | 
レデ ィ PRE READY TD PR 媒体 定 速 回 転 中 О 


フレ ー ム GND を シグ ナル GND と 分 離 で 使用 する と き は ,。R101 を カッ ト し て くだ さい . 
2DD 専 用 機 と し て 使う と き は , МОРЕ SELECT 信 号 を OPEN 状態 に し て くだ さい (ショ ー ト ・ ピ ン の 移動 : ES つ EL, HLC>LS). 
2HD 専用 機 と し て 使う と き は , MODE SELECT 信 号 に LOW レベ ル を 入力 し て くだ さい . 


due, を か を か の すぐ れ 物 で 上 民 体 は アル ミダ イキ ャ スト 製 
(内 蔵 ド ライ ブ は 鉄板 プレ ス 製 ) F 2 > Z EJ) Pr, ディ 
スク 回 転 音 と も 静か で 高級 感 が あり ます . また , ドラ イブ 
が セレ クト され て も ディ スク を セッ ト し て いな いと モー タ 
は 回 り ま せん . 
きら に メデ ィ ア 交換 時 は 庄 巻 で ディ スク を 挿入 し て ク 


動か し て みる 


BASIC を 起動 し て フォ ー マ ッ ト を 行ない ます が , その 
前 に シス テム に ドラ イプ 1 の タイ プ を 教え て や ゃ や ら な けれ ば 


ラン プ さ れる まで モー タ が 自動 的 に 回 転 し . クラ ンプ 時 の 
ディ スク ・ ハ プ 部 の 損傷 が 最少 に な る よう 配慮 され て いま 
す . 

民 体 は 縦 , М, 高き さと も 内 蔵 ド ライ ブ と ほぼ 同士 法 で , 
取り 付け の ネジ 穴 位置 まで 同じ で す . し か し , フロ ント ・ 
パネ ル の 形状 が 異な っ て いて , 直接 置き 換 を る こと は で き 
ませ ん . 試し に FDD の フロ ント パネ ル を 外し て み ま し た 
Dî, やはり 無理 で し た . 

参考 と し て , FB-506-PC の 出荷 時 の 仕様 を 表 3 に 示し 
を お きま きく 


な り ま せん . その 方 法 は 以下 に 示す よう に 3 通り あり ます 

(詳細 は ユー ザー ズ マ ニュ アル 参照 ). 

⑩ ニ ユー ティ リティ ・ プ ログ ラム の 実行 (DISK SYSGEN. 

Uty) 

О DEVICE 命令 

@9 フ ワー ク ・ エ リア の 書き 換え (PEEK, POKE) 

DEVICE 命令 の 使用 が 一 番 簡 単 で , DEVICE"1:1" C 
2DD (2, DEVICE "1: 27 で 2HD に 設定 され ます . 継続 
的 に 使用 する の で あれ ば , BASIC 起動 時 に オー トラ ン す 
る "Start up. Ваз” で 設定 すれ ば よい で し ょ う . 


湊 に ユー ティ リ デ ィ ・ ツ フト "FORMAT & COPY. 


ドラ イブ の 前 面 パ ネル を は ず し て turbo に セッ ト turbo に 接続 され た FB-506-PC 
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Disk Type は 2HD を 選択 


Туре т 0+: | ity* 


Uty" を 実行 し て フォ ー マ ッ ト を 行ない ます . フォ ー マ ッ ト 
後 の 使 用 可能 クラ スタ 数 は , 以下 の と お り で す (1 クラ ス 
#=4 K バイ ト ). 


2D 787 FAZ 
2DD 1587247 
2HD 2472 7 Х 7 


2D で は いっ ぱい の ディ スク も 2HD に 転送 すれ ば , 残り 
は 169 ク ラス タ も あり , ЖЕ C+. turbo が 階層 化 デ ィ レ ク 
トリ を サポ ー ト し て いる 意味 が 初め て わか り ま し た . 

また , Тог ディ スク を 2DD に 再 フ ォ ー マ ッ ト す 
Mlk, 80 ク ラス ター 気 に 増 え , こち ら も 魅力 で す . 

turbo 用 CP/M も BASIC と 同様 を ディ スク ・ サ ポー ト 
を し て いる よう で す が , 注文 後 2 筒 月 に な る の に まだ 入手 
сез, FRET ECL 

以上 の よう に あっ け を なく 動作 し て し まい , turbo の 基本 
設計 の よさ に 改め て 感心 させ られ まし た . 

し か し , 問題 京 が 皆無 で は な く 2DD に 設定 し た と き に , 
ヘッ ド 移 動 に 伴っ て 少々 ビビ リ 音 が 生じ ます. これ は , 
FDD の ステ ッ プ ・ レ ー ト が 3ms に な っ て いる の に , 2D/ 
2DD 設定 時 に , FDC が 最高 6ms の ステ ッ プ 信号 し か 送れ 
な いこ と に より ます (FDC-LSI MB8877 の 欠点 )。 その た 
D, ヘッ ド 移 動 が 振動 的 に な り 共振 音 が 発生 し ます . その 
まま 使用 すれ ば ヘッ ド 寿 命 に も 影響 し そう で す . 
` 益 二 の ハー ド を 追加 すれ ば 改良 で きま す が , 今度 は 通常 
の 2D ドラ イブ 使用 時 に , その ステ ッ プ ・ レ ー ト が 5 ms に 
な っ て いる の て で 追従 で きず ,。 зА һу топ) & 
3 

ある い は , ソフ ト で トラ ッ ク 移 動 時 だ け ク ロッ ク を 2 倍 
に 切り 換え る こと も 考え られ ます が , この 部 分 の ドラ イ 
プ ・ ル ー チ ン を 相当 書き 上 直 き なけれ ば な ら な いで し ょ う . 
TCU] Ze X1 開発 チー ム の こと で すか ら , 対策 は 検討 済み の 
со АЕ, 

最後 に あま り 書 きた く な い の で す が , 失敗 談 を 少し 述べ 
ます . 接続 その も の は 一 発 で 成功 し て , 2 時 間 ほ ど 読 み 書 
き さ せ まし た . 外出 か ら 帰 っ て , 増え た クラ スタ を 写真 撮 
影 し よう と 思っ た の で す が , うま く 動 作 し ませ ん . まっ た 
く 読め な い の で す . あま り に も 簡単 に 動作 し た の で 取り 扱 
СКО, て っ きり ドラ イブ を 壊し て し まっ た の だ 
С L ш» ИИ 
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両面 高密 度 に フォ ー マ ッ ト 中 


жжжЕогтаћ Utililyxxx* 


その 後 。 わか っ た の は , ドラ イブ が 外部 雑音 に 弱く て デ 
ィ ス プレ イ や や 本体 の スイ ッ チ ング 電源 の ノイ ズ を 拾っ て い 
た の で す . 特に ディ スプ レイ か ら 強 い 雑 音 が 出 て いる よう 
+. 実際 に は 裸 で 使用 する こと は を いと 思い ます が , 3: 
験 的 に 接続 する と き に は これ ら の ノイ ズ 源 か ら な る べく 遠 
ざけ て 使用 し ます . 200 の 方 が 2HD より ノイ ズ に は 倫 感 
に 影響 を 受け ます . 普通 に 考え る と 記録 密度 の 高い 2 HD 
の 方 が ノイ ズ に 弱い よう に 思わ れ ま す が , 磁性 体 の 違い か 
ら か 逆 に な り ま し た . 


今回 使用 し た TEC 製 の FB-506-PC は 本 多 通 商 か ら 

ぎ 34,.800 で 購入 し た も の で す . また , 1/О 誌 の 広告 欄 か ら 

FDD を 拾い 出し て みる と , 以下 の よう で す 86 年 6 HEH 
ЖЕ). 

2D TEAC FD-55B(V) 


Ұ24,000 
2DD/2HD TEAC FD-55GF(V) Ұ42,000 
シャ ー プ 純正 ドラ イブ は TEAC 製 を 使用 し て お り , 価 格 
は 以下 の と お り で す . 
2D CZ-502F(2 ドラ イブ ) Ұ99,800 
2DD/2HD С2-520Е(2.Е>47) Ұ118,000 
純正 品 は も ちろ ん , ケー ス , 電源 , 接続 ケー ブル (CZ-502 
F ił FDC ポー ド も 含む ) を 含ん だ 価格 で , 実際 に は CZ- 
520F を 10 万 円 以下 で 購入 で きる と 思い ます . К 74 7 
源 を 集め て 組立 て て も それ くら いか か り そ う で すし , ひ ょ 
っ と する と 純正 品 の 方 が 安 上 り か も 知れ ませ ん . 
k, いう こと で 2DD/2HD 兼用 ドラ イブ が 早く 3 万 円 を 
切ら な いか な ぁ と 思っ て いま す . 


参考 文献 

1) 高橋 昇 司 : 最新 フロ ッ ピ ・ デ ィ ス ク 装 置 と その 応用 ノ 
ウゥ ハウ , CQ 出版 社 

2) FB-506-PC 取扱 い 説 明 書 , ТЕС 

3) “ХІ turbo Фа] 4", I/O, "85 年 4 НУ 

4) ХІ turbo ユー ザー ズ マ ニュ アル , シャ ー プ 

5) X1 turbo アプ リケーション ソフ ト 説 明 書 、 シャ ー プ 
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X12U-—A 


P-ROMZ1A0) 


CP/M 上 で 27 256 ま で 対応 / 


шох = 


JX E OO ф фр 080840 0808008080800 ERE OE EE EE 08080080808 OS 


メモ リ の 大 容量 化 は と ど ま る 所 を 知ら ず , 1 年 か ら 1 年 
半 ご と に 2 倍 に な っ て いま す . 人 間 の 頭脳 も この よう に 進 
歩 す れ ば あり が た い の で す が , 筆者 の 頭 な ど は D-RAM C 
覚え る 端 か ら 忘 れ て いく 有 様 で す . HET, ビッ ト 価 格 も 
安く な る 一 方 で す . 雑誌 の 通信 賑 売 の 広告 欄 を 見 る と ,2716 
か ら 27256 ま で 600 円 で 横並び の 状態 で す . D-RAM 並 に 安 
くく ならない の は セラ ミッ ク ・ パ バ パッケージ が 高い せい で し ょ 
5. アマ チュ ア ・ ユ ー ス に は あま り 関 係 が な い の で す が , 
プラ スチ ッ ク ・ パ バッ ケー ジ に 入っ た 1 回 だ け 書 き 込 め る 

“опе time EP-ROM" # 5 P-ROM も 販売 され て いま 
+. 

個人 的 な 使用 で は , 過去 4 K バ イト の プロ グラ ム を 書き 
込ん だ の が 最高 で , 筆者 の 頭 の 程度 で は 8 K バ イト の 2764 
専用 ライ タ く らい で 充分 だ と 思っ て いま す . 

し か し , 他方 で は 音声 合成 用 の デー タ 記 憶 , 漢字 ROM の 
フォ ント ・ デ ザイ ン の 変更 , パソ コン 内 蔵 の BIOS-ROM の 
カス タマ イズ な ど , KRE P-ROM を 扱う 機会 も 増え て き 
EET. 


また , X4xUXX(dJ4&3kda250(id(4nodsctortzd 
ж, 不 必要 な 部 分 は チッ プ ・ セ レク ト を 与え な いこ と で 
大 容量 ROM を 小 容量 の も の に 置き 換え て 使用 で きま す . 

ある い は 大 容量 ROM の 内 部 を バン ク 化 し て お き , 使用 
時 内 部 レジ スタ に バン ク 情 報 を 与え て , 切り 換え 使用 が で 
きる ペー ジ ・ ア ドレ ッ シ ン グ 方 式 の ROM t も あり ます (512 
K/16K バイ ト X 4 ЕР-РОМ イン テル 27513). 

上 記 の よう な 特別 の ROM を 使用 し な く て も , ROM の 
上 位 の アド レス ・ ピ ン を DIP スイ ッ チ で 切り 換え られ る よ 
うに し て お けい ば, 同様 に 使用 する こと が で きま す . 仕事 の 
種類 に 対応 し て 必要 本 数 の 専用 プロ グラ ム を 用 意 し て お き 。, 
切り 換え て 使用 し ます . この よう に すれ ば , プロ グラ ム 内 
部 で 条件 判断 を する 回 数 が 少な く な り , プロ グラ ム 開 発 が 
楽に な り ま す . ま た, 多数 の ROM を 用 意 し て 差し 換え る 必 
要 も 無く な り ま す . 

前 置き が 長く な り ま し た が , 「 大 きい こと は いい こと だ 」 
と いう こと で , 2716 か ら 27256 ま で 対応 し た P-ROM ライ 
タ を 紹介 し ます . 


PD BB BD BK BB DD DG D€ B4 BD фр EE {BD D€ BE BB CC E 


^ 9 99 2% + 
> 
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ужа) 9» v» v ва) v DAD Фа» 9 ва» v Фа» ва) а) v» 9v v9 rv» © 
本 機 は , 先 に IO 誌 に 発表 し た も の に ハー ド を 追加 し て 
2764, 271280 А タイ プ と 27256 を 取り 扱え る よう に 改良 し 
た も の で す . ソフ ト 的 に は ほとん ど 変 更 が な く 操 作 方 法 も 
同じ で す . 本 機 に は 以下 の よう な 特長 が あり ます . 

⑯2716 か ら 27256 (A タイ プ を 含む ) に 対応 . 

Ө CP/M 上 で 動作 . 

Oj Hi E = ЯНИЕ. 

Q5 3: i87; Ко RA A, 

イン テル НЕХ 形式 の ファ イル を サポ ー ト 、. 

@ 他 機種 に 移植 する た め の プ ログ ラム を 内 蔵 . 

さら に 入出 力 命令 以外 に , Z80 特 有 の 命令 を 使用 し て い 
な い の で , わずか な 変更 (2, 3 箇所 ) С, V30 の 8080 モ ー 
ド で 走る 可能 性 が あり ます . 


@ ° o so so so pb 9 99 sb SD s 00 sb so sb 99 9 9 9 sp oo oo 
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Р- HOM に つい て | : 
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Bd 1 に 各種 EP-ROM の 端子 配置 図 を 示し ます . 2732 以 


OAA 0¢ 
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кіз24ы >, 2764 以 上 は 28 ピ ン の パッ ケー ジ に 入っ て いて , 
通常 の リー ド 時 に は ピン 配置 に 上 位 互換 性 が あり ます . 

表 1 に EP-ROM の 動作 モー ド 表 , 図 2 に その 中 か ら プ 
ログ ラム , ベリ ファ イ , リー ド 時 の タイ ミン グ を 抜き 出し 
た も の を 模式 的 に 示し ます . 

プロ グラ ム は 所 定 の Vpp 電圧 (R2) を 印加 し た 状態 
<, 2716 は 正 , それ 以外 の も の は 負 の パル ス を 50 土 5ms の 
期間 与え て 行ない ます . 

2764 以 上 で は , 上 述 の 書き 込み 方 法 に 加 そ て 高速 書 

み が 可 能 に な っ て いま す . 図 3 に 富士 通 方 式 の 高速 書 des 
み 方 法 を 示し ます が , イン テル 方 式 も 細か い 点 を 除い て ほ 
ぼ 同 様 で , 追加 書き 込み が 3 倍 も し く は 4 倍 の 時 間 に な っ 
て いる の が 大 き な 違 いで す ( 詳 細 は 参考 文献 1 を 参照 ). 本 
機 は 2716 と 2732 で は 50ms の 普通 書き 込み , 2764 以 上 で は 富 
士 通 方 式 の 高速 書き 込み を 採用 し て いま す . た だ し , 正式 に 
は Vcc に 6 V が 要求 きれ ます が , 本 機 で は ハー ド の 簡素 
化 の た め БУ の まま で す . 

実際 の 書き 込み 時 間 を 表 3 に 示し ます が , 2716 は 2732 の 
半分 , 27128 は 2764 の 2 倍 の 時 間 が か か り ま す . 注目 の 高速 
書き 込み で す が , 手持 ちの 三菱 , 日 立 製 の も の で は 1 回 で 
書き 込め て お り , 追加 書き 込み を 含め て 1 バイ ト 当 た り 2 
ms で 完了 し て いま す . 


図 1 各種 EP-ROM 端 子 配置 図 
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P-ROM の 消去 
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P-ROM の 消去 に は 紫外 線 ラ ンプ を 使用 し ます . 街 の 電 
気 店 で は すぐ に 手 に 入ら な い の で , 電設 資材 店 で 購入 し ま 
d. 筆者 は 東芝 製 の 6W 堂 光 燈 器具 FT-600-100B と 殺菌 
ラン プ GL-6 を 5 年 前 に お よそ 2.000 円 で 購入 し まし た . 
めった に 使用 し な い の で , 導電 スポ ンジ に ROM を 並べ 
だ た も の を ラン プ の 下 に 置き , 紫外 線 は 眼 に 悪い の で 座布団 
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また は Xms パ ルス を 1 


を 上 に 置い て 使用 し て いま す . 

2716 を 使い 始め た 頃 , 時 間 を 測っ て み ま し た が 3 分 で 消 
そ 始 め て 5 分 で 完全 に 消 を る よう で し た . それ 以後 は 確認 
し て いま せん が 常に 15 分 間 照 射 し て いま す . 
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P-ROM ライ タ 回 路 図 を 図 4 に 示し ます . P-ROM の 読 
み 書 き に は 8255A を モー ド 0 の 単純 入出 力 ポ ー ト と し て 使 
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#1 EP-ROM の 動作 モー ド 表 
2732 (A) 2764(A), 27128(A) ROM 種 類 
ATA E/PGM | ОЕ | Мрр | Vcc | СЕ | ОЕ/Мрр | Vcc |СЕ | OE | PM | vpp | Усс |CE | ОЕ | vpp | сс abu 
| 
y = F L С | +5 +5 Г. L +5 2 |М H +5 +5 b Ж +5 +5 7y—373 
スタ ン バ イ H х +5 +5 н х 1 +5 H x x +5 +5 H x +5 +5 мае 
ビー ダン ス 
2. | Pulsed +25 +21 е 
標準 プロ グラ ム | Vo V, 38 | жи ъ| ду |ж жк |н] と | мо | 5 Ікін 412.8 | +5 | デー タ 入 力 
プロ グラ ム ・ L +1 | ЈЕ 
Ра L +25 | +5 | L L міскін | 2 [+ | H | L | +12.5 | +5 | デー タ 出 力 
プロ グラ ム ・ +25 +21 | ハイ ・ イ ン 
イン ヒビ ピッ ト に H +25 +5 н (+21) +5 н х х (+12.5) +5 н н +12.5 +5 ピー ダン ス 
| | | 
高速 プロ グラ ム E L бе +6 | L | H | +12.5 | +6 | デー タ 入力 
アウ トブ プッ ト ・ | 
ディ セー プル 
表 2 EP-ROM の Vpp 電 庄 
Vpp 電 圧 EP-ROM 名 ; 
25V 2116, 2132 Vpp 電 圧 | CE な ど | OE な ど | Вж Б | ROM タ イプ | ROM 切 り 換え スイ ッ チ 
ич 2132А, 2164, 27128 0 :OFF | (PGM) の ラッ チ | の 読み 込み | の 読み 込み 
(一 部 の 27256) 1:0М 0:А 
1 :NON-A 
12.5V | 27164A, 21128A, 27256 
表 3 EP-ROM の 書き 込み 時 間 ( 単 位 : 秒 ) 表 6 Vpp 電 庄 の 切り 換え 
EP-ROM 名 | 消去 チェ ッ ク | 書き 込み ベリ ファ イ 
NON-A(H) 
21+0.5V 25+1V 
* 1 * 2 
R4 1521387 12.5+0.3V 214-0.5V 
* 3 ж4 
Vpp 電 圧 の 切り | A,, も し く は 
換え 1 番 ビ ン の 表示 バッ ク さ れる 電圧 で Vpp 電圧 が 制御 され て いる の で , 1 # 
ЗРНА arse ピン に 接続 し て いる 抵抗 と か ROM タイ プ 切 り 換え スイ ッ 
1 : 21/25V 1 : 1 番 ビ ピン : 


用 し て いま す . アド レス ・ デ コー ダ 回 路 を 省略 し て いる の 
T, ИО ボー ト が 256 個 の 機種 は シス テム が 使用 し て いな い 
アド レス を A。 か ら A: を 使っ て デコ ー ド し て くだ さい . X1 
の 場合 は 1/O ポー ト と し て 64K フル に 使用 し て お り , ユー 
ザー は $0000 一 $00FF まで 使用 する こと が で きま す . この 
У КЕ 2 А, -А 0 “0” を デコ ー ド し た ЕХО 信号 を 必ず 
使用 し な けれ ば な り ま せん . 

А ボー ト は ,P-ROM と の デー タ の 入出 力 に 使用 し ,B ж 
ー ト の 上 直 出 力 は アド レス 下位 (АД ~А,) に 使用 し て いま 
T. さら に , B ポー ト の 出力 を 8 ビッ ト の ラッ チ で 受け て 
アド レス 上 位 (АД —Ал) と Vpp 電圧 の 切り 換え に 使用 し 
て いま す ( 表 4).C ポ ー ト の 下位 4 ビッ ト は 入力 に 設定 
て , ROM 切り 換え スイ ッ チ と ROM の タイ プ (A/NON- 
А) を 読み 取っ て いま す . 上 位 4 ビッ ト は 出力 に 設定 し て リ 
=F, ライ ト の コン トロ ー ル に 使用 し て いま す ( 表 5). 

図 5 に Vpp 発生 回 路 を 示し ます . 3 種類 の Vpp 電圧 は 
РВ ЈЕ КОМ タイ プ ・ ス イッ チ の 2 つ で 切り 換え て い 
ます (#6). 

回 路 図 記載 の 定数 で 定格 電圧 内 に 入る と 思い ます が , 調 
ED FM KHZ LZ Sk” と 番号 の 順番 に 回 路 図 の 対 
応 する 抵抗 を 増減 し ます . 最初 に PB# が 1” を 出力 し た 
状態 で ROM タイ プ ・ ス イッ チ を A (L) Ши, * 1 の 
150kQ を 加減 し て 21 エ 0.5V に 合わ せま す . ХЕ NON-A 
(H) 側 に 切り 換え て * 2 の 抵抗 を 調整 し 25 土 1 V に し ま 
+. 以下 同様 で す . 筆者 は 個人 的 使用 で は , トラ ブル の 多 
い 半 固定 抵抗 器 は 使わ な い 方 針 で す が , 使用 すれ ば 調整 作 
業 は ずっ と 楽に な り ま す . TL497A の 1 番 ピ ン に フィ ー ド 
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チ 回 り の 配線 は , 
と も に , 


な る べく 最短 距離 に な る よう 心掛け る と 
抵抗 の 接地 は 1 点 ア ー ス に な る よう に し て くだ さ 


em од) «а 4% Фау © ка) ва) ка) Фа) «А €) V v € ва v» e ва) e v 995 Фф 


使用 方 法 | 
v» vio DD ж) VA) ж) ж) V8) ва ва VA) ва) ва ва ва ва ва) ва) ва 99 «Ж ва Ф 
@ ビ ネフ ブル ・ メ ニュ ー 

起動 する と ,P-ROM の 名 前 , サ イズ と 3 個 の コマ ンド が 
タイ ププ さき され, 入力 待ち に な り ま す . この 状態 で КОМ 切り 
換え スイ ッ チ と , ROM タイ プ ・ ス イッ チ を 見 て いる の で , 
該当 する КОМ に 切り 換え て くだ さい . КОМ タイ プ ・ ス イ 
ッ チ を A 側 に 倒す と , КОМ の 名 前 の 後ろ に A” が 付加 さき 
れ ま す . 2716 の 場合 は 、 エ ラー メッ セー ジ が 出力 され キー 
入力 待ち に な る の で , NON-A 側 に 切り 換え て 何 か キ ー を 
押し て くだ さい . 27256 の 場合 は Vpp 電圧 が 21V の も の も 
一 部 ある よう なので, 通常 の 12.5V の も の を 使用 する と き 
に は , 名 前 の 後ろ の ^A” を 確認 し て くだ さい . キー を 押す 
と 各 サ プ ・ メ ニュ ー に 飛び ます . 

以下 , 特に 断ら な く て も , キー 待ち 時 と P-ROM の リー 
FE, ライ ト 時 に は [ ESC | キー で 実行 を 中 断 し , この モー ド 
に 帰っ て きま す . タイ プ ミ ス を し た と き は , [ DEL | キー で 
1 文字 消去 で きま す . 


@ サ ブ メ ニュ ー 
ШР)-РОМ = — F 
Al と MM の 書き 込み コマ ンド で は , 先頭 アド レス , 最終 ア 
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[4 P-ROM ラ イタ 回 路 図 
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5 Vpp 発 生 回 路 図 
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ROM タ イプ ・ ス イッ チ 


РС, o > 


PB,xO 
fo 
ドレ ス の 順に 範囲 を 聞い て きま す . 次 に , КОМ の セッ ト を 
確認 し て 命令 を 実行 し ます . 

それ 以外 の コマ ンド で は , КОМ の セッ ト を 確認 後 , 全 ア 
ドレ ス に つい て 命令 を 実行 し ます . アド レス 範囲 を 指定 す 
る よう に 変更 する 場合 は 、 リス ト 2 の パッ チ を 当て て くだ 
さい . 

バッ ファ は 0 一 7FFFH の 32K バイ ト の サイ ズ を 持ち , W 
り 扱 い を 簡単 に する た め に ROM の 先頭 アド レス は 固定 に 
な っ て いま す ( 図 6). 

圏 F)ile モ ー ド 

此 ] を 押す と ファ イル 名 , ロー ディ ング ・ ア ドレ ス の 順に 
聞い て きま す . НЕХ ファ イル の 場合 は , ファ イル が 持っ て 
いる アド レス 情報 を 無視 し て ロー ド す る の で , 不 連続 な フ 
ァイル は 正しく ロー ド さ れ ま せん . ROM に 焼き 付け る プ 
ログ ラム で は あま り 使 いま せん が , アド レス 調整 の た め に 
DS 疑似 命令 を 使用 する と , デジ タル リサ ー チ 社 の アセ ン 
プラ で は , その 部 分 を 抜か し た HEX ファ イル を 生成 する 
DT, 同一 バイ ト 数 の DB か DW 命令 に 置き 換え な けれ ば 
な り ま せん . マイ クロ ソフ ト 社 の M80 は , “ОВ 0” と 等 価 
な 扱い を し ます の で 問題 は あり ませ ん . さら に 新しい バー 
ジョ ン で は , ~ 0/ を 含む 任意 の デー タ を セッ ト で きる よう 
©, 

[5] を 押す と ファ イル 名 , 先頭 アド レス , 最終 アド レス の 
順に 聞い て きま す . エク ステ ンション に HEX を 指定 する 
k, バッ ファ ・ ア ドレ ス の 値 を その まま 記録 する の で , 0 
番地 か ら セ ー ブ し た も の を 他 の DDT など で ロ ー ド する と 
き に は 注意 が 必要 で す . R100 な どの オフ セ モット を 付け ま 
す . 
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GND 
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ү 
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C1775x2 


+5\ 
^7 50 | 
“> e ° 4 Vpp オ ン 
77 560 


3 番 ビ ン 


図 6 各種 EPROM の アド レス 


ШМ ) оп ог € — К 


各 コ マン ド は , DDT の それ に 似せ て いま す が , 先頭 アド 
VA, 最終 アド レス な ど を 別々 に 聞い て くる 違い が あり ま 
3. この モー ド で は , 他 の モー ド と 異な り 実 行 を 終わ っ て 
も モー ド か ら 抜 け 出 し ませ ん . ゼネ ラル ・ メ ニュ ー に 帰る 
に は [ ESC | キー を 押し ます . 

39 9939 999 99 99 99 99 99 99 99 99 99 99 9999 99 9999 RW RW 


ワ ロ ク ラ | 
: プ ログ ラム の 入力 方 法 : 

DDT や CATY モ ニタ な どの ツー ル を 用 いて 入力 し た 
後 ,| CTRL | (сто ) 7— | し て SAVE 20. P-ROM. 
COM で セー ブ し て くだ さい ハー ド が 接続 きれ て いな く 
て も プロ グラ ム は 走行 可能 で す (P-ROM は 2716 に 固定 ). 

プロ グラ ム が 正しく 入力 され て いな いと , 他 の ファ イル 


LO 


表 7 コマ ンド 一 覧 表 
P)-ROM ROM の 読み 書き 
F)ile ー タ の ロー ド プ セー プ ブ 
М) onitor | ^ ッ フ ァ の 読み 書き 
ESC CPM に 帰る 
(その 他 ) ROM 切 り 換 え ス イッ チ と ROM タ イプ スイ ッ チ の 読み 込み 


R)ead ROM の 読み 込み 
V)erify | ROM と バッ ファ 内 容 の 比較 全 ア ドレ ス に つい て 実行 
E)rase check ROM の 消去 チェ ッ ク 

消去 チェ ッ ク ・ 書 き 込 み ・ ベ リフ ァ イ 
ы схе. : 指定 アド レス に つい て 実行 
W)rite | 書き 込み ・ ベ リフ ァ イ 


ゼネ ラル ・ メ ニュ ー に 帰る 


ESC 


L)oad ファ イル の ロー ド 


ファ イル の セー プ ブ 


S)ave 


ESC 


ゼネ ラル ・ メ ニュ ー に 帰る 


D)ump ж ッ フ ァ 内 容 の ダン プ 


Г M)ove ブロッ ク 転 送 
F)ill バッ ファ 内 を 指定 デー タ で 満た す 
S)et バッ ファ に デー タ を 書き 込む 
ESC ゼネ ラル ・ メ ニュ ー に 帰る 


を 壊す 恐れ が ある の で , 内 容 が 壊れ て も よい ディ スク に コ 
ピー し た 後 , ХІ を 使用 し て いて 8255 の アド レス を 筆者 と 
同じ 8$0000 か ら に し た 人 は , 後に 示す 支 の 作業 の 実行 に よ 
っ て 起動 し て くだ さい . それ 以外 の 人 は P-ROM — жС 
起動 し て くだ さい . 

まず , ポー ト ・ ア ドレ ス を 聞い て くる の で , 16 進 数 4 桁 
以下 で 入力 し て くだ さい . Жіс, CPU クロ ッ ク を 聞い て く 
る の で , 実行 クロ ッ ク 周 波数 を 10 進 4 桁 で 入力 し て くだ さ 
v. 入力 し た 値 は 範囲 を チェ ッ ク し て いな い の で 注意 し て 
くだ さい . [ESC | キー で 中 断 し ます . 

この 周波 数 は , P-ROM の 書き 込み 時 間 に 関係 し て いま 
+. 各 機 種 の クロ ッ ク 周 波数 は , X1 で は 4MHz, PC80/88 
mkII 以 前 の も の は DMA と M1 ウェ イト の ため , 約 2.5 
MHz, SR 以後 は 4MHz に な っ て いる よう で す . #72, MZ 
-2500 は М1 ウエ イト に より 4.8MHz に な り ま す . 

実際 の プロ グラ ム は , リス ト 3 に 示す よう に 割り 込み を 
禁止 し た 後 ,。 BC レジ スク タ を デ ク リ メシ ント する ソフ トウ ェ 
ア ・ タ イマ に な っ て いま す . 正しく 入力 が 行なわ れる と 自 
分 自身 を セー ブ し 直し ます ( 図 7). そし て , ж P-ROM 4 
で 起動 する の で , 使用 方 法 な ど が 充分 に マス ター で きた ら 。 
最後 に リス ト 4 の パッ チ を 当て ハー ド を 接続 し て 完成 で す . 
実際 の 作業 例 を 図 8 に 示す の で 参考 に し て くだ さい . 
$99 96-99 9 99 99-96 € 99-96-96 99 99-90 99 $9 99 99 99 99 $9 99 € 


% 
最後 に d 


DDD 96 99 99 99 99 99 99 99 99 99 99 9 99 9 9 $9 99 9 99 9 Ф) 

この プロ グラ ム は , 参考 文献 2 の お か げ で 1 週間 ほど で 
動き 出し まし た . 一 部 意味 が わか り に くい 所 が あり ます が , 
非常 に 良い 本 だ と 思い ます . 


w у 


КУ 


ФЕ Б 4 


1) 上 原 貞二 : “特集 : 実用 メモ リ シ ス テム の 設計 ノウ ハ 


図 7 作業 例 1 (P-ROM.COM の リセ ー プ ) 


A»p-rom + 


%%% PORT AND CLOCK CHANGE %%% 
Input 8255 A-port address (һех)? 0 
Imput CPU-clock in kHz(exa:4000 or 3600 or another)? 4000 
ттыатттытттттытыттаныыы 

P-ROM.COM save ок ! 

А> 

A> 

7 第 5 章 簡 易 P-ROM 書き 込み 器 の 設計 ?, トラ ン 
タ 技 術 "85 年 1 H 9, CQ 出版 社 

2) アラ ン ・R・ ミ ラー 著 ,。 友 枝 英 一 訳 
M, CQ 出版 社 

3) 今 雪 : “P-ROM ライ タ の 製作 ?。 I/O "86 年 3 月 号 
4 ) intel : Memory Components Handbook 1985 
P-ROM ラ イタ 本 体 


М: : マス タリ ング CP/ 
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図 8 作業 例 2( 使 用 法 ) 


А>р-гот 
P-ROM WRITER 1.1 (2716-27256) 
Copyright・(C) 1986 by H.Imayuki 


*** P-ROM Writer 27256  (0000-7FFF) #%% 
Р)-КОМ, Е)і1е, M)onitor, ESC) to abort? 


*** P-ROM Writer 2716 (0000-07ЕЕ)  *** 
P)-ROM, F)ile, M)onitor, ESC) to abort? f 


L)oad, S)ave, ESC) to return? 1 
File name? b:prbufl.hex 

Loading address? 0 

ネネ ネネ ネ 

Load ok (0000-00EB ) 


* ネ ネ P-ROM Writer 2716 (0000-07ҒЕ)  *** 
Р)-ЕОМ, F)ile, M)onitor, ESC) to abort? m 


Buffer (0000-7FFF ) 

D)ump, Е)і11, М)оуе, S)et, ESC) to return? s 
From? 0 
0000 21 
0001 ЕЕ 
0002 ЕЕ 
0003 AF . 


ooo 


D)ump, F)ill, M)ove, S)et, ESC) to return? d 

From? 0 

To? 17 

0000: 00 00 00 AF 2F 23 77 BE C2 05 00 AF 77 BE C2 04 ..../#м.....м... 
0010: 00 44 4D 23 77 BE CA 13 .DM#W... 


D)ump, F)ill, М)оуе, S)et, ESC) to return? 


*** P-ROM Writer 2716 (0000-07ЕЕ)  *** 
P)-ROM, F)ile, M)onitor, ESC) to abort? p 


R)ead into buffer, Е)газе check, V)erify 
A)uto=Erase-Write-Verify, W)rite-Verify, ESC) to return? г 
P-ROM set ok? y 

P-ROM reading now 

Complete 


ネネ ネ P-ROM Writer 2716 (0000-O7FF) %ж%% 
P)-ROM, Е)11е, M)onitor, ESC) to abort? р 
R)ead into buffer, Е)газе check, V)erify 
A)uto-Erase-Write-Verify, W)rite-Verify, ESC) to return? а 
From? 0 

To? ff 

P-ROM set ok? 

Erase checking now -- ok 

P-ROM writing now 

Verifying now 

Complete 


*** P-ROM Writer 2716 (0000-07ЕЕ) txt 
Р)-ЕОМ, Е)11е, M)onitor, ESC) to abort? 
А> 
А> 


—— J スト !"P-ROM. СОМ” 5 XZ: А | mwa—rrrr 
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0810 


0820” 


0830 
0840 
0850 
0860 
0870 
0880 
0890 
ОВАО 


22 
82 
81 
20 
C1 
C3 
CD 
7C 
CD 


C1 
82 
46 
23 
23 
AE 
4B 
88 
20 


Е1 
C5 
6C 
C5 
C2 
22 
AF 
B8 
3E 
81 
C5 
ЗА 
АА 
00 


сз 
21 
65 
0Е 
23 
АА 
37 
СА 
08 
23 


00 


LO 


UZ F1*P-ROM. COM ッ ダン プ ・ リ スト 


45 
19 
3F 
88 
88 
4Е 
СА 
08 


:E2 
:80 
:FD 
:9D 
:65 
:62 
:0B 
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LO 


リス ト 1^P-ROM. COM タ ダンプ ・ リ スト 


- 


0030 03 8р СЗ ОҒ 8р Е5 D5 С5 ОЕ 13 
0040 С9 11 5С 00 АЕ 32 68 00 32 7С 
0050 50 8р Е5 С5 21 2Е 8р 06 14 Ср 
0060 8р OD ОА 4E 6F 20 64 69 72 65 
0070 73 70 61 63 65 С9 Е5 D5 С5 ОЕ 
0080 El С9 CD 45 82 Е5 D5 С5 21 67 
0090 CD 53 89 СІ р1 El СЗ 6А 8D 48 
ODAO Ер 91 7р 29 6С 26 00 Е6 ТЕ СА 
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нн ния 2 7377 (Address changeable) 


04Е0 84 CD 2р 87 D8 СЗ Вр 84 11 00 00 01 00 00 03 С5 :ВВ 
нин 1) 7 |-3 P-ROM writing(timer) 
Қ. 
PGM: 
DI ;disable interrupt 
STA TIMEN+1 ;PGM on time multiply by А 
LXI B,POTCTL ;8255 control port 
MVI А, ООН ;PGM(C-port/bit 6) оп 
OUTP А ;oUT (С),А 
WAIT: 
LXI B,00A4H ¿wait 1 msec 
WAI1: 
DCX B 
MOV A,B 
ORA с 
JNZ МАІ1 
TIMEN: 
MVI A,0 ;dummy parameter 
DCR A 
STA TIMEN+1 
JNZ WAIT 
LXI B, POTCTL 
MVI А,0СН ;PGM off 
OUTP A jOUT (C) ,A 
ЕІ ;enable interrupt 
RET 


リス ト 4 パッ チ (at complete) 


03FO C9 01 02 00 ED 78 2F Еб OF C9 20 32 37 31 36 FF :0р 


朴 な あな た ヘマ シン 請 打 ち 込 み 


せっ か く 『X1 シ リー ズ 活 用 研究 』 を 買っ た の に , 中 は マ い が わ か る わけ で すね . た だ , X1 の モニ タク に は , この チェ 
シン 語 の ダン フ ・ リ スト だ ら け .。 BASIC な ら 知 っ て て も 、 ッ ク サ ム が サポ ー ト され て ませ ん . 困り まし た ね . Cb, 
マシ ン 語 を どー арч 2 DREN СЕУ あな た は な ん て ラッ キー な ん で し ょ う .。 この 『X1 シ リー ズ 
に な っ て る キミ . ここ は そん な あな た の ペー ジ で す . 活用 研究 』 に は チェ ッ ク サ ム ・ プ ログ ラム (p.176) が 載っ 
さて , マシ ン 語 の 入力 に は マシ ン 語 モニ タ が 必要 で す . て る ん で すね . それ さえ 打ち 込め ば この 本 に 載っ て いる 
「 そ ん な の 持っ て な い 」 と 言う 人 は 。 X1 の ユー ザー ズ ・ マ ニ ダン プ ・ リ スト と 全く 同じ 形式 で . あな た が 入力 し た デー 
ュ ア ル を よく 読ん で くだ さい . どの X1 に も マシ ン 語 モニ タ タ が CRT に 表示 され ます か ら , 見 比べ る の が と っ て も 便 
は つい て る ん で す (X1 の マニ ュ ア ル で は 機械 語 モ ニタ と 呼 利 . また チェ ッ ク サ ム 付 き の 64KK バ イト ・ モ ニタ (p.201) 
ん で いる ). 良かっ だ た ね . も 掲載 し と きま すか ら , そっ ち を 使い た い 人 は 入力 し て み 
Cli, 入力 する プロ グラ ム が どの BASIC で 走る か を 調べ て くだ さい ね . 
て , その BASIC を 起動 きせ て くだ さい . 起動 し た ら ,MON 以上 で 講座 を 終わ る けど , モニ タ の 使い 方 を 覚え て , 16 
| と し ます . 画面 に **? が 表示 され まし な たね. これ で モニ 進数 を 打ち 込む 元気 さえ あれ ば , この 本 に 載っ て いる プロ 
タ は 起動 きれ まし た . あと は モニ タ の 説明 を よく 読ん で , グラ ム は あな たのも の で す . 最後 に 格言 を 1 つ . 「 入 力 し 
M コ マン ド な ど で ひ た すら 16 進 数 を 入力 すれ ば いい ん で す . た ら 即 セー ブ . その コマ ンド が あな た を 救う 」 


と ころ で ダン プ ・ リ スト の どこ を 打ち 込め ば いい か と いう - 
回 題 が 残っ て まし た ね 。 図 を 見 て くだ さい . 左上 の Add の __ 図 チェ ッ ク サ ム ・ ダ ンプ リス ト (入力 する の は 内 側 の 2 桁 デー タ ) 


下 に 並ん で いる 16 個 の 4 桁 の 数 字 が アド レス で す . これ は アザ レス アド レス B537H(B530H+7H) に 入っ て いる デー タ 
デー タ の 入る 番地 で すか ら 入 力 し ませ ん . #72, FRED 
横 1 行 が アデ ド レス の トド 1 桁 を 表わし て いる こと を 覧 明 な あ 
な た は も うお 気づき で し ょ う . あな た が 入力 し な けれ ば な 
ら な い の は , ダン プ ・ リ スト の 大 部 分 を 占め る 2 桁 の 16 進 
数 の 集団 で す . し か も これ を 1 つの 間違い も な く 入 力 し な 
けれ ば ぼ ば ならない の で す 。 ウン ザ り リ 0 し た で し ょ う 。 

し か し あな た に は 強い 味方 が つい て いま す . それ が チェ ッ 
クサ ム で す . 入力 する 手間 を 直接 省く こと は で きま せん が 
打ち 込み 終わ っ た 膨大 な 16 進 数 の 中 か ら 入 力 間違い を 発見 
する と き に , 大 き な 力 を 発揮 し ます . デー タ を 1 つ ひ と つ 


| | 256 バ イト 分 の 


チェ ッ ク し な く て も , チェ ッ ク サ ム を 見 比べ て いけ ば 間 違 HOFER ЕД 
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マシ ン 語 の デバ ッ グ 中 に テス ト ・ ラ ン し た と き , どこ か 
の ルー プ に 入っ て し まっ た りす る こと が あり ます . そん な 
と き , プロ グラ ム ・ カ ウン タ (PC) の アド レス が わか れ 
ば , デバ ッ グ の 役に立ち ます . また , 市 販 ソ フト の プ ブログ 
ラム を 調べ る と きも 便利 だ ろう と 思い , プロ グラ ム ・ カ ウ 
ンタ 表示 器 を 作っ て み ま し た . 私 は これ で ワー プロ 『JET 
機 」 を 撃墜 し まし た . 順 ち ゃ ん の “FDAS” と と も に 使っ て 
みて くだ さき さい. 


ЈЕЛЕНИ ЋЕ 


図 1 に 回 路 図 を 示し ます . 

回 路 の ポイ ント は , Z80 の リフ レッ シュ と OP コー ド ・ フ 
ェ ッ チ の 区 別 を する と ころ で す . ОРа— F: 7 z > 07 
イミ ング ・ チ ャ ー ト (R) を 見 る と わか る と 思い ます が , 
M1 マ シン ・ サ イク ル , すなわち M1 が ロウ の と き OP コ ー 
ド ・ フ ェ ッ チ が 行なわ れ ま す 。 また 。 ア ドレ ZAA; 

(PC) を 時 間 的 に 余裕 を も っ て 確実 に 取り 込め る タイ ミン 
グ と いう 条件 が 必要 で す . 

この 条件 の も と で , 変化 し て いる と ころ を 探す と , RD の 
立ち 下がり が 最適 な タイ ミン グ で す . し た が っ て , 回 路 は 
スイ ッ チ が 押さ きれ た と き , そし て M1 が ロウ で RD が 立ち 下 
が っ た と き ラ ッ チ する 構成 と し まし た . 割 と シン プル な 回 
路 に な り ま し た . 


LEDN ラ S17 イフ E82LIT – 


当 回 路 で は 1 セグ メン ト あ た り 約 11mA の 電流 が 流れ ます 
この 電流 を コン トロ ー ル し て いる の が コモ ン 端 子 (C) か ら 
GND に 落ち て いる ダイ オー ド (10D-1) C3, コモ ン 端 子 を 
直接 GND に 落と す と 約 15mA。 ダイ オー ド を 2 本 シリ ー ズ に 
つなぐ と 約 9mAa に な り ま す . TC5068 の ドラ イブ 能力 は 8mA 
(min) が 規格 に な っ て いま す が , 実力 は 倍 ぐ らい あり そう で 
す 


FARRER 


電源 を 入れ る と , LED 表 示 は パラ バラ と 点 減 し て いま 
7, そこ で スイ ッ チ を 押す と アド レス が 表示 され ます . も 


ШАМ ауе С 
ж... А w 


0888H 番 地 を 実行 中 だ っ た 


表示 器 に 使っ た 部 品 


図 1 プロ グラ ム ・ カ ウン タ 表 示 器 回 路 図 
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: 74LS74 
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ІС, 
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Со 
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バイ ナリ 表示 の 場合 


M1 サ イク ル 


T; 


REFRESH ADDR 


N RD の 立ち 下がり で A。--A,。 を ラッ チ さ せ , PC を 表示 する . 


う 1 度 ス イッ チ を 押す と LED は パラ ノッ パラ と 点 減 し ます . 


下記 の 簡単 な プロ グラ ム を 例 に テス ト し て み ま す . 
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ログ ラム を イン プッ ト し , 走ら ちせ て お いて スイ ッ チ を 押す 


と , 


ルー プ と な っ て いる この プロ グラ ム の どれ か 1 つの OP 


コー ド の アド レス が 表示 され ます . 何 度 押し て も , 表示 さ 
れる の は ルー プ 内 の OP コ ー ド の アド レス の は ず で す . 


E000 : 
E001 : 
E002 : 
E003 : 


00 


C3 00 EO 


—— I Start : NOP 
NOP 
NOP 
JP Start 


жі X1 /ОЖ—Р 
Е > 信 = 信 号 сз 
1 +5V | +5V 1 
2 DB3 | о: |2 | 
| 3 | оны | ом | 3 | 
< | om | | | 
s | —— om — ] — sew — | 5 . 
p DB? | А8 | 6 | 
1 сросик | ам |17 
[4 | — Ww sm | 
[3 | E | ^ ó 
БЕГЕН Rm | A D 
"n | oa | aw ùn] 
E wERG | — | " 
13 GND АВ 13 
14 HALT | A7 14 
15 ТЕТ | Аб 15 
16 IEO | А5 16 
17 ВЕ5ЕТ | A4 17 
18 ЕХО ا‎ 4. __ | w | 
19 EXINT | —— 
21 NMi | A0 21 
22 GND | GND 22 
部 品 面 ハン ダ 面 
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図 4 基板 の 接合 


ڪڪ 
LLLA‏ 2222227( 


бъ 


20272020770 12222227772 
に ーー ニー ニニ ーー 


E000, E001, E002, E003 番 地 の ど れ か が 表示 され ます . Е 
004, E005 は DP コー ド で は な い の で 表示 され ませ ん . 


お まげ 


7 セグ メン ト LED は 電流 が 多く 流れ る の で 電源 に 余裕 が 
な い , また は デジ タル 表示 より バイ ナリ 表示 の 方 が よい と 
いう 方 は , 図 1 の 点線 枠 の 回 路 に し て くだ さい . ІСТ, 8 に 74 
LS373 は 使え ませ ん . C-MOS タ イプ の 74HC373 を 使っ て く 
だ さい . 理由 は , 74LS373 は ハイ ・ レ ベル の ドラ イブ 電流 が 
取れ ませ ん が , 74HC373 の ドラ イブ 電流 は ハイ ・ レ ベル で 
6mA (min) 取れ ます . LED は 赤色 豆 つ ぶ の よう な 小さ な も 
DT, ドラ イブ 電流 は 5mA も あれ ば 充分 で す . 私 の 場合 は , 
抵抗 2 を 1kQ で 3mA で す が , 充分 な 明る さ で す . LED3 は ラ 
ッ チ 表示 の イン ジ ケ ー タ で , Wc о EI 
を 使っ て みて は どう で し ょ うか . また , アド レス 表示 を 4 ピ 
ッ ト ご と に 色 を 変え て みた りす れ ば 読み や すく な り ま すね . 


UISK BACK UP MAKER Х1 


I/O '854 4 月 号 の 6001mk II (SR) 用 の DISK BACK UP の X1 版 を 
作っ た の で 発表 し ます . 

使い 方 は , CZ-8FB01 か ら 打 ち 込 み 、RUN し ます . 後 は 画面 に 従っ 
て くだ さい . な お , 6001mkII (SR) 用 と 同じ く ,. プロ テク ト の か か っ 


OO]‏ ڪڪ 


参考 ほ まで に , 7 モグ LED の 表示 と X1 1/O ポ ー ト の ピン 接 
を それ ぞ れ 図 3。 表 1 に 示し ます . 


使っ た 部 品 は 以下 の と お り で す . 


ІС : 74LS00 1 個 
74LS74 1 個 
TC5068 4 個 
LED : 51,214 カソード ・ コ モン 2 個 
抵抗 ・4.7kQ 20 個 
コン デン サ : 10kF/10V 1 個 
йр) 電解 1 個 
0.014Е モラ ミッ ク 2 個 
ダイ オー ド : 10D-1 1A ク ラス 1 個 
スイ ッ チ : PHM1 (MURON 製 ) ノン ロッ クタ イプ ИЙ 
ケー ス  : GR-1 (アイ デア ル 製 ) 1 個 


な お , 今回 は 1/O ス ロッ ト か ら 信 号 を 取り 出す だ け で , し 
か も XX1 用 の 1/O 専 用 カー ド は 高い の で , — < +1,000 F 
で 売っ て いる 35p で 115 メ 130 以 上 の サイ ズ の も の に ハギ レ 
の 基板 を 付け まし た . 付 ける 方 法 は 2 枚 の 基板 の 境目 に 鋼 秒 
の み を 載せ て ハン ダ 付 け す れ ば か な り し っ か り し ます . 
ロロ 参考 文献 
DgPD780C デ アー タ ・ シ ー ト , МЕС 


+T S EE $ 


た も の は だ めで す . 

時 間 は 34 分 で す が 。 ディ スク ・ ア クセ ス の 時 間 も あ る の で , 60 分 テ 
ー プ の 片面 で 入り ます . バッ クア ッ プ だ け で な く 。 3 インチ 。 5 イン 
チ の メデ ィ ア ・ コ ン バ ー タ に も 使え る の で 試し て みて くだ さい . 


DISK BACK UP MAKER Х! リス | mwa rr 


REM DISK BACK UP MAKER X1 Ver 2.0 
REM 
REM By Y.TAKETANI 
REM 
REM PS.(NO.16)MAMIKO TAKAI О YOROSHIKU 
REM 
Un t КЕ 
WIDTH 80:CLS4:INIT 
PRTNT"*** DISK BACK UP #%% 
For X1 Version 2.0" 
PRINT:PRINT:PRINT" 1) DISK TO TAPE " 
PRINT" 2) TAPE TO DISK " 
PRINT:PRINT" PUSH USE PROGRAM NO." 
1$=ТМКЕУ$ (1) 
ТЕ 1$="2" ТНЕМ 330 
PRTNT : РЕТМТ" カセット ニ 775У27-7%9 AVF ト * ラ イフ * 0= л" 
ッ ク ア ッ フ * スル 574229 イレ テク タ * 94," 
180 PRINT"OK THEN PUSH [Y] KEY 
190 INPUT"INPUT FILE NAME (CUT THEN [RET])":NA$ 
200 PRINT"PUSH [Y] KEY TO START" 
210 I$-INPUT$(1):IF I$-"Y" OR I$z"y" OR I$z"s" Т 
HEN 220 ELSE RUN 
220 SAVEM"CAS:"*NA$,0,0,0 
230 1=&HC999 
240 FOR DI-0 TO 1279 
250 DEVI$ "0:",DI,A$,B$ 
260 MEM$(I,128)-A$ 


By.Y.TAKETANI 


REM 
REM 


— 


270 MEM$(I+&H80,128)=B$ 

280 I-I*&H100:PRINTDI; 

290 IF I-&HE000 THEN SAVEM"CAS:MAMIKO TAKAI.N16" 
, &HC000 , &HDFFF, &HC000:I-&HCO00 

300 NEXT 

310 SAVEM"CAS:MAMIKO TAKAI.N16",0,0,0 

320 RUN 

330 PRINT "M'547'0- フォ ー マ ッ トシ タ DISK? イレ テ カセ ッ ト ニ DIS 
KA ЖКД 97-79 イレ テク タ * 44." 

340 PRINT"PUSH [Y] KEY TO START" 

350 I$-INPUT$(1):IF I$-"Y" OR I$-"y" OR 1$=":" Т 
HEN 360 ELSE RUN 

360 KEY0,"LOADM"*CHR$(&H22) *" CAS: "+CHR$ (&Н22)+", 
&HD000"*CHR$(13)*"G.380"*CHR$(13) 

370 END 

380 PRINT:PRINT"FILE OK THEN [RET] KEY" 

390 I$-INKEY$(1):IF I$-CHR$(13) THEN 400 ELSE RU 
N 

400 LOADM"CAS: 

410 I-&HC000 

420 FOR DI-0 ТО 1279 

430 A$-MEM$(I,128) 

440 B$-MEM$(I*&H80,128) 

450 DEVO$ "0:",DI,A$,B$ 

460 I-I*&H100:PRINTDI; 

470 IF I-&HE000 THEN LOADM"CAS:MAMIKO TAKAI.N16" 
:І-анс000 

480 NEXT:RUN 
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X1:U—Z 


ハラ ッ ク み ンダ 


— — アク セス じ て い る トラ ッ ク が 一 目 瞭 然 


ドラ イブ は , カタ カタ と ヘッ ド を 動か し て い 
ろ い ろ な トラ ッ ク を 読み 書き し て いま す が , 現在 どの トラ 
ッ ク に いる の か わか り ま せん . アク セス され て いる トラ ッ 
ク が 見 れ た ら お も し ろ い と 思い , 表示 方 法 を 考え て み ま し 


ディ スク ・ 


75. 


は じ め に 


ディ スク の SEEK (ヘッ ド 移 動 ) きせ て いる ステ ッ プ ・ パ 
ルス を カウ ント し , LED に リア ル ・ タ イム で 点灯 し て み ま 
し た . ヘッ ド 移動 後 , ディ スケ ッ ト か ら の 読み 込み . また 
は ディ スケ ッ ト へ の 書き 込み 時 間 を 単純 に 計算 し て みる と , 

ドラ イブ ・ モ ー タ 回 転 数 : 300 回 転 / 分 = 5 回転 / 秒 

すなわち , 1 回転 に 要する 時 間 は , 200ms と な り ま す . Ж 
際 に は ディ スケ ッ ト の イン デック ス ・ ホ ー ル の タイ ミン グ 
や アク セス する セク タ 数 に より ば ら つ きま す が , か な り 短 
い ぃ 時間 で も な ん と か LED の 数 字 は 読め ます . 人 の 目 っ て か 
な り よ く で き て いる と 感心 し ます . 


回 踏 構成 


ディ スク か ら も ら う 信号 は , 図 1 の な か で , C ОС 
され て いま す . 


TRK0 


ヘッ ド が 0 トラ ッ ク (1 番外 側 の トラ ッ ク ) に な る と , 
この 信号 が ロー に な り ま す . と ころ が 内 側 に ステ ッ プ ・ イ 
ン す る と き は , ステ ッ プ 信号 より 遅れ て TRK0 信 号 が ハイ 
に な る た め , ハイ と ロー だ け の レベ ル 判 断 だ け で は ミス カ 
ウン ト を し て し まい ます .。 そこ で ワン ショ ッ ト ・ マ ル チ 回 
ЖС, アク ティ ブ プ ・ ロ ー の エッ ジ ・ ト リガ 動作 と し まし た . 
この 回 路 に より , 0 トラッ ク に な る と 1ms 弱 の パル ス が で 
$3. さら に この パル ス で IC5, 6 が プリ セッ ト (プリ セッ 
ト 入 力 ユ 一 4 が ロー) され , 00 の カウ ント に な り ま す . X1 
turbo の 背面 に ある 外部 ドラ イブ 用 の コネ クタ か ら は TRK 
0 の 信号 は と れ ま せん . TRK0 の 信号 は ドラ イプ ブ ・ ユ ニッ ト 
か ら 文 1turbo の 本 体 に 送ら れる 信号 で , 本 体 に バッ ファ が 
入っ て いる た だ た だめ, TRK0 の 信号 は 出 て こない か ら で す . そこ 
で ダイ オー ド D1.D2 に より カウ ント は 00 か ら マ イナ ス 方 向 
に は カウ ント され な いよ うに な っ て いま す . 


表 1 部 品 表 

ІСІ, 3 74LS32 2 
IC2 74LS02 1 
IC4 74LS221 1 
ІС5, 6 TC40192 2 
IC7, 8 TC5068 2 
о. 152413 $ 7: (4151588 2 
D; 10D-1 1 
Q, 2SA1015 ま た は 2SA1115 1 
=. 1004F 10V | 1 
C:~s 0.01gF 25V 4 
с 0.0014F25V 1 
с 2.2uF 50V 1 
ко > + SL-214 1 
3mm LED オレ ンジ 1 
3mm LED ж 1 
スラ イド ・ ス イッ チ 小型 の も の 1 
抵抗 1/6W 2700 16 

тко 1 

4.1kQ 1 

10kQ 2 

100kQ 1 
ケー ス GR-1( ア イデ アル ) 1 

基板 1 枚 に 収め コン パク ト に 


DIRECTION 


ヘッ ド 移動 方 向 の 信号 で ハイ の と き ス テッ プ ・ イ ン ( 内 
fi), ロー の と き は ステ ッ プ ・ ア ウト (外側 ) と な り ま す . 
IC2。。2。 の OR と 1IC1。 の INV で ,。 ス テッ プ ・ イ ン の と き 1IC5 の 


カウ ント ・ ア ッ プ 信号 
ダウ ン 信 号 と な り ま す . 


ステ ッ プ ・ ア ウト の と きみ カウ ント ・ 


221 


図 1 トラ ッ ク ・ カ ウン タ の 回 路 図 
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542 カウ ンタ の 回 路 


реж Q 0,0,0, 9.9, 0,0, 
e» BDB. а 
E 


544 NIDECOM FD-200 付 属 ケ ー ブ プル 


STEP 


ヘッ ド が 移動 する トラ ッ ク 数 分 の パル ス が で ます . ICA 
の ワン ショ ッ ト ・ マ ル チ で 10zs 弱 の パル ス を 作っ て いま す . 
ワン ショ ッ ト ・ マ ル チ な し て で 直接 つない で も 動き ほ ま す が 1 
回 路 分 あま っ て いた の で 使い まし た . こ の パル ス と DIREC- 
TION と OR を と っ て カウ ント ・ ア ッ プ / ダ ウン を 行ない ま 
す 


DRV0/DRV1 


ドラ イブ 2 台 が 交互 に 動い た と き , 正しい カウ ント が で 
き な く な っ て し まう ため , どちら か の ドラ イブ だ け を カウ 
ント で きる よう , スイ ッ チ で 切り 替 そ を られ ます . 


SIDEI 


ヘッ ド ・ サ イド 1 の と き に , 黄色 の LED を 点灯 させ ます . 


WRITE 
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図 3 簡易 式 ド ライ プ 方 法 
IC8 TC5068 
abcdefg 


abcdefg 


IC7 TC5068 
abcdefg 


abcdefg 


O ISeg.LED n 
Я SL-214 о 
сот сот 


書き 込み 動作 が 行なわ れ な とき, オレ ンジ 色 の LED を 点 
灯 さ せま す . 


カウ ント 


カウ ント は 1IC5, 6(C-MOS TC40192) に より カウ ント ・ 
アッ プ / ダ ウン し ます . この 1IC は 10 進 表示 カウ ント 用 で す 
が , 16 進 表示 に し た いと き は TC40193 が 使え ます . TTL の 
7415192, 74LS193 と ピン ・ コ ン バ パチ で す . 

2D タ イプ の ドラ イブ は , サイ ド 0 と 1 それ ぞ れ 40 ト ラッ ク 
両方 合わ せ て , 80 ト ラッ ク あ り ま す が , サイ ド 表 示 な し で 
0-79 の 表示 が し た いと き は , 残念 な が ら 10 進 で は で きま せ 
ん が , 16 進 で あれ ば で きま す . 16 進 表示 だ と 0 一 4F ト ラッ ク 
と な り , 回 路 は 図 2 の よう に 1 ビッ ト ・ シ フト すれ ば よい 
DTF. ちょ うど , 2 倍 計算 の と き に 使う シフ ト 命 令 と 同 
じ で すね . 
LED ド ライ バ 

表示 用 IC7. 9 は プロ グラ ム ・ カ ウン タ 表 示 器 (p.218) で 
も 使っ た C-MOS TC5068C3. 図 3 の よう に , ダイ オー 
ド で 電流 を コン トロ ー ル すれ ば , TC5068 と LED の 間 に 入 


っ て いる 270.6 の 抵抗 14 本 は 不要 と な り ま す が , LED の ドラ 
イプ 電流 を 細か く 調 整 し た い 場 合 は , 抵抗 を 入れ て くだ さ 


545 ピン の 配列 表 


у. また この IC TC5068 を 使っ た 理由 は , 
⑧ 非 常に 使い や すい ピン 配置 を し て いる хі FDC 


@TTL で 16 進 表示 で きる 品種 は フェ アチャ イル ド の 9368, | VO カ ー ド か ら жу 


9370 お よび 三菱 の M54405 が ある が , 消費 電流 が 多く か つ 値 
段 が 高い 
の 2 つが 挙げ られ ます . 
LED 表 示 

カウ ント 数 表示 に 2 桁 7 セ モグ メン ト LED, 直径 3 mm の 
LED オ レン ジ 色 を WRITE 表示 , 同じ く 黄 色 を SIDE 1 表示 
に 使っ て いま す . 

3mm の LED は IC3。, 5 (74LS32) で ドラ イブ し て いま す . 
LS タ イフ の ドラ イブ 電流 は 8mA で す が 13mA ぐ らい 流し て 
も IC 出 力 の ロー レベ ル 電 圧 が 少し 高く な る ぐら いで 問題 な 


く 使え ます . 
接 続 


この トラ ッ ク ・ カ ウン タ は X1 (X1 turbo と TEAC の FD 
-558, ニ デ コ NH200F の ドラ イブ ) で テス ト し て お り ま す 
が , 5 イン チ ・ ド ライ ブ は 34 ピ ン ・ コ ネ ク タ で ほとん ど と ど 統 
一 され て いま す の で , 接続 さえ で きれ ば どの ドラ イプ で も 
使え る と 思い ます . 

ХЦ, ドラ イプ 用 の ケー プル が 本 体 の 後ろ か ら 出 て いる 
DT, 被 賀 を 少し むい て 34 ピ ン の コネ クタ を 圧接 すれ ば 信 
号 を 取り 出せ ます ( 図 4 参照 ). ХІ turbo は 外部 ドラ イブ 用 
の コネ クタ が 出 て いま す の で , ここ か ら 信 号 を 取り 出せ ま 
+. コネ クタ の 信号 取り 出し の た め の ピ ン 配 列表 を 図 5 に 
示し て あり ます . 電源 は 十 5V/500mA も あれ ば 充分 で す . 
小型 の スイ ッ チ ング 電源 を 接続 する か ,. ドラ イブ 用 の 電源 
が あれ ば , それ か ら 引 き 出 し て 使っ て も よい で し ょ う . 


動作 テス ト 


我 が ク ラブ の 名 プロ グラ マー 順 ち ゃ ん 作 の *FD コ ント ロ 
—2" (p.148) で チェ ッ ク し て くだ さい . 

まず , トラ ッ ク ・ カ ウン タ の 電源 を ON に し て か ら マ イコ 
ン 本 体 の 電源 を ON し , プロ グラ ム を 動か し て くだ さい . 今 
回 の テス ト ・ プ ログ ラム は 0-39 ト ラッ ク を 受け 付け る よう 
に な っ て いま す が , 他 の ソフ ト を 利用 する 場合 は , 0-39 ト 
ラッ ク 以 内 の 範 胃 で テス ト し て くだ さい . これ 以上 ヘッ ド 
これ 以上 ヘッ ド を 移動 きせ た 場合 は , パルス が 出 て も へ 
ッ ド は 動か ず カ ウン ト ・ ミ ス を し ます . この 場合 ドラ イブ 
が 0 トラ ッ ク に 戻っ て も カウ ンタ は , 0 トラック に 戻り ま 
せん . 

手元 の セッ ト を チェ ッ ク し た と ころ , ХІ turbo は 42 ト ラ 
ッ ク ま で , TEAC の FD-55B は 40 ト ラッ ク ま で 動き まし た . 


Ж Ж 


実は この トラ ッ ク ・ カ ウン タ を 作っ た 目的 は , dB ソフ ト 
の ゲー ム "Laptick" の 40 画 面 が 難し く , 先 へ 進め ず ス トッ 
プ し て し まい , な ん と か し た いと 思い どの トラ ッ ク で 画 
面 数 を 書き 替え て いる か を 捜す た め だ っ た の で す . すご く 
お も し ろ い の に , そし て な ん と いっ て も 自前 で 買っ た ソフ 


1 
2 
3 
4 
5 
6 
1 
8 
9 
10 
11 
12 


HEAD LOAD 

DRIVE SELECT 3 
INDEX 

DRIVE SELECT 0 
DRIVE SELECT 1 
DRIVE SELECT 2 
MOTOR ON 
DIRECTION SELECT 
STEP 

WRITE DATA 
WRITE GATE 
TRACK 00 

WRITE PROTECT 
READ DATA 

SIDE ONE SELECT 
READY 


図 6 基板 サイ ズ と 部 品 配 置 図 (単位 :mm) 


スラ イド SW は パタ ー ン に ハン ダ 付 け 
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O 


ト を の に それ 以上 先 へ 進め な いな ん て … み じ め . 

すぐ 見 つか り ま し た だ た. 15 トラック の サイ ド 0 で す . あと 
は お まけ の ディ スク ・ エ ディ タ で トラ ッ ク ・ デ ー タ を 比較 
L, 画面 数 らし き と こ ろ を 捜す と 。 あり まし た 16 セ クタ の 
始め 1 バイ ト に 16 進 で 入っ て いま し た . Та FT 1) 22 ЖЈУ • 
ディ スケ ッ ト は , プロ テク ト ・ シ ー ル を は っ て お いた だ た の で 
画面 デー タ が 書き 換え られ ず に すみ , バッ ク ・ ア ッ プ 版 と 
の 比較 が 簡単 に で きま し た . 


入力 する と ,。 た と えば “Laptick" の 15 ト ラッ ク , FA FO 
を リー ド [R] す る と ,E000 か ら EFFF ま で の アド レス に 15 ト 
ラッ ク , サ イド 0 の デー タ が 入り ます . そ し て E000 か ら EOFF 
まで の 1 セク タ 分 が 80 桁 表示 で ダン プ さ れ ま す . これ は * 
マー ク で お な じみ の BASIC の モニ タ ・ モ ー ド で す . 

ж DEF00 [J] と すれ ば , 1667 У НУУ У 7 п, 問題 の 
画面 デー タ が 1 バイ ト 日 に 見 れ ま す . あと は カー ソル 移動 
修正 . た と えば 64(10 進 で 100 す な わ ち 100 画 面 と な り ま す ) 


ы), その あと いち ば ん 下 の モ ニタ ・ マ ー ク に カー ソル 移動 
お まけ ся), з 0 сагуУ FAHREN £v, そこ で , И 
ーー 5 9х 4 F W 入力 する と 即座 に 修正 デー タ が 
+ 


Џ 
7] 
書き 込ま れ ま す . 

жы, 基板 の サイ ズ な ど に つい て は , 図 6 お よび 表 1 を 
参考 に し て くだ さい . 
参考 文献 


2 年 ほど 前 ディ スク を 購入 し た と き に 自作 し た , だ いぶ ぶ 古 
い デ ィ ス ク ・ エ ディ タ を 少し 直し た も の で す が , Hu 
BASIC (CZ-8FB01 V1.0) を 利用 し て お り , 好き な トラ ッ 


ク を アク セス で きま す の で 試し て みて くだ さい . 1)Х1 turbo ユー ザー ズ マ ニュ アル , シャ ー プ 
RUN す る と コマ ンド 入力 待ち と な り ま す . END の と こ 2)FD-55B マ ニュ アル , TEAC 
ろ で |E| を 入力 する と BASIC に 戻っ て し まい ます . その 他 3) 集積 回 路 技 術 資料 東芝 


の キー 入力 で つぎ の DRIVE 入 力 待ち に な り ま す . それ ぞ れ 
トラ ッ ク ・ カ ウン タ ・ リ ス ト ms—OT 


100 ' キキ キキ キキ キキ キキ キキ キキ キキ キキ オオ キネ ネネ キキ キキ オオ オキ ネネ | 410 
110 ' яз DISK EDITOR v3.0 xti 120 
120 ' *** Гог Х-1 CZ-8CFBO] V1.0 ## オ 130 


130 ' t*** by IkariYa 1984-1-21 *** 410 PORF&HFOOA,SL 'LO BYTE OF SECTOR NO. 
140 "' オキ ネネ ネネ キオ キキ キキ キキ キネ ネオ オキ キネ キキ キキ メキ キオ キオ ネオ キオ 450 РОКЕ&НЕЭ "НІ BYTE OF SECTOR ХО 
150 CLS:WIDTH80:CLEAR&HEOO0C 160 LABEL "R/W 

160 FOR I-0 TO &HID 


LABEL "SUM" 
SAZT*16*24H*16:SHzSAY226:SLzSA-5H*256 
РОКЕ&НЕОО8 , kH10 "1 TRACK 


E 32.3:RwS=INhEYS(1 


170 READ AS:PORE&HFOO0*I,VAL("&H'"*AS) " GOTO "READ" 
180 KENT E " GOTO "WR:TE" 
190 LABEL "START" 500 GOTO "COMMAND" 

200 Dz0:T20:Hz0:8z0:COLOR 5 510 LABEL "READ" 

210 LOCATE 0,0:PRINT "[ COMMAND ]" 520 LOCATE 32,3:PRINT КУ5 


220 LOCATE 10,0:PRINT "END ----------- ЕЕ) 3" 530 CONSOLE 7,18 


230 LOCATE 10,1:PRINT "DRIVE (0- 3 510 CALL &НЕООО 'READ 

210 LOCATE 10,2:PRINT “TRACK/SIDE( O - 13) :" 550 POKE &HIISL,&HFF:PORE &H1iA2,&H10 
250 LOCATE 10,3:PRINT "READ/WRITE (R/W) :" £60 CALL &HF017 *DUME 

260 LABEL "COMMAND" 219 CALL &HUE2 EMEN 

210 COLORT:LOCATE 32,0:Е5-1ХхКЕҮ6:1) 580 РСҺЕ &IIISD,&HTi1': PORE &H11A2,XH8 
280 IF ESz"E" GOTO "END" 590 CONSOLE 0,€:6O0TO "COMMANDE" 

290 LABEL "DRIVE" 500 LABEL "WRI 

300 LOCATE 31,1:1NFUT " " D 6:0 COLOR6:LOCATE 32,2:PRIST RUS 


310 IF (D«0) OR (D>3; GOTO "TRACK" 620 CALL &HF0;0 "ЕБІТЕ 


320 FORE &H71BE,D:LOCATE 31,1:PRISNT D 630 GOTO "COMMAND 

330 LABEL "TRACK" 610 LABEL " ” 

310 LOCATE 31,2:1NPUT " ",T 680 COXSCLE LEAR &HFE20:CLS:END 
350 IF (1<0) ОВ (T^19) СОТО "TRACE" 660 DATA CD,C7,F0,CE,D2,75,C9 

360 LOCATE 31,2:PRINT T;" и" 670 DATA 2E,10,11,00,00,21,00,E0,.C9 
370 LABEL "SIDE" 650 DATA CD,07,F0,CD,61,76,C9 

380 LOCATE 38,2:INPUT " ",H 690 РАТА CD,2C,F0,CDP,8B,11,C9 


390 IF (H«0) OR (E21) ЧОТО 
LOCATE 38,2:PRINT H 


"SIBE" 


初代 X1 と 最新 の X1G の 登場 の 間 に は 3 年 9 箇月 の 時 間 的 
な 隔たり が あり ます . その間, コン パチ ビリ ティ を 保ち な 


パー ソナ ルコ ンピュータ は , 現在 まさ に 進化 の 途上 に ある 
存在 だ と いう こと が 実感 で きま す . 初代 X1 を 買っ た 方 ,「 買 
が ら も 多く の 機能 向上 が 図ら れ , 同時 に コス トペ パフ ォ ー マ う 時 機 を 早まっ た ッ 」 な ん て 言わ な いで 頂戴 ね . な ん と 言 
ンス も 追求 され て きま し た だ た. X1 シ リー ズ の 流れ を 追う と , っ て も , あな た だ は 栄光 ある パイ オニ ア な ん で すか ら . 

X1 シ リー ズ 価 格 変遷 表 


発 売 年 月 | 標準 価格 備 
155, 00029 初代 X1. 別名 マニ アタ イプ . 

! 119,800 3 グラ フィ ッ ク RAM 内 蔵 . 別名 アク ティ プ タ イ プ . 
3"FDD 搭 載 . 別名 プロ フェ ッ シ ョ ナル タイ プ . 
I/O ボ ポー ト 2 ж КАЖ. 

第 1 水準 漢字 ROM 実 装 . 

漢字 Hu BASIC 登 場 . データ レコ ー ダ 内 蔵 . 

5" FDD 1 ドラ イブ 内 歳 . RS-232C 内 蔵 . 

5" 2002 ドラ イブ 内 蔵 . RS-232C 内 蔵 . 

NEW _ BASIC 登場 . デー タレ コー ダ 内 蔵 . 

5' FDD1 ド ライ ブ Юй. 

5' FDD 2 ドラ イブ 内 蔵 . 実務 派 マ シン . 

5 FDD 2 ドラ イブ 内 歳 . 新 ・ 日 本 語 処理 . 
デー タレ コー ダ 内 蔵 . マル チビ ジュ アル 端子 搭載 . 

5" FDD 2 ドラ イブ 内 蔵 . 漢字 ROM 装備 . 


119, 800 P3 
139,800 A 
168,000 РЗ 
248, 000 円 
278,000 円 


118,000 円 
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本 資料 は 編集 部 の 責任 に お いて , 参考 と し て 掲載 し まし た . し た が っ て , 本 資料 に 関し て メー カー に 直接 問い 合わ せる こと は ご 遠慮 くだ さい . 
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編集 後記 


一 仁 は で き の い い ク リー ン な のび 腐 が 大 好き で す . その ま 
ま 飲 み 込 むだ け で も その の ど ご し の うま き さ は すばらし い 
bo cd» 料理 法 を 身 に つけ , qme «eot 
具 を 了 手 に 入れ れ ば 。 REV У МА T — X ВТУ |. 
ШЕМ EFL БІЗШЕ ЕТ DC k L Ç Š 
zd. 

結論 を 申し上げ れ ば , X1 (X fij 
で セク シー な り び 腐 で す . これ ほど の 素材 を ひと た び 手 に 
し た な ら ば , 最高 の 味 を 持つ 料理 を つく りあ げ る の は あ 
な た の 羨 務 で あり 権利 で す . 料理 法 の 基本 は この 「『 活 用 
人 研究 』 に 記さ れ て いま すし , その た め に 必要 な 道具 も こ 
ОЉА АНС. あと 必要 な の は あな た 
の オリ ジ ナ ル ・ ス パイ ス と 労力 だ け . あな た 独自 の 味 が 
で きた ら 細 集 部 に も 送っ て くだ さい . 全て の X1 ユー ザ 
ー が ХІ を 骨 ま で し ゃ ぶり つく すこ と を 願い ます . 

(Hit) 

画 み な さん も ご 存じ し の と お り X1 turbo に は , いろ いろ 
な ルー チン を 含ん だ BIOS ROM だ 内蔵 さ れ て いま す . 
この BIOS ROM に 関す る 解説 書 は 数 多く 出版 され て 
いま す が 。 実際 の プロ グラ ミン グ に どう 活用 する か は , 
あま り 語 られ て いま せん . AETI, IOME SLT 
実際 の プロ グラ ミン グ に 役立つ BIOS КОМ の 活用 法 
と いう も の を 掲載 し まし た . 

ST, X1 の 長所 は グラ フィ ッ ク 機 能 の よさ で すね . 
PCG エ ディ タ も 載っ て いま す の で 使っ て みて くだ さい . 


な ん で す . Ub li i 


#72, パソ コン 通信 も か な り 普 及 し て きま し た . 57 
ラ と 本 苦 掲 載 の 通信 プロ グラ ム と を 使っ て , X1 ユ ー ザ 
ー 以 外 の 人 た ちと 交信 し て みて は いか が で し ょ うか . < 
Lc, 新しい タイ プ の お た く 族 を 結成 し て くだ さい . 

(か ) 
圏 コ ンピュータ の 画面 と に ら め っ こし な を がら, Mb, 
帳 分 の いう こと を きか な い コ ンピュータ に , 文句 を いっ 
72), や き し く 話し か けた りす る 人 は , ХІ ユー ザー に は 
いま せん よ ネ .『 パ ソコ ン テ レ ビ 』 と いう 異名 を と る ( 
う 呼ぶ の が 嫌い な 人 も いま す が …… )X1 で すか ら , そう 
と き に は TV で も 見 て 暗く な っ た 気分 を ほぐし て 
くだ さい ホネ 。 TV ОИ 
ラム を 組む の も な か な か 乙 な も の で す ヨ . 

フ ゲ ば ら ロジ の iin より 『 コ ンピュータ 』」 と いう 言 
か ら イ メー ジ さ れる も の も か な り 変 っ て きた よう な 気 が 
し ます . 時 代 は , 確実 に コン ピュ ー タ を 生活 の 中 に 受け 
入れ つつ ある の で す . そん な 中 , 先駆 名 的 役割 り を し て 
きた ХІ b, 高 性 能 化 , 低 価格 化 を 陳 ね どん どん 良い も の 
と な っ て きま し た . その ХІ を 十 二 分 に 活用 すべ く 『 活 用 
für: TT. 隅 か ら 隅 まで 可愛 が っ て や っ て くだ さい . 

(М?) 


いう 


画 い よい よ , X1 シリ ー ズ 活用 研究 も 最終 段階 に 入り , м 
付 を 書く の が 苦手 な の で , 延 し に 延 し て いた ら , 最後 の 
入 稿 原稿 に な っ て し まい まし た . 今回 の 活用 研究 は 7 
ー ミ ナル プロ グラ ム や 雅 。 ホ バー アタ ッ ク , ウッ トイ と 
いっ た X1 シリ ー ズ の 中 で も 質 の 良い プロ グラ ム が 揃っ 
て いま す 。 WU. 試し て くだ さ ゅ 、 

(X1 が ほし い Shu) 
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テレ ビ は も ちろ ん 、 ビ デオ や ビデ オデ イス 名 ビデ オ 話題 の ネッ トワ ー ク に アク セス し た り 、 ス ピー ディ な 
H ЖӘН WORD POWER --::7- カメ ラ か ら の 映像 を 、 瞬時 に 静止 画像 し て まり 込め デー タ 通 信 ( 漢 字 対 応 )、 き ら に お 手持 ちの ター ボ 
文章 づり の 発想 か ら 表 現 ま で 、 き まさ まな 角度 か ら るー 一 別売 の 高速 画像 入力 装置 「 カ ラー イメ ー ジ や ター ボ II を ホス トシ ステ ム と し て ホス ト 局 を 運営 し 
日 本 語 を サポ ー ト 。 — | も ちろ ん 、 人 名 ・ ボー ド 」 を 使え ば 、 興 奪 の ば ビジュアル シー ン が ター ボ た り …… ター ポ の 優れ た 通信 環 嘩 境 が コミ ュ ニ ケー 
地名 ・ 類 語 ・ 同 義 語 ・ 同 音 異議 語 、 さ ら に 四 文 字 で 自在 に 駆使 で き ショ ン の 輪 を どん どん 拡げ ます 


成句 、 故 事 ・ こ と わざ PRONUS ど 、 収録 ~ 画像 は 拡大 ・ 
語数 約 9 万 語 か ら な る 先進 の 日 本 語 シ ステ ム で す 。 縮小 ・ 切 り 抜き ・ 輪 
Күт 1 な ど 修 正 ・ 加 |. 
-АІЛЕНІСІП +: [も 自在 。 美しく 印 
刷 で きる カラ ー プ ブリ 
日 本 語 に まる BASIC コ マン ド の 検索 や 意味 ・ 用 法 ンタ は 用 意 し まし た 
О 認 、 きら に プロ グラ ム へ の と 0 込 。 ` W52—4»—zX—F CZ-8BV1 標準 価格 39、 80053 N22tAa7—-va» CZ- 165 標準 価格 9, 805 
だ け で な が く 、 ュ ア ル の か わり と し て 楽し く 簡単 に 画像 処理 ソフ トカ ラー イメ ー ジ ツー ル 同 梱 、X1/X1 turbo シ リー ズ 5"FD 版 、X1 turbo シ リー ズ 用 


BASIC が 覚え られ 応用 で きる 便利 な ツー ル で す Ш 24 ド ウッ ト 熱 転写 カラ ー 漢 字 プ ブリ ンタ CZ-8PCI1 таана ШЕШТИ Тон ҒАНА, EFA ИУ 
X1/X1 turbo シ リー ズ 用 t 


コン レビ あの ター ボ の ハイ パフ ォ ー マ ンス を すべ て 継承 一 
РА: 
£ @ 使い や すさ と 高度 な 能力 で 好評 の 溢 字 BASIC 搭 載 @ RF 10005 p 
示 な ど レ ベル の 高い 表現 が 可能 、640X400 ド ッ ト フ ルカ ラー の 高速 ・ 高 密度 
ックス @ ビ デオ を つなぐ だ け で スー パー イン ボーズ 録画 が で きる デジ タ 


ル テ ロ ッ パ 機能 内 蔵 @JIS 第 1 水準 漢字 HOM 標 準 実 装 @ 5 イン チミ ニ フ ロ ッ 


画 モ デム ユニ ッ ト С2-8ТМІ 標準 価格 29. 8003 
通信 ソフ ト ・RS-232C ケ ー ブ ル 同 梱 、X1/X1 tu 


Witurbo?—:7). CZ-131SF 標準 価格 8, son 


2D・5"FD 版 、X1 turbo シ リー ズ 用 


画 モ デム ター ミナ ル CZ-133SF 標準 価格 25, 800 円 
(モデ ム ボ ー ド 付 、2D・5"FD 版 、X1/X1 turbo シ リー ズ 


と いつ か 
み と い っ 7 


バー ソナ ルコ ンピュータ + キー ボー ド CZ-856C(E) ォ フィ スタ レー(B) プ ラッ ク MIAM ピー ディ スク ドラ イブ 2 基 内 蔵 @ マ ウス 、RS-232C な ど 充 実 の ユー ザー イン ター 
15 型 カテ ラー ディ スプ レイ テレ ビ CZ-855D(E) ォ フィ スク レー( 日 ) プ ラッ ク 標準 価格 119.800 円 ェ イ ス @ 甘 積 さ れ た 豊富 な ソフ ト 資 産 が 活用 で きる うれ し い コ ン バ パチ プル 設計 
ステ ム 機 器 営業 部 T545 大 阪 市 阿倍 野 区 長池 町 22 番 22 号 容 (06)621-1221( 大 代表 ) 電子 機器 事業 本 部 テレ ビ 事業 部 第 4 
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